M7mpppppp[m1_, p2_, p3_, p4_, p5_, p6_, p7_] = 
    ((-(lam[2, m1]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
         lam[1, m1]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))^6*
       (((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])^5*
          ((-10*CK*(barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                p7])*(-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
               (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))^5*
             (-((barlam[2, p3]*(-((((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                      (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])))/((-((barlam[2, p6]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]))) + (barlam[1, p6]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
              (barlam[1, p3]*(-((((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                     (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6])))/((-((barlam[2, p6]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]))) + (barlam[1, p6]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             ((barlam[2, p7]*(-((((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                     (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6])))/((-((barlam[2, p6]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]))) + (barlam[1, p6]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
              (barlam[1, p7]*(-((((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                     (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6])))/((-((barlam[2, p6]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]))) + (barlam[1, p6]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (-((barlam[2, p7]*(-((((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                      (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])))/((-((barlam[2, p6]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]))) + (barlam[1, p6]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
              (barlam[1, p7]*(-((((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                     (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6])))/((-((barlam[2, p6]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]))) + (barlam[1, p6]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*lam[2, 
                p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[1, p6]*lam[2, p5] - (-(barlam[1, p5]*
                       barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                    lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              lam[1, p6]*((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[1, p6]*lam[2, p5] - (-(barlam[1, p5]*
                       barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                    lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*lam[2, 
                p6]*(lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                      barlam[2, p5])*lam[1, p6]*lam[2, p5] - 
                   (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[1, p5]*lam[2, p6])*((barlam[2, p2]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*spba[p7, {m1, p2}, m1])))/((lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              lam[1, p6]*((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[2, p3] - (lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                      barlam[2, p5])*lam[1, p6]*lam[2, p5] - 
                   (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[1, p5]*lam[2, p6])*((barlam[2, p2]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*spba[p7, {m1, p2}, m1])))/((lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                 m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                {m1, p2}, m1])*((barlam[2, p2]*
                 (-((((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                      (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]))*spa[p2, m1])/((-((barlam[2, p6]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                  (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5])))*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6])*spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                 (-((((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                      (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                  barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]))*spa[p2, m1])/((-((barlam[2, p6]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                  (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5])))*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6])*spba[p7, {m1, p2}, m1]))^2)/
            (((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
               lam[1, p6]*lam[2, p5] - (-(barlam[1, p5]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p5])*lam[1, p5]*lam[2, p6])*
             (-((barlam[2, p6]*((((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                      (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                   barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])))/((-((barlam[2, p6]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]))) + (barlam[1, p6]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
               (barlam[1, p6]*((((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                     (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                  barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])))/((-((barlam[2, p6]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]))) + (barlam[1, p6]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*((((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5]*
                      lam[2, et5] - (-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])))/((barlam[1, p5]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5])*(-((barlam[2, p6]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]))) + (barlam[1, p6]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
               ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*((((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5]*
                      lam[2, et5] - (-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                  barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])))/((barlam[1, p5]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5])*(-((barlam[2, p6]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]))) + (barlam[1, p6]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-(((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])) - (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])))*lam[2, p6]*(lam[1, m1]*
                  spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                      p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p6]*lam[2, p5] - (-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p6]*((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[1, p6]*lam[2, p5] - (-(barlam[1, p5]*
                       barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                    lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                      p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p6]*lam[2, p5] - (-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                (lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                    lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[1, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p5])*lam[1, p6]*lam[2, p5] - 
                    (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5]*lam[2, p6])*((barlam[2, p2]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])*spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])*spba[p7, {m1, p2}, m1])))/((lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[1, p6]*lam[2, p5] - (-(barlam[1, p5]*
                       barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                    lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(
                lam[2, p3] - (lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                      barlam[2, p5])*lam[1, p6]*lam[2, p5] - 
                   (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[1, p5]*lam[2, p6])*((barlam[2, p2]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*spba[p7, {m1, p2}, m1])))/((lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((lam[2, p3] - (lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                    lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p5])*lam[1, p6]*lam[2, p5] - 
                    (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5]*lam[2, p6])*((barlam[2, p2]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])*spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])*spba[p7, {m1, p2}, m1])))/((lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              (lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                    lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                      barlam[2, p5])*lam[1, p6]*lam[2, p5] - 
                   (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[1, p5]*lam[2, p6])*((barlam[2, p2]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*spba[p7, {m1, p2}, m1])))/((lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
           (10*CK*(barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])^
              5*((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - barlam[1, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
              (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - barlam[2, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - barlam[1, p3]*(lam[2, et5]*
                     (lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
              (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - barlam[2, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (-(((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]))*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[1, p3]*
                    (lam[2, et5]*(lam[1, p3] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                       (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
               ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[2, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[2, p3]*
                   (lam[2, et5]*(lam[1, p3] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
               lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])))) - 
              (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
               lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])))))*
             ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
               lam[2, p6]*((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p5])*lam[1, p5] - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])))) - 
              (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
               lam[1, p6]*((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p5])*lam[2, p5] - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])))))*
             (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                 m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                {m1, p2}, m1])*((barlam[2, p2]*(-(barlam[1, p4]*
                   (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                 barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]) - 
              (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*spa[p2, m1]*
                (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p5]*
                         lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p6]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
              (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[2, p3]*
                  (lam[2, et5]*(lam[1, p3] - (lam[1, et6]*(lam[1, p5]*
                         lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                spba[p7, {m1, p2}, m1])))/
            (((barlam[2, p3]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p3]*(lam[2, et5]*
                     (lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
               (barlam[1, p3]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[2, p3]*(lam[2, et5]*
                     (lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + barlam[1, p3]*(lam[2, et5]*
                      (lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                       (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
               (barlam[1, p6]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[2, p3]*(lam[2, et5]*
                     (lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, 
                      p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                       p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                    (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p6]*(lam[2, p3] - (lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*lam[2, p6]*((-(barlam[1, p5]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p5])*lam[1, p5] - 
                 (lam[1, et5]*(-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*
                         (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p6]*(lam[2, p3] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p3]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]) - 
                    (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]))))) + 
              (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
               lam[1, p6]*((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p5])*lam[2, p5] - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]))))*(
                (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p5])*lam[1, p5] - (lam[1, et5]*(-(lam[2, p6]*
                     (lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]))))*(
                (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p5])*lam[2, p5] - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                      p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                   (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]) - 
                    (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                   m1])) + (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]))) - (10*CK*(barlam[1, p6]*barlam[2, p3] - barlam[1, 
                 p3]*barlam[2, p6])^2*(barlam[1, p7]*barlam[2, p3] - 
              barlam[1, p3]*barlam[2, p7])*(barlam[1, p7]*barlam[2, p6] - 
              barlam[1, p6]*barlam[2, p7])*((barlam[2, p3]*(barlam[1, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - (lam[1, et6]*
                       (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p5]*
                         lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p3]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[2, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))*(-((barlam[2, p3]*(barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - (lam[1, et6]*
                        (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p3]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[2, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))*((barlam[2, p7]*(barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p3]*
                  (lam[2, et5]*(lam[1, p3] - (lam[1, et6]*(lam[1, p5]*
                         lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))) - (barlam[1, p7]*(barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p3]*
                  (lam[2, et5]*(lam[1, p3] - (lam[1, et6]*(lam[1, p5]*
                         lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))*(-(lam[2, p6]*(lam[1, p3] + (lam[1, et5]*
                   (-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                       lam[1, p6]*(lam[2, p3] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) - (barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - (barlam[1, p7]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p7])*((lam[2, p3] - 
                        (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, p3] - (lam[1, et6]*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (lam[1, et6]*
                   (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*
                       barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p3] + 
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(-(lam[2, p6]*(lam[1, p3] - 
                         (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                      lam[1, p6]*(lam[2, p3] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*((lam[2, p3] - (lam[2, et6]*
                         (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - (lam[1, p3] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))))*((lam[2, p3] + (lam[2, et5]*
                  (-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                      lam[1, p6]*(lam[2, p3] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*((lam[2, p3] - (lam[2, et6]*
                         (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - (lam[1, p3] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]) - (lam[1, p3] + (lam[1, et5]*
                  (-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                      lam[1, p6]*(lam[2, p3] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*((lam[2, p3] - (lam[2, et6]*
                         (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - (lam[1, p3] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*
                 (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                 (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 spba[p7, {m1, p2}, m1]))^5)/
            ((((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[1, p3]*
                   (lam[2, et5]*(lam[1, p3] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                   lam[2, p5])*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))) - ((-(barlam[1, p4]*
                    (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]))*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - barlam[2, p3]*(lam[2, et5]*
                     (lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                   lam[2, p5])*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))))^2*
             ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
               lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
               lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p6]*(lam[1, p3] + (lam[1, et5]*(-((barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p3] - 
                        (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*((lam[2, p3] - (lam[2, et6]*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p3] - 
                       (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - (lam[1, et6]*
                  (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))) - lam[1, p6]*(lam[2, p3] + 
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(-(lam[2, p6]*(lam[1, p3] - 
                         (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                      lam[1, p6]*(lam[2, p3] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*((lam[2, p3] - (lam[2, et6]*
                         (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - (lam[1, p3] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))))*(-(lam[2, p6]*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1]))*(((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]) - ((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*spa[p2, m1]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                 spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                 spba[p7, {m1, p2}, m1]))^2) - 
           (10*CK*(barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
             (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
               (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))^2*
             (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
              (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5])))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
             (-(lam[2, p6]*((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                    barlam[2, p5])*lam[1, p5] + (lam[1, et5]*
                   (-((-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5]))) + (barlam[1, p6]*
                         (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p6]*lam[2, p5] - 
                       (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[1, p5]*lam[2, p6])) - 
                    (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                     ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) + (barlam[1, p6]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                   (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              lam[1, p6]*((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p5])*lam[2, p5] + (lam[2, et5]*
                  (-((-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) + (barlam[1, p6]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                     ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, p6]*lam[2, p5] - 
                      (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, p5]*lam[2, p6])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) + (barlam[1, p6]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))))*((barlam[2, p7]*
                ((((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5]*lam[2, et5] - (-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[1, et5]*lam[2, p5])*(-(barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]))) + (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                  (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))) - (barlam[1, p7]*
                ((((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5]*lam[2, et5] - (-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[1, et5]*lam[2, p5])*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]))) + (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                  (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))*(((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                ((((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5]*lam[2, et5] - (-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[1, et5]*lam[2, p5])*(-(barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                ((-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p6]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                   (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))) - ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                ((((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5]*lam[2, et5] - (-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[1, et5]*lam[2, p5])*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                ((-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p6]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                   (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))))*(-(((-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                 ((((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                         p5])*lam[1, p5]*lam[2, et5] - (-(barlam[1, p5]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p5])*(-(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 ((-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) + (barlam[1, p6]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))) + ((-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                ((((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5]*lam[2, et5] - (-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[1, et5]*lam[2, p5])*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                ((-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p6]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                   (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))))*(((-(barlam[1, p5]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                (lam[2, et5]*(-((-((barlam[2, p6]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                      (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p6]*lam[2, p5] - 
                      (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, p5]*lam[2, p6])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) + (barlam[1, p6]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]) - ((-(barlam[1, p5]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                (lam[1, et5]*(-((-((barlam[2, p6]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                      (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p6]*lam[2, p5] - 
                      (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, p5]*lam[2, p6])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) + (barlam[1, p6]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                 barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])^5)/
            ((lam[2, p6]*((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p5])*lam[1, p5] + (lam[1, et5]*
                  (-((-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) + (barlam[1, p6]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                     ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, p6]*lam[2, p5] - 
                      (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, p5]*lam[2, p6])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) + (barlam[1, p6]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))) - lam[1, p6]*((-(barlam[1, p5]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                (lam[2, et5]*(-((-((barlam[2, p6]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                      (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p6]*lam[2, p5] - 
                      (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, p5]*lam[2, p6])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) + (barlam[1, p6]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))))*(-((barlam[2, p3]*
                  (-((((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                       (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                   barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6]) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/
                 ((-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) + (barlam[1, p6]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))) + (barlam[1, p3]*
                 (-((((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                      (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                  barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))/
                ((-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p6]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                   (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))^2*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                 spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(
                lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p3] - 
                (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))))*(-(lam[2, p6]*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1]))*((((barlam[2, p6]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])) - (barlam[1, p6]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                 lam[2, p6] + ((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])) - (barlam[1, p7]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                 (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                    m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1]) - (lam[1, p6]*((barlam[2, p6]*
                    (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                  (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]))) + ((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])) - (barlam[1, p7]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                 (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                    m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1]))*(-((barlam[2, p2]*spa[p2, m1]*
                  (-((((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                       (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                   barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6]) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/
                 (((-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) + (barlam[1, p6]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                   (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                  spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                 (-((((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                      (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                  barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))/
                (((-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) + (barlam[1, p6]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))*spba[p7, {m1, p2}, m1]))^2) - 
           (10*CK*(barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
             (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
               (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))^5*
             (-((barlam[2, p3]*(-((((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                      (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]))) + (barlam[1, p7]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p3]*(-((((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                     (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]))) + (barlam[1, p7]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             ((barlam[2, p6]*(-((((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                     (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]))) + (barlam[1, p7]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p6]*(-((((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                     (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]))) + (barlam[1, p7]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[2, p6]*(-((((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                      (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]))) + (barlam[1, p7]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p6]*(-((((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                     (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]))) + (barlam[1, p7]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-(((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])) - (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])))*(lam[2, m1]*spb[m1, p7] + 
                 lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[1, p5]*
                     lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                  ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (-(barlam[1, p5]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              ((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (-(barlam[1, p5]*barlam[2, 
                        p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-(((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])) - (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])))*(lam[2, p3] - (lam[2, et6]*
                   (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*
                       barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])) - (lam[2, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (-(barlam[1, p5]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + ((barlam[2, p7]*
                  (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                     p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                      barlam[2, p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*spba[p7, {m1, p2}, m1])))/((lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                 m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                {m1, p2}, m1])*((barlam[2, p2]*spa[p2, m1]*
                 (-((((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                      (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]))) + (barlam[1, p7]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                 (-((((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                      (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]))) + (barlam[1, p7]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 spba[p7, {m1, p2}, m1]))^2)/
            ((-((barlam[2, p7]*((((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                      (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]))) + (barlam[1, p7]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               (barlam[1, p7]*((((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                     (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]))) + (barlam[1, p7]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*((((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5]*
                      lam[2, et5] - (-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                   lam[2, p5])*(-((barlam[2, p7]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]))) + (barlam[1, p7]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
               ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*((((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5]*
                      lam[2, et5] - (-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                   lam[2, p5])*(-((barlam[2, p7]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]))) + (barlam[1, p7]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                      barlam[2, p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*spba[p7, {m1, p2}, m1])))/((lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              lam[1, p6]*(lam[2, p3] - (lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                      barlam[2, p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*spba[p7, {m1, p2}, m1])))/((lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                      p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (-(barlam[1, p5]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p3] - 
                 (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*
                       barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])) - (lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (-(barlam[1, p5]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])))) + (lam[1, m1]*spb[m1, p7] + 
                lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*lam[1, et6]*(lam[1, p5]*
                    lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (-(barlam[1, p5]*barlam[2, 
                        p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p3] - 
                (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1])) - (lam[2, et5]*((-(barlam[1, p5]*
                       barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                    lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - (-(barlam[1, p5]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p5])*lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
               lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1]) - (-(barlam[1, p5]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p5])*lam[1, p5]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (-(barlam[1, p5]*barlam[2, 
                        p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              ((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (-(barlam[1, p5]*barlam[2, 
                        p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
           (10*CK*(barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])^
              5*((barlam[2, p6]*(-(barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) - barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p6]*(-(barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                       (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p6]*(-(barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-(((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]))*(-(barlam[1, p3]*(lam[2, et5]*
                       (lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                        (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(barlam[1, p7]*barlam[2, 
                     p3] - barlam[1, p3]*barlam[2, p7])*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5])*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[2, p3]*(lam[2, et5]*
                      (lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                       (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p5])*(barlam[1, p7]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p7])*(lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))))^2*(-((-(barlam[1, p7]*barlam[2, 
                    p3]) + barlam[1, p3]*barlam[2, p7])*(lam[2, m1]*
                  spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                      p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                   ((lam[2, p3] - (lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p3] - 
                      (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p3]) + barlam[1, p3]*barlam[2, p7])*(lam[1, m1]*
                 spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  ((lam[2, p3] - (lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p3] - 
                     (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))*(-((-(barlam[1, p7]*barlam[2, 
                    p3]) + barlam[1, p3]*barlam[2, p7])*
                ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*lam[2, p5] - (lam[2, et5]*((lam[2, p3] - 
                      (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - (lam[1, p3] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]) - 
                    (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                   m1])) + (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                 barlam[2, p7])*((-(barlam[1, p5]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p5])*lam[1, p5] - 
                (lam[1, et5]*((lam[2, p3] - (lam[2, et6]*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p3] - 
                     (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                 m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                {m1, p2}, m1])*((barlam[2, p2]*(-(barlam[1, p4]*
                   (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                 barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]) - 
              (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*spa[p2, m1]*
                (-(barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - (lam[1, et6]*
                        (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) - barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                (-(barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - (lam[1, et6]*
                        (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                spba[p7, {m1, p2}, m1])))/
            (((barlam[2, p3]*(barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
               (barlam[1, p3]*(barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (-((barlam[2, p7]*(barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                       (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               (barlam[1, p7]*(barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  ((lam[2, p3] - (lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p3] - 
                     (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1])))) - lam[1, p6]*(lam[2, m1]*
                 spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  ((lam[2, p3] - (lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p3] - 
                     (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1])))))*((lam[2, m1]*spb[m1, p7] + 
                lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[1, p5]*
                    lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  ((lam[2, p3] - (lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p3] - 
                     (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1]))))*((-(barlam[1, p5]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p5])*lam[1, p5] - 
                (lam[1, et5]*((lam[2, p3] - (lam[2, et6]*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p3] - 
                     (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  ((lam[2, p3] - (lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p3] - 
                     (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1]))))*((-(barlam[1, p5]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p5])*lam[2, p5] - 
                (lam[2, et5]*((lam[2, p3] - (lam[2, et6]*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p3] - 
                     (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])))))*
             ((lam[2, p3] - (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                    lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                    lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*(
                (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p5])*lam[2, p5] - (lam[2, et5]*((lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]))))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*(
                (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p5])*lam[1, p5] - (lam[1, et5]*((lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]))) - (10*CK*((barlam[2, p3]*(-(barlam[1, p4]*
                   (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                 barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p5])))*(-((barlam[2, p7]*
                 (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5]))) + (barlam[1, p7]*
                (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p5])))*(lam[2, p6]*(
                (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p5])*lam[1, p5] - (lam[1, et5]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 (((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*((barlam[1, p6]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                  barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
              lam[1, p6]*((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p5])*lam[2, p5] - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 (((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*((barlam[1, p6]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                  barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
             (lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[2, p2]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1])))/(((barlam[2, p3]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*(
                (barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p3] - 
                (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1])) - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[2, p2]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1])))/(((barlam[2, p3]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*(
                (barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]))*(-((barlam[2, p3]*
                  (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                       lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                    spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2*
             ((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-(((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]))) + 
              ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]))*(-(barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1])^5)/
            ((-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                      p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                 lam[2, p5] - (lam[2, et5]*(-(lam[2, p6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 (((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*(lam[1, p3] - 
                (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1])) - (lam[1, et5]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[2, p2]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1])))/(((barlam[2, p3]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) - 
              ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                 lam[1, p5] - (lam[1, et5]*(-(lam[2, p6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 (((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*(lam[2, p3] - 
                (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1])) - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[2, p2]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1])))/(((barlam[2, p3]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))))*
             (-(((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*lam[2, p5] - (lam[2, et5]*(-(lam[2, p6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p3]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  (((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                 lam[1, p5] - (lam[1, et5]*(-(lam[2, p6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 (((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, 
                      p4] - lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                       p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                    (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[1, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[2, p2]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1])))/(((barlam[2, p3]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
                ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                   m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                  spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p3] - 
                (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1])) - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[2, p2]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1])))/(((barlam[2, p3]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*(
                (barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]))*(-((barlam[2, p6]*(barlam[1, p6]*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                   (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p6]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) - (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^2*
             (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) - (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                    spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])*
                  spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) - (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])*spba[p7, {m1, p2}, m1]))^
              2) - (10*CK*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                     lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
              (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5])))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
             (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
              (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5])))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
             (-(((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*lam[2, p5] - (lam[2, et5]*((lam[2, m1]*spb[m1, 
                        p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                        lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  (((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                   m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                  spba[p7, {m1, p2}, m1])) + ((-(barlam[1, p5]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 (((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                  barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
             (-((lam[2, p3] - (lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                    lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]) - 
                    (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])))/
                  (((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                   m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                  spba[p7, {m1, p2}, m1])) + (lam[1, p3] - 
                (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1])) - (lam[1, et5]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                       lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                     lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*lam[1, et6]*(lam[1, p5]*
                         lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1])))/(((barlam[2, p3]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*(
                (barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]))*(-((barlam[2, p3]*
                  (-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                    spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               (barlam[1, p3]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2*
             ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-(((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]))) + 
              ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]))*(-(barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1])^5)/
            ((lam[2, p6]*((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p5])*lam[1, p5] - (lam[1, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 (((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))) - lam[1, p6]*(
                (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p5])*lam[2, p5] - (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[1, p5]*
                         lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 (((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*(((-(barlam[1, p5]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p5])*lam[2, p5] - 
                (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 (((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))*(lam[1, p3] - (lam[1, et6]*
                  (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1])) - (lam[1, et5]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                       lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                     lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*lam[1, et6]*(lam[1, p5]*
                         lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1])))/(((barlam[2, p3]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
              ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                 lam[1, p5] - (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[1, p5]*
                         lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 (((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))*(lam[2, p3] - (lam[2, et6]*
                  (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1])) - (lam[2, et5]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                       lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                         lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                     lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*lam[1, et6]*(lam[1, p5]*
                         lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1])))/(((barlam[2, p3]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((lam[2, p3] - (lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                    lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])))/
                 (((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                  barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                    lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])))/
                 (((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                  barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[2, p7]*(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                    spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               (barlam[1, p7]*(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2*
             (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])*spba[p7, {m1, p2}, 
                   m1])) + (barlam[1, p2]*spa[p2, m1]*(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])*spba[p7, {m1, p2}, m1]))^
              2) - (10*CK*(barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                2, p7])*(-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
               (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))^5*
             (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                 (lam[1, et5]*(-((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))))*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                        barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))/((lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                      p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et5]*(-((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (-(lam[2, p6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))))*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et5]*(-((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (-(lam[2, p6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))))*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                (lam[1, et5]*(-((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (-(lam[2, p6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))))*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((barlam[2, p7]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]) + (lam[2, et5]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                     spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              (barlam[1, p7]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]) + (lam[2, et5]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                     spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1])^2*(-((barlam[1, p7]*barlam[2, p2]*
                 spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])*
             ((barlam[2, p2]*spa[p2, m1]*(barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/(
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                 m1]) - (barlam[1, p2]*spa[p2, m1]*(barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])) - (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/(
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                 m1]))*(-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) - (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                (((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                  {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/(((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                 m1])))/((lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                 spb[p2, p7] + (lam[1, et5]*(-((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))))*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et5]*(-((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (-(lam[2, p6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))))*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
               lam[2, p5]*(lam[1, p3] - (lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
               lam[1, p5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p5]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                   {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                 ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*
                  s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                 ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                  s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p6])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p3]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2*
             (((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
               ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[2, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))^2)))/
         ((lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
          ((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                  lam[2, et6] - lam[1, et6]*lam[2, p5])))/
             ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
              (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
            (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                  lam[2, et6] - lam[1, et6]*lam[2, p5])))/
             ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
              (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))^2*
          (-((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                   lam[2, et6] - lam[1, et6]*lam[2, p5])))/
              ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*(
                lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
            (barlam[1, p5]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                  lam[2, et6] - lam[1, et6]*lam[2, p5])))/
             ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
              (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))^2) + 
        ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])^5*
          ((-10*CK*(barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                p7])*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
               (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))^5*
             (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - (((-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))))) + (barlam[1, p3]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - (((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                    (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p6])*(-(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))))/((lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p5]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))))*
             ((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - (((-(barlam[1, p6]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                     lam[2, et5] - (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                   (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))/(
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))) - (barlam[1, p7]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - (((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                    (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p6])*(-(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))))/((lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p5]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))))*
             (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - (((-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))))) + (barlam[1, p7]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - (((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                    (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p6])*(-(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))))/((lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p5]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))))*
             (lam[2, p5]*((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                   (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p5]*lam[2, p6])*((barlam[2, p3]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                   (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              lam[1, p5]*((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                   (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p5]*lam[2, p6])*((barlam[2, p3]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                   (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p5]*((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, p3] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                   (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p5]*lam[2, p6])*((barlam[2, p2]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p2}, m1])))/((lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              lam[1, p5]*((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p3] - (lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                   (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p5]*lam[2, p6])*((barlam[2, p2]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p2}, m1])))/((lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                 m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                {m1, p2}, m1])*((barlam[2, p2]*(-(barlam[1, p5]*
                    (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
                  (((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                         p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p6])*(-(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))*spa[p2, m1])/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))*spba[p7, {m1, p2}, m1]) - 
               (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - (((-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 spa[p2, m1])/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                   lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (barlam[1, p5]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 spba[p7, {m1, p2}, m1]))^2)/
            ((-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p6])*lam[1, p6]*lam[2, p5]) + (-(barlam[1, p6]*barlam[2, 
                   p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p5]*lam[2, p6])*
             (-((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5]) + (((-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                       lam[2, et5] - (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))))) + (barlam[1, p5]*
                 (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + (((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))))^2*
             (((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(barlam[1, p5]*(lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                         p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p6])*(-(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))))/((barlam[1, p6]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p5]*
                   lam[2, et5] - lam[1, et5]*lam[2, p5])*(lam[1, p6]*
                   lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))) - ((-(barlam[1, p4]*
                    (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]))*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + (((-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))))^2*
             (-(lam[2, p5]*((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) - (barlam[1, p5]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                      p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                    (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p6])*lam[1, p5]*lam[2, p6])*((barlam[2, p3]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                    (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p5]*((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                   (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p5]*lam[2, p6])*((barlam[2, p3]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                   (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                      p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                    (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p6])*lam[1, p5]*lam[2, p6])*((barlam[2, p3]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                    (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p3] - 
                 (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*
                       barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])) - (lam[1, et5]*(-((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      lam[1, p6]*lam[2, p5]) + (-(barlam[1, p6]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p5]*
                     lam[2, p6])*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1])))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                   (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p5]*lam[2, p6])*((barlam[2, p3]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                   (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p3] - 
                (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                   (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p5]*lam[2, p6])*((barlam[2, p2]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p2}, m1])))/((lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((lam[2, p3] - (lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                    lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                    (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p6])*lam[1, p5]*lam[2, p6])*((barlam[2, p2]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p2}, m1])))/((lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              (lam[1, p3] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                    lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                   (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p5]*lam[2, p6])*((barlam[2, p2]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p2}, m1])))/((lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
           (10*CK*(barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])^
              5*((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - barlam[1, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
              (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - barlam[2, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])))*
             (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - barlam[1, p3]*(lam[2, et5]*
                     (lam[1, p3] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]))) + 
              (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - barlam[2, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])))*
             (-(((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et5] - lam[1, et5]*lam[2, p5])) - barlam[1, p3]*
                    (lam[2, et5]*(lam[1, p3] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                       (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
               ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[2, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5])) - barlam[2, p3]*
                   (lam[2, et5]*(lam[1, p3] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))^2*
             ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
               lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  (-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])))) - 
              (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
               lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  (-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])))))*
             ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
               lam[2, p5]*((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[1, p6] - (lam[1, et5]*
                  (-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])))) - 
              (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
               lam[1, p5]*((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[2, p6] - (lam[2, et5]*
                  (-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])))))*
             (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                 m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                {m1, p2}, m1])*((barlam[2, p2]*(-(barlam[1, p4]*
                   (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
              (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*spa[p2, m1]*
                (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p6]*
                         lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*spba[p7, {m1, p2}, m1]) - 
              (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5])) - barlam[2, p3]*
                  (lam[2, et5]*(lam[1, p3] - (lam[1, et6]*(lam[1, p6]*
                         lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                spba[p7, {m1, p2}, m1])))/
            (((barlam[2, p3]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + barlam[1, p3]*(lam[2, et5]*
                     (lam[1, p3] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
               (barlam[1, p3]*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + barlam[2, p3]*(lam[2, et5]*
                     (lam[1, p3] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])))^2*
             (-((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5]) + barlam[1, p3]*(lam[2, et5]*
                      (lam[1, p3] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                       (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]))) + 
               (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + barlam[2, p3]*(lam[2, et5]*
                     (lam[1, p3] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])))^2*
             (-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*(lam[1, p6]*lam[2, 
                      p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                       p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                    (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p5])*lam[2, p5]*((-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*lam[1, p6] - 
                 (lam[1, et5]*(-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p3]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
                    (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]))))) + 
              (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
               lam[1, p5]*((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[2, p6] - (lam[2, et5]*
                  (-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  (-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]))))*(
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[1, p6] - (lam[1, et5]*(-(lam[2, p5]*
                     (lam[1, p3] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  (-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]))))*(
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[2, p6] - (lam[2, et5]*(-(lam[2, p5]*
                     (lam[1, p3] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                      p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                   (-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
                    (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                   m1])) + (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  (-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]))) - (10*CK*(barlam[1, p5]*barlam[2, p3] - 
              barlam[1, p3]*barlam[2, p5])*(barlam[1, p7]*barlam[2, p3] - 
               barlam[1, p3]*barlam[2, p7])^2*(-(barlam[1, p7]*barlam[2, 
                 p5]) + barlam[1, p5]*barlam[2, p7])*
             ((barlam[2, p3]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[1, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                   lam[2, p5]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))) - (barlam[1, p3]*(barlam[2, p5]*(lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5]) + barlam[2, p3]*
                  (lam[2, et5]*(lam[1, p3] - (lam[1, et6]*(lam[1, p6]*
                         lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                   lam[2, p5]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))*(-((barlam[2, p3]*(barlam[1, p5]*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - (lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p3]*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[2, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                   lam[2, p5]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))*((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5]) + barlam[1, p3]*
                  (lam[2, et5]*(lam[1, p3] - (lam[1, et6]*(lam[1, p6]*
                         lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                   lam[2, p5]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))) - (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5]) + barlam[2, p3]*
                  (lam[2, et5]*(lam[1, p3] - (lam[1, et6]*(lam[1, p6]*
                         lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                   lam[2, p5]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))*(-(lam[2, p5]*(lam[1, p3] + (lam[1, et5]*
                   (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                       lam[1, p5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) - (-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*((lam[2, p3] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p3] - 
                        (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (lam[1, et6]*
                   (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*
                       barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p3] + 
                (lam[2, et5]*(-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p5])*(-(lam[2, p5]*(lam[1, p3] - 
                         (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                      lam[1, p5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) - (-(barlam[1, p7]*barlam[2, 
                        p5]) + barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*((lam[2, p3] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p3] - 
                       (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - (lam[2, et6]*
                  (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))))*((lam[2, p3] + (lam[2, et5]*
                  (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                      lam[1, p5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) - (-(barlam[1, p7]*barlam[2, 
                        p5]) + barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*((lam[2, p3] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p3] - 
                       (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - (lam[2, et6]*
                  (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]) - (lam[1, p3] + (lam[1, et5]*
                  (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                      lam[1, p5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) - (-(barlam[1, p7]*barlam[2, 
                        p5]) + barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*((lam[2, p3] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p3] - 
                       (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - (lam[1, et6]*
                  (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*
                 (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                 (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 spba[p7, {m1, p2}, m1]))^5)/
            ((((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5])) - barlam[1, p3]*
                   (lam[2, et5]*(lam[1, p3] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6])*((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))) - ((-(barlam[1, p4]*
                    (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]))*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - barlam[2, p3]*(lam[2, et5]*
                     (lam[1, p3] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6])*((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))))^2*
             (-(lam[2, p5]*((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                    barlam[2, p5])*lam[1, p5] + (-(barlam[1, p7]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
              lam[1, p5]*((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p5])*lam[2, p5] + (-(barlam[1, p7]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
             ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1]) - lam[1, p5]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((lam[2, p3] + (lam[2, et5]*(-((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(-(lam[2, p5]*
                         (lam[1, p3] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p3] - 
                         (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*((lam[2, p3] - 
                        (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, p3] - (lam[1, et6]*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (lam[2, et6]*
                   (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*
                       barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (lam[1, p3] + 
                (lam[1, et5]*(-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p5])*(-(lam[2, p5]*(lam[1, p3] - 
                         (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                      lam[1, p5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) - (-(barlam[1, p7]*barlam[2, 
                        p5]) + barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*((lam[2, p3] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p3] - 
                       (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - (lam[1, et6]*
                  (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*spa[p2, m1]*
                 (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                 spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                 spba[p7, {m1, p2}, m1]))^2) - 
           (10*CK*(-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                p7])*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                      lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
              (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
             (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
               (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))^2*
             (-(lam[2, p5]*((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                    barlam[2, p6])*lam[1, p6] + (lam[1, et5]*
                   (-((-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p5]*lam[2, p6])*
                      (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                         ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))) + (barlam[1, p5]*
                         (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) - (-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                    (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              lam[1, p5]*((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[2, p6] + (lam[2, et5]*
                  (-((-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p5]*lam[2, p6])*
                     (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (-((barlam[2, p7]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                     (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))*((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))))*((barlam[2, p5]*(barlam[1, p5]*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 (((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p6])*(-(barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                  (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))) - (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 (((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p6])*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                  (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))*(((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]))*(barlam[1, p5]*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 (((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p6])*(-(barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))) - ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]))*(barlam[2, p5]*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 (((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p6])*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))))*(-(((-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                 (barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + (((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6])*((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (-((barlam[2, p7]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))) + ((-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + (((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                    (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p6])*(-(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))))*(((-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                (lam[2, et5]*(-((-((-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, 
                         p5]) + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p5]*lam[2, p6])*
                     (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (-((barlam[2, p7]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                     (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))*((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]) - ((-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                (lam[1, et5]*(-((-((-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, 
                         p5]) + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p5]*lam[2, p6])*
                     (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (-((barlam[2, p7]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                     (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))*((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                 barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])^5)/
            ((-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p5])) - (((-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                       lam[2, et5] - (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (-((barlam[2, p7]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))) + (barlam[1, p3]*(-(barlam[2, p5]*
                    (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
                  (((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                         p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p6])*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))^2*(-(lam[2, p5]*(lam[1, p5]*
                  ((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])) - (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + ((barlam[2, p7]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                   (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                    spba[p7, {m1, p2}, m1]))) + lam[1, p5]*(lam[2, p5]*
                 ((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6])) - (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + ((barlam[2, p7]*
                    (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                  (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                   spba[p7, {m1, p2}, m1])))*((lam[2, m1]*spb[m1, p7] + 
                lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[1, p6]*
                    lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p3] - 
                (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))) - (lam[1, m1]*spb[m1, p7] + 
                lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*lam[1, et6]*(lam[1, p6]*
                    lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p3] - 
                (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))))*(lam[2, p5]*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1]))*(-(((-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                 (lam[2, et5]*(-((-((-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, 
                          p5]) + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p5]*lam[2, p6])*
                      (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                         ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))) + (barlam[1, p5]*
                         (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) - (-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                    (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                   m1])) + ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[1, p6] + (lam[1, et5]*
                  (-((-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p5]*lam[2, p6])*
                     (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (-((barlam[2, p7]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                     (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))*((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))*(-((barlam[2, p2]*spa[p2, m1]*
                  (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                       lam[2, p5])) - (((-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/(((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                     (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (-((barlam[2, p7]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                     (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))*spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                 spa[p2, m1]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - (((-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/(((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (-((barlam[2, p7]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))*spba[p7, {m1, p2}, m1]))^2) - 
           (10*CK*(barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
             (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
               (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))^5*
             (-((barlam[2, p3]*(-((((-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p3]*(-((((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             ((barlam[2, p5]*(-((((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p5]*(-((((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[2, p5]*(-((((-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p5]*(-((((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-(((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                  ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])) - (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))*(lam[2, m1]*spb[m1, p7] + 
                 lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[1, p6]*
                     lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                   ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (-(barlam[1, p6]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              ((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (-(barlam[1, p6]*barlam[2, 
                        p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-(((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                  ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])) - (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))*(lam[2, p3] - (lam[2, et6]*
                   (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*
                       barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])) - (lam[2, et5]*((-(barlam[1, p6]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                     lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (-(barlam[1, p6]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + ((barlam[2, p7]*
                  (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                     p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, p3] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                      barlam[2, p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p2}, m1])))/((lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                 m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                {m1, p2}, m1])*((barlam[2, p2]*spa[p2, m1]*
                 (-((((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                 (-((((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 spba[p7, {m1, p2}, m1]))^2)/
            ((-((barlam[2, p7]*((((-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               (barlam[1, p7]*((((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*((((-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6])*(-((barlam[2, p7]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
               ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*((((-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6])*(-((barlam[2, p7]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (lam[2, p5]*(lam[1, p3] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                      barlam[2, p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p2}, m1])))/((lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              lam[1, p5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                      barlam[2, p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p2}, m1])))/((lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                      p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                   ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (-(barlam[1, p6]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p3] - 
                 (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*
                       barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])) - (lam[1, et5]*((-(barlam[1, p6]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                     lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (-(barlam[1, p6]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])))) + (lam[1, m1]*spb[m1, p7] + 
                lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*lam[1, et6]*(lam[1, p6]*
                    lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (-(barlam[1, p6]*barlam[2, 
                        p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p3] - 
                (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1])) - (lam[2, et5]*((-(barlam[1, p6]*
                       barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                    lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1]) - (-(barlam[1, p6]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p6])*lam[1, p6]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (-(barlam[1, p6]*barlam[2, 
                        p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              ((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (-(barlam[1, p6]*barlam[2, 
                        p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
           (10*CK*(barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])^
              5*((barlam[2, p5]*(-(barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) - barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p5]*(-(barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                       (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p5]*(-(barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-(((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))*(-(barlam[1, p3]*(lam[2, et5]*
                       (lam[1, p3] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                        (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(barlam[1, p7]*barlam[2, 
                     p3] - barlam[1, p3]*barlam[2, p7])*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6])*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[2, p3]*(lam[2, et5]*
                      (lam[1, p3] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                       (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(barlam[1, p7]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p7])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))))^2*(-((-(barlam[1, p7]*barlam[2, 
                    p3]) + barlam[1, p3]*barlam[2, p7])*(lam[2, m1]*
                  spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                      p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                   ((lam[2, p3] - (lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p3] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p3]) + barlam[1, p3]*barlam[2, p7])*(lam[1, m1]*
                 spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  ((lam[2, p3] - (lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p3] - 
                     (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))*(-((-(barlam[1, p7]*barlam[2, 
                    p3]) + barlam[1, p3]*barlam[2, p7])*
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*lam[2, p6] - (lam[2, et5]*((lam[2, p3] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - (lam[1, p3] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
                    (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                   m1])) + (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                 barlam[2, p7])*((-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[1, p6] - 
                (lam[1, et5]*((lam[2, p3] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p3] - 
                     (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                 m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                {m1, p2}, m1])*((barlam[2, p2]*(-(barlam[1, p4]*
                   (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
              (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*spa[p2, m1]*
                (-(barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - (lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) - barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                (-(barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - (lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                spba[p7, {m1, p2}, m1])))/
            (((barlam[2, p3]*(barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
               (barlam[1, p3]*(barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (-((barlam[2, p7]*(barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                       (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               (barlam[1, p7]*(barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  ((lam[2, p3] - (lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p3] - 
                     (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1])))) - lam[1, p5]*(lam[2, m1]*
                 spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  ((lam[2, p3] - (lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p3] - 
                     (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1])))))*((lam[2, m1]*spb[m1, p7] + 
                lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[1, p6]*
                    lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  ((lam[2, p3] - (lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p3] - 
                     (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1]))))*((-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[1, p6] - 
                (lam[1, et5]*((lam[2, p3] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p3] - 
                     (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  ((lam[2, p3] - (lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p3] - 
                     (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1]))))*((-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[2, p6] - 
                (lam[2, et5]*((lam[2, p3] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p3] - 
                     (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])))))*
             ((lam[2, p3] - (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                    lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p3] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                    lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*(
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[2, p6] - (lam[2, et5]*((lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, p3] - (lam[1, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]))))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*(
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[1, p6] - (lam[1, et5]*((lam[2, p3] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, p3] - (lam[1, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]))) - (10*CK*((barlam[2, p3]*(-(barlam[1, p4]*
                   (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6])))*(-((barlam[2, p7]*
                 (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6])))*(lam[2, p5]*(
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[1, p6] - (lam[1, et5]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))))*((barlam[1, p5]*barlam[2, 
                   p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) - lam[1, p5]*((-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[2, p6] - 
                (lam[2, et5]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))))*((barlam[1, p5]*barlam[2, 
                   p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]))*(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*
                  (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1])) - (lam[1, et5]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[2, p2]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1])))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5])*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))))*(
                (barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]) - lam[1, p5]*(lam[2, p3] - 
                (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1])) - (lam[2, et5]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[2, p2]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1])))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5])*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))))*(
                (barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]))*(-((barlam[2, p3]*
                  (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                       lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                    spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2*
             ((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-(((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5])) + 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]))) + 
              ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]))*(-(barlam[2, p5]*(lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5])) + 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1])^5)/
            ((-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                      p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                 lam[2, p6] - (lam[2, et5]*(-(lam[2, p5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))))*(lam[1, p3] - 
                (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1])) - (lam[1, et5]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[2, p2]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1])))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5])*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))) - 
              ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                 lam[1, p6] - (lam[1, et5]*(-(lam[2, p5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))))*(lam[2, p3] - 
                (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1])) - (lam[2, et5]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[2, p2]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1])))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5])*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))))*
             (-(((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*lam[2, p6] - (lam[2, et5]*(-(lam[2, p5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p3]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                 lam[1, p6] - (lam[1, et5]*(-(lam[2, p5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*(lam[1, p6]*lam[2, 
                      p4] - lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                       p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                    (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[1, et5]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[2, p2]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1])))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*((barlam[2, p3]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))))*
                ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                   m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                  spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p3] - 
                (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1])) - (lam[2, et5]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[2, p2]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1])))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5])*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))))*(
                (barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]))*(-((barlam[2, p5]*(barlam[1, p5]*
                    (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) - 
                   (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p5]*
                 (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) - (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^2*
             (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5]) - (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                    spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])*
                  spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                 (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) - (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])*spba[p7, {m1, p2}, m1]))^
              2) - (10*CK*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                     lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
              (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
             (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
              (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
             (-(((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*lam[2, p6] - (lam[2, et5]*((lam[2, m1]*spb[m1, 
                        p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                        lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  (((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                   m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                  spba[p7, {m1, p2}, m1])) + ((-(barlam[1, p6]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 (((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                  barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
             (-((lam[2, p3] - (lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                    lam[1, p4]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
                    (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])))/
                  (((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                   m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                  spba[p7, {m1, p2}, m1])) + (lam[1, p3] - 
                (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1])) - (lam[1, et5]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                       lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                     lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*lam[1, et6]*(lam[1, p6]*
                         lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1])))/(((barlam[2, p3]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*(
                (barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]))*(-((barlam[2, p3]*
                  (-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                    spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               (barlam[1, p3]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2*
             ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              (barlam[1, p5]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              (barlam[1, p5]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-(((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]))) + 
              ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]))*(-(barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1])^5)/
            ((lam[2, p5]*((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[1, p6] - (lam[1, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 (((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))) - lam[1, p5]*(
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[2, p6] - (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[1, p6]*
                         lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 (((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*(((-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[2, p6] - 
                (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 (((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))*(lam[1, p3] - (lam[1, et6]*
                  (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1])) - (lam[1, et5]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                       lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                     lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*lam[1, et6]*(lam[1, p6]*
                         lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1])))/(((barlam[2, p3]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
              ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                 lam[1, p6] - (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[1, p6]*
                         lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 (((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))*(lam[2, p3] - (lam[2, et6]*
                  (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1])) - (lam[2, et5]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                       lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                     lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*lam[1, et6]*(lam[1, p6]*
                         lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1]) - (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1])))/(((barlam[2, p3]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((lam[2, p3] - (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                    lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])))/
                 (((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                  barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p3] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                    lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])))/
                 (((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                  barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[2, p7]*(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                    spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               (barlam[1, p7]*(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2*
             (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])*spba[p7, {m1, p2}, 
                   m1])) + (barlam[1, p2]*spa[p2, m1]*(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])*spba[p7, {m1, p2}, m1]))^
              2) - (10*CK*(-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
               barlam[2, p7])*(-((barlam[2, p3]*(-(barlam[1, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                   barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]))) + (barlam[1, p3]*
                 (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6])))^5*(-(lam[2, p5]*
                (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                 (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                          ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                      lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                     (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))/((lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                      p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]) + (lam[2, et5]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                     spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]) + (lam[2, et5]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                     spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                 m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                {m1, p2}, m1])*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                 spa[p2, m1])/spba[p7, {m1, p2}, m1])^2*
             ((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/(
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                 m1]) - (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])) - (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/(
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                 m1]))*(-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) - (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                (((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                  {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                 m1])))/(((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                 barlam[2, p6])*lam[2, p6]*(lam[1, p3] - (lam[1, et6]*
                  (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))) - (-(barlam[1, p6]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p6])*lam[1, p6]*(lam[2, p3] - 
                (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))))*(-(lam[2, p5]*(lam[1, p5]*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                  ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) + lam[1, p5]*(
                lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                 ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1])))*(lam[2, p5]*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1]))*(-((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                  spb[p2, p7] + (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p7])*
                      (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                          ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                      lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                     (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))/((lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                      p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p5])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p3]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2*
             (((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5])) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
               ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[2, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5])) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))^2)))/
         ((lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
          ((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                  lam[2, et6] - lam[1, et6]*lam[2, p6])))/
             ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
              (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
            (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                  lam[2, et6] - lam[1, et6]*lam[2, p6])))/
             ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
              (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))^2*
          (-((barlam[2, p6]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                   lam[2, et6] - lam[1, et6]*lam[2, p6])))/
              ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*(
                lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
            (barlam[1, p6]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                  lam[2, et6] - lam[1, et6]*lam[2, p6])))/
             ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
              (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))^2) + 
        ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])^5*
          ((-10*CK*(barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                p6])*(-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
                  ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))) + 
              (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - ((-(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))/((barlam[1, p7]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))))/(
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                 (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
             ((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - ((-(barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))/((barlam[1, p7]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))))/(
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                 (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) - 
              (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - ((-(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))/((barlam[1, p7]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))))/(
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                 (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
             (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - ((-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))) + 
              (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - ((-(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))/((barlam[1, p7]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))))/(
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                 (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
             (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^5*
             (lam[2, p5]*((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p7])*lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              lam[1, p5]*((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p7])*lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p5]*((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[1, p3] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, p5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*spa[p2, m1]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              lam[1, p5]*((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[2, p3] - (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, p5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*spa[p2, m1]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                 m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                {m1, p2}, m1])*((barlam[2, p2]*spa[p2, m1]*
                 (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - ((-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                 spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - ((-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                 spba[p7, {m1, p2}, m1]))^2)/
            ((-((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5]) + ((-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*lam[2, et5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/((lam[1, p5]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))) + (barlam[1, p5]*
                 (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + ((-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))^2*
             (-(((barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5]) + ((-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                     ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               ((barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + ((-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                 (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p7])*(lam[1, p5]*
                   lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (-(lam[2, p5]*((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - (barlam[1, p5]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[1, p5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p5]*((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p7])*lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, p5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*spa[p2, m1]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              lam[1, p6]*(lam[2, p3] - (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, p5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*spa[p2, m1]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[1, p5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p3] - 
                 (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p7])*lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*spa[p2, m1]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                    (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1])))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p7])*lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p3] - 
                (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, p5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*spa[p2, m1]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p7])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p4]) + barlam[1, p4]*barlam[2, p7])*lam[1, p5]*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]))) - (10*CK*(barlam[1, p5]*barlam[2, p3] - 
              barlam[1, p3]*barlam[2, p5])*(-((barlam[2, p3]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - ((-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))) + 
              (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - ((-(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))/((barlam[1, p7]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                 (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
             ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - ((-(barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))/((barlam[1, p7]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                 (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) - 
              (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - ((-(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))/((barlam[1, p7]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                 (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
             (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - ((-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))) + 
              (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - ((-(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))/((barlam[1, p7]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                 (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
             (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^5*
             (lam[2, p6]*((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p7])*lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              lam[1, p6]*((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p7])*lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p6]*((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[1, p3] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*spa[p2, m1]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              lam[1, p6]*((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[2, p3] - (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*spa[p2, m1]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                 m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                {m1, p2}, m1])*((barlam[2, p2]*spa[p2, m1]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - ((-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                 spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - ((-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                 spba[p7, {m1, p2}, m1]))^2)/
            ((-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + ((-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*lam[2, et5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))) + (barlam[1, p6]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + ((-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))^2*
             (-(((barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6]) + ((-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                     ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               ((barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + ((-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                 (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p7])*(lam[1, p6]*
                   lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (-(lam[2, p6]*((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - (barlam[1, p6]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[1, p6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p6]*((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p7])*lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p5]*(lam[1, p3] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*spa[p2, m1]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              lam[1, p5]*(lam[2, p3] - (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*spa[p2, m1]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[1, p6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p3] - 
                 (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p7])*lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*spa[p2, m1]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                    (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1])))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p7])*lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p3] - 
                (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*spa[p2, m1]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p4]) + barlam[1, p4]*barlam[2, p7])*lam[1, p6]*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]))) - (10*CK*(barlam[1, p6]*barlam[2, p5] - 
              barlam[1, p5]*barlam[2, p6])*((barlam[2, p6]*(barlam[1, p5]*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                   lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (barlam[1, p5]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) - 
              (barlam[1, p6]*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                   lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (barlam[1, p5]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
             (-(lam[2, p5]*((lam[1, et5]*(-((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                       lam[1, p5]*lam[2, p6])) - (-((barlam[2, p5]*
                         (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                    (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                    (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + (-(barlam[1, p7]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1]))) + lam[1, p5]*(
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-((barlam[2, p5]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                     (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p7])*lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])))*(-(lam[2, p6]*((lam[1, et5]*
                   (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                         p6])) - (-((barlam[2, p5]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                      (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                    (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                    (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + (-(barlam[1, p7]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1]))) + lam[1, p6]*(
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-((barlam[2, p5]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                     (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p7])*lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])))*(-((barlam[2, p5]*(-(barlam[1, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                   barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))) + (barlam[1, p5]*
                 (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                     spba[p7, {m1, p2}, m1]))))^2*
             (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (((barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + ((-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))/((barlam[1, p7]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p7])*((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))) - ((barlam[1, p5]*(lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5]) + barlam[1, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))*(lam[2, et6]*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                     m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                    spba[p7, {m1, p2}, m1]))))*
             (-(((barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + ((-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                 (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p7])*
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              ((barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + ((-(barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))/((barlam[1, p7]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p7])*((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))))*(-((barlam[1, p3]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                 barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])^5)/
            ((-(lam[1, p6]*lam[2, p5]) + lam[1, p5]*lam[2, p6])*
             (-(lam[2, p6]*(lam[1, p5]*((barlam[2, p5]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (barlam[1, p5]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*((barlam[2, p6]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p6]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))) + lam[1, p6]*(
                lam[2, p5]*((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p5]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                lam[2, p6]*((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p6]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
             (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                   ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                     ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) + (barlam[1, p3]*(-(barlam[2, p5]*
                    (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
                  barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) - ((-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))^2*
             (lam[2, p5]*((lam[1, et5]*(-((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6])) - (-((barlam[2, p5]*
                        (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])) - lam[1, p5]*((lam[2, et5]*
                  (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                        p6])) - (-((barlam[2, p5]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                     (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p7])*lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])))*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                 spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(
                lam[1, p3] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p3] - 
                (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et5] - lam[1, et5]*lam[2, p5])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                   ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                     ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))/(((lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*
                        (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                    (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
                  spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - ((-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                (((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
                 spba[p7, {m1, p2}, m1]))^2) - 
           (10*CK*(barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])^
              5*((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - barlam[1, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])) - (barlam[1, p6]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])))*(-((barlam[2, p6]*
                 (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5]))) + (barlam[1, p6]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])))*
             (((-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))*(-(barlam[1, p4]*(lam[1, p4]*
                      lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
               ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))*(-(barlam[2, p4]*(lam[1, p4]*
                      lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
               lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(lam[2, p5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*((barlam[2, p2]*spa[p2, m1]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                      m1])))) - (-(barlam[1, p5]*barlam[2, p3]) + 
                barlam[1, p3]*barlam[2, p5])*lam[1, p5]*(lam[2, m1]*
                 spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(lam[2, p5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*((barlam[2, p2]*spa[p2, m1]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))))*
             ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
               lam[2, p5]*((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                   spba[p7, {m1, p2}, m1]) - (lam[1, et5]*
                  (-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, p3] - (lam[2, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                      m1])))) - (-(barlam[1, p5]*barlam[2, p3]) + 
                barlam[1, p3]*barlam[2, p5])*lam[1, p5]*(
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]) - (lam[2, et5]*(-(lam[2, p5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))))*
             (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                 m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                {m1, p2}, m1])*((barlam[2, p2]*spa[p2, m1]*
                (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*spba[p7, {m1, p2}, m1]) - 
              (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5])) - barlam[2, p3]*
                  (lam[2, et5]*(lam[1, p3] - (lam[1, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*spa[p2, m1]*
                (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
              (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                     lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                spba[p7, {m1, p2}, m1])))/
            (((barlam[2, p3]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + barlam[1, p3]*(lam[2, et5]*
                     (lam[1, p3] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])) - (barlam[1, p3]*(barlam[2, p5]*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - (lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])))^2*
             (-((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5]) + barlam[1, p3]*(lam[2, et5]*
                      (lam[1, p3] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                       (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]))) + (barlam[1, p5]*
                 (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])))^2*(-(lam[2, p5]*(lam[1, p3] - 
                 (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p5]*(lam[2, p3] - (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(lam[2, p5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*((barlam[2, p2]*spa[p2, m1]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                      m1])))) - lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[2, p4]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(lam[2, p5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*((barlam[2, p2]*spa[p2, m1]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))))*
             (-((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p5])*lam[2, p5]*((-(barlam[1, p7]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, et5]*
                   (-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p5]*(lam[2, p3] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))))) + 
              (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
               lam[1, p5]*((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                   spba[p7, {m1, p2}, m1]) - (lam[2, et5]*
                  (-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, p3] - (lam[2, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(lam[2, p5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*((barlam[2, p2]*spa[p2, m1]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))))*(
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]) - (lam[1, et5]*(-(lam[2, p5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                      m1])))) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                 spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p4])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(lam[2, p5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*((barlam[2, p2]*spa[p2, m1]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))))*(
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]) - (lam[2, et5]*(-(lam[2, p5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                      m1])))))) - (10*CK*(barlam[1, p6]*barlam[2, p3] - 
               barlam[1, p3]*barlam[2, p6])^5*((barlam[2, p5]*
                (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p6]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])) - (barlam[1, p5]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p6]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])))*(-((barlam[2, p5]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]))) + (barlam[1, p5]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p6]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])))*
             (((-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))*(-(barlam[1, p4]*(lam[1, p4]*
                      lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
               ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))*(-(barlam[2, p4]*(lam[1, p4]*
                      lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
               lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(lam[2, p6]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[2, p2]*spa[p2, m1]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                      m1])))) - (-(barlam[1, p6]*barlam[2, p3]) + 
                barlam[1, p3]*barlam[2, p6])*lam[1, p6]*(lam[2, m1]*
                 spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(lam[2, p6]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[2, p2]*spa[p2, m1]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))))*
             ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
               lam[2, p6]*((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                   spba[p7, {m1, p2}, m1]) - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, p3] - (lam[2, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                      m1])))) - (-(barlam[1, p6]*barlam[2, p3]) + 
                barlam[1, p3]*barlam[2, p6])*lam[1, p6]*(
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]) - (lam[2, et5]*(-(lam[2, p6]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))))*
             (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                 m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                {m1, p2}, m1])*((barlam[2, p2]*spa[p2, m1]*
                (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p6]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
              (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[2, p3]*
                  (lam[2, et5]*(lam[1, p3] - (lam[1, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*spa[p2, m1]*
                (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
              (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                     lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                spba[p7, {m1, p2}, m1])))/
            (((barlam[2, p3]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p3]*(lam[2, et5]*
                     (lam[1, p3] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])) - (barlam[1, p3]*(barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - (lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + barlam[1, p3]*(lam[2, et5]*
                      (lam[1, p3] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                       (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p6]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) + (barlam[1, p6]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*(-(lam[2, p6]*(lam[1, p3] - 
                 (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p6]*(lam[2, p3] - (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(lam[2, p6]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[2, p2]*spa[p2, m1]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                      m1])))) - lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[2, p4]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(lam[2, p6]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[2, p2]*spa[p2, m1]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))))*
             (-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*lam[2, p6]*((-(barlam[1, p7]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, et5]*
                   (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p6]*(lam[2, p3] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))))) + 
              (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
               lam[1, p6]*((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                   spba[p7, {m1, p2}, m1]) - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, p3] - (lam[2, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(lam[2, p6]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[2, p2]*spa[p2, m1]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))))*(
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]) - (lam[1, et5]*(-(lam[2, p6]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                      m1])))) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                 spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p4])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(lam[2, p6]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[2, p2]*spa[p2, m1]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))))*(
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]) - (lam[2, et5]*(-(lam[2, p6]*(lam[1, p3] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                      m1])))))) - (10*CK*(barlam[1, p5]*barlam[2, p3] - 
               barlam[1, p3]*barlam[2, p5])^2*(barlam[1, p6]*barlam[2, p3] - 
              barlam[1, p3]*barlam[2, p6])*(barlam[1, p6]*barlam[2, p5] - 
              barlam[1, p5]*barlam[2, p6])*((barlam[2, p3]*(barlam[1, p5]*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])) - (barlam[1, p3]*
                (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[2, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))*(-((barlam[2, p3]*
                 (barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p3]*(lam[2, et5]*
                     (lam[1, p3] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) + (barlam[1, p3]*
                (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[2, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))*((barlam[2, p6]*
                (barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[1, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])) - (barlam[1, p6]*
                (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[2, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))*(-(lam[2, p5]*(lam[1, p3] + 
                 (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                        lam[2, p6])) - (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(-(lam[2, p5]*
                        (lam[1, p3] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p3] - 
                        (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) - (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p3] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p3] - 
                        (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - (lam[1, et6]*(lam[2, p4]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                    (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p3] + 
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(-(lam[2, p5]*(lam[1, p3] - 
                        (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p3] - 
                       (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) - (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(-(lam[2, p6]*(lam[1, p3] - 
                        (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p3] - 
                       (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - (lam[2, et6]*(lam[2, p4]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-(lam[2, p6]*(lam[1, p3] + (lam[1, et5]*(-((barlam[1, p6]*
                        barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                    (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                      lam[1, p5]*(lam[2, p3] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) - 
                    (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                      lam[1, p6]*(lam[2, p3] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p6]*(lam[2, p3] + (lam[2, et5]*(-((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                   (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p5]*(lam[2, p3] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*(-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p6]*(lam[2, p3] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                      lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                 (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                     spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))^5)/
            ((-(lam[1, p6]*lam[2, p5]) + lam[1, p5]*lam[2, p6])*
             (-(((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p6])*lam[1, p6])*lam[2, p6]) + 
              lam[1, p6]*((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*lam[2, p6]))*
             (-(((-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                       lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) - barlam[2, p3]*(lam[2, et5]*
                      (lam[1, p3] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                       (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6]))*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))) + ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) - barlam[1, p3]*
                   (lam[2, et5]*(lam[1, p3] - (lam[1, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*
                 (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p7])*
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (lam[2, p5]*(lam[1, p3] + (lam[1, et5]*(-((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                   (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p5]*(lam[2, p3] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*(-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p6]*(lam[2, p3] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              lam[1, p5]*(lam[2, p3] + (lam[2, et5]*(-((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                   (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p5]*(lam[2, p3] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*(-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p6]*(lam[2, p3] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p7])*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*(
                lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5])) - barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                  barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - (lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                (((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))*
                 spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - barlam[2, p3]*(lam[2, et5]*
                     (lam[1, p3] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/(((barlam[1, p5]*barlam[2, 
                      p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))*
                 spba[p7, {m1, p2}, m1]))^2) - 
           (10*CK*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p5]*((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                   spba[p7, {m1, p2}, m1]) - (lam[1, et5]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*((barlam[1, p5]*
                  barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) - lam[1, p5]*((-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[2, et5]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*((barlam[1, p5]*
                  barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]))*(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*
                  (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*((barlam[1, p5]*
                  barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) - lam[1, p5]*(lam[2, p3] - (lam[2, et6]*
                  (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*((barlam[1, p5]*
                  barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]))*(-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et5] - lam[1, et5]*lam[2, p5])) + 
                   (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))) - lam[1, et5]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1])))))/spba[p7, {m1, p2}, 
                     m1]))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p3]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2*
             ((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-(((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))*(-(barlam[1, p5]*
                    (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) + 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))*(-(barlam[2, p5]*(lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5])) + 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((barlam[1, p7]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p7])*(lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1])^5)/
            ((-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p6]*((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                   spba[p7, {m1, p2}, m1]) - (lam[1, et5]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))) - lam[1, p6]*(
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]) - (lam[2, et5]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))))*
             (((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                 (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                    m1]) - (lam[2, et5]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                        lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*(lam[1, p3] - 
                (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))) - 
              ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                 (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                    m1]) - (lam[1, et5]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                        lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*(lam[2, p3] - 
                (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))))*
             (-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*(lam[2, p4]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                    (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])) - (lam[1, et5]*(-(lam[2, p5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                   ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
                ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                   m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                  spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p3] - 
                (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*((barlam[1, p5]*
                  barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]))*(-((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5]) - (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                    spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) - (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2*
             (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5]) - (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                    spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])*
                  spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                 (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) - (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])*
                 spba[p7, {m1, p2}, m1]))^2) - 
           (10*CK*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p6]*((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                   spba[p7, {m1, p2}, m1]) - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*((barlam[1, p6]*
                  barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) - lam[1, p6]*((-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*((barlam[1, p6]*
                  barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]))*(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*
                  (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*((barlam[1, p6]*
                  barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) - lam[1, p6]*(lam[2, p3] - (lam[2, et6]*
                  (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*((barlam[1, p6]*
                  barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]))*(-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                   (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))) - lam[1, et5]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1])))))/spba[p7, {m1, p2}, 
                     m1]))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p3]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2*
             ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-(((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))*(-(barlam[1, p6]*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))*(-((barlam[1, p6]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))*(-(barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((barlam[1, p7]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(-((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1])^5)/
            ((-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p5]*((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                   spba[p7, {m1, p2}, m1]) - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))) - lam[1, p5]*(
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]) - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))))*
             (((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                 (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                    m1]) - (lam[2, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                        lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*(lam[1, p3] - 
                (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))) - 
              ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                 (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                    m1]) - (lam[1, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                        lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*(lam[2, p3] - 
                (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))))*
             (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(lam[2, p4]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                    (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])) - (lam[1, et5]*(-(lam[2, p6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                   ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
                ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                   m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                  spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p3] - 
                (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*((barlam[1, p6]*
                  barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]))*(-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) - (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                    spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               (barlam[1, p6]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2*
             (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) - (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                    spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])*
                  spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) - (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])*
                 spba[p7, {m1, p2}, m1]))^2) - 
           (10*CK*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
             (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^5*
             (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                 (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                        lam[2, p6])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))/((lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                 (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                        lam[2, p6])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))/((lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             ((barlam[2, p6]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) - (barlam[1, p2]*
                   spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])) - (barlam[1, p6]*
                (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) - (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1])^2*(-((barlam[1, p6]*barlam[2, p2]*
                 spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])*
             ((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5]) + barlam[1, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                 (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                 m1]) - (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) - (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                 m1]))*(-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) - (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                  {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) - (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                 m1])))/((-(lam[1, p6]*lam[2, p5]) + lam[1, p5]*lam[2, p6])*
             (lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-(lam[2, p6]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              lam[1, p6]*(lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                     p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                 ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1])))*
             (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p7])*(lam[2, p3] - (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*(
                lam[1, p3] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) + (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                    spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p3]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2*
             (((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))*(-(barlam[1, p5]*
                    (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))*((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
               ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))*(-(barlam[2, p5]*
                    (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
                  barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))*((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))^2)))/
         (((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p4]) + barlam[1, p7]*(lam[2, et6]*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                     m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                    spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, 
                 p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                   m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1]))) - (barlam[1, p4]*(barlam[2, p4]*
                (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
               barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                     m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                   s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                   m1]))))^2*(-((barlam[2, p7]*(barlam[1, p4]*
                 (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                 barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                 (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                    m1])))) + (barlam[1, p7]*(barlam[2, p4]*
                (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
               barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                     m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                   s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                   m1]))))^2*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
              spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
             (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
        ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])^5*
          ((-10*CK*(-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
               (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))^5*
             (-((barlam[2, p4]*(-((((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5]*lam[2, 
                         et5] - (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                   barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])))/((-((barlam[2, p6]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]))) + (barlam[1, p6]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
               (barlam[1, p4]*(-((((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                      (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                  barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])))/((-((barlam[2, p6]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]))) + (barlam[1, p6]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             ((barlam[2, p7]*(-((((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                     (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6])))/((-((barlam[2, p6]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]))) + (barlam[1, p6]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
              (barlam[1, p7]*(-((((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                     (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6])))/((-((barlam[2, p6]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]))) + (barlam[1, p6]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (-((barlam[2, p7]*(-((((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                      (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])))/((-((barlam[2, p6]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]))) + (barlam[1, p6]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
              (barlam[1, p7]*(-((((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                     (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6])))/((-((barlam[2, p6]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]))) + (barlam[1, p6]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*lam[2, 
                p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*((-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p6]*
                    lam[2, p5] - (-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*lam[1, p5]*lam[2, p6]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) - lam[1, p6]*(
                (barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*((-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p6]*
                    lam[2, p5] - (-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*lam[1, p5]*lam[2, p6]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             (((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*lam[2, 
                p6]*(lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                   lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p6]*lam[2, p5] - (-(barlam[1, p5]*
                       barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                    lam[1, p5]*lam[2, p6])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1])))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              lam[1, p6]*((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[2, p4] - (lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                   lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p6]*lam[2, p5] - (-(barlam[1, p5]*
                       barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                    lam[1, p5]*lam[2, p6])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1])))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                {m1, p2}, m1])*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                spa[p2, m1])/spba[p7, {m1, p2}, m1])*
             ((barlam[2, p2]*(-((((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                     (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]))*spa[p2, m1])/((-((barlam[2, p6]*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                 (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])))*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                  lam[2, p6])*spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                (-((((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                     (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]))*spa[p2, m1])/((-((barlam[2, p6]*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                 (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])))*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                  lam[2, p6])*spba[p7, {m1, p2}, m1])))/
            (((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
               lam[1, p6]*lam[2, p5] - (-(barlam[1, p5]*barlam[2, p3]) + 
                barlam[1, p3]*barlam[2, p5])*lam[1, p5]*lam[2, p6])*
             (-((barlam[2, p6]*((((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                      (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                   barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])))/((-((barlam[2, p6]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]))) + (barlam[1, p6]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
               (barlam[1, p6]*((((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                     (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                  barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])))/((-((barlam[2, p6]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]))) + (barlam[1, p6]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*((((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5]*
                      lam[2, et5] - (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5])*(-((barlam[2, p6]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]))) + (barlam[1, p6]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
               ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*((((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5]*
                      lam[2, et5] - (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                  barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5])*(-((barlam[2, p6]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]))) + (barlam[1, p6]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-(((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])) - (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])))*lam[2, p6]*(lam[1, p4] - 
                 (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p6]*lam[2, p5] - (-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[1, p5]*lam[2, p6])*(-((barlam[2, p2]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])*spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])*spba[p7, {m1, p2}, m1])))/((lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])*((barlam[1, p4]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                    (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])))) + lam[1, p6]*((barlam[2, p6]*
                  (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                     p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[2, p4] - (lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                   lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p6]*lam[2, p5] - (-(barlam[1, p5]*
                       barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                    lam[1, p5]*lam[2, p6])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1])))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*((-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p6]*
                    lam[2, p5] - (-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*lam[1, p5]*lam[2, p6]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p4] - 
                (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p6]*lam[2, p5] - (-(barlam[1, p5]*
                       barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                    lam[1, p5]*lam[2, p6])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1])))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*((-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p6]*
                    lam[2, p5] - (-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*lam[1, p5]*lam[2, p6]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p4] - 
                (lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p6]*lam[2, p5] - (-(barlam[1, p5]*
                       barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                    lam[1, p5]*lam[2, p6])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1])))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                      p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[2, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))) + (barlam[1, p4]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p6]*lam[2, p5] - (-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                   m1])) + (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*((-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p6]*
                    lam[2, p5] - (-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*lam[1, p5]*lam[2, p6]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
           (10*CK*(barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])^
              5*(-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
              (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5])))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
             ((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                         lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
              (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                         lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
              (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                         lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[1, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
              ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]))*(-(barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[2, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p5]*
                         lam[2, p3] - lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                         lam[2, p3] - lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1])))) - (-(barlam[1, p6]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p6])*lam[1, p6]*(lam[2, m1]*
                 spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1])))))*((-(barlam[1, p6]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p6])*lam[2, p6]*(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*lam[1, p5] - (lam[1, et5]*(-(lam[2, p6]*
                     (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                         lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p2]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])*spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*spba[p7, {m1, p2}, m1])))) - 
              (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[1, p6]*((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p5])*lam[2, p5] - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])))))*
             (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*
                  barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*spa[p2, m1]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 spba[p7, {m1, p2}, m1]))^2)/
            (((barlam[2, p4]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
               (barlam[1, p4]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[2, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
               (barlam[1, p6]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[2, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, 
                      p3] - lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*
                       barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                   lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             (-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p6])*lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                  spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                    lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[1, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))) + (barlam[1, p4]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                   (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                       spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, 
                        m1])) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1]))))) + (-(barlam[1, p6]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p6])*lam[1, p6]*(lam[2, m1]*
                 spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1])))))*(-((lam[2, m1]*spb[m1, p7] + 
                 lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[1, p5]*
                     lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                  ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                   (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*(-(lam[2, p6]*(lam[1, p4] - 
                       (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                       spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, 
                        m1])) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1]))))*((-(barlam[1, p5]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p5])*lam[1, p5] - 
                 (lam[1, et5]*(-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*
                         (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p2]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])*spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])*spba[p7, {m1, p2}, m1]))))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1]))))*((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*lam[2, p5] - 
                (lam[2, et5]*(-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])))))*
             (-(((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*lam[2, p5] - (lam[2, et5]*(-(lam[2, p6]*
                      (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p2]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])*spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])*spba[p7, {m1, p2}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                 lam[1, p5] - (lam[1, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]))) - (10*CK*(barlam[1, p6]*barlam[2, p4] - barlam[1, 
                 p4]*barlam[2, p6])^2*(barlam[1, p7]*barlam[2, p4] - 
              barlam[1, p4]*barlam[2, p7])*(barlam[1, p7]*barlam[2, p6] - 
              barlam[1, p6]*barlam[2, p7])*((barlam[2, p4]*(barlam[1, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                       (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                         lam[2, p3] - lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))) - (barlam[1, p4]*(barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p5]*
                         lam[2, p3] - lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                         lam[2, p3] - lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))*(-((barlam[2, p4]*(barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                    barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))) + (barlam[1, p4]*(barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                       (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                         lam[2, p3] - lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))*((barlam[2, p7]*(barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p5]*
                         lam[2, p3] - lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                         lam[2, p3] - lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))) - (barlam[1, p7]*(barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p5]*
                         lam[2, p3] - lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                         lam[2, p3] - lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))*(-(lam[2, p6]*(lam[1, p4] + (lam[1, et5]*
                   (-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                       lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                    (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*((lam[2, p4] - (lam[2, et6]*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p4] - 
                        (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (lam[1, et6]*
                   (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])))) + lam[1, p6]*(
                lam[2, p4] + (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                        (lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*((lam[2, p4] - (lam[2, et6]*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p4] - 
                       (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - (lam[2, et6]*
                  (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             ((lam[2, p4] + (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                        (lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*((lam[2, p4] - (lam[2, et6]*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p4] - 
                       (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - (lam[2, et6]*
                  (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p4] + (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                        (lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*((lam[2, p4] - (lam[2, et6]*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p4] - 
                       (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - (lam[1, et6]*
                  (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 spba[p7, {m1, p2}, m1]))^5)/
            ((((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[1, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                   lam[2, p5])*((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))) - ((-(barlam[1, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]))*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                   lam[2, p5])*((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))))^2*
             ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
               lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) - 
              (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
               lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p6]*(lam[1, p4] + (lam[1, et5]*(-((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                      lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*((lam[2, p4] - (lam[2, et6]*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p4] - 
                       (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - (lam[1, et6]*
                  (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) - lam[1, p6]*(
                lam[2, p4] + (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                        (lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*((lam[2, p4] - (lam[2, et6]*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p4] - 
                       (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - (lam[2, et6]*
                  (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                   {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                 lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                   spba[p7, {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*
                  s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                 lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                   spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                  s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[1, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/(((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))*spba[p7, {m1, p2}, m1]) - 
               (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[2, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/(((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))*spba[p7, {m1, p2}, m1]))^
              2) - (10*CK*(barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                2, p7])*(-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
               (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))^2*
             (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
              (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5])))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
             (-(lam[2, p6]*((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                    barlam[2, p5])*lam[1, p5] + (lam[1, et5]*
                   (-((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                         ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5]))) + (barlam[1, p6]*
                         (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p6]*lam[2, p5] - 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*lam[1, p5]*lam[2, p6])) - 
                    (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                   (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              lam[1, p6]*((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p5])*lam[2, p5] + (lam[2, et5]*
                  (-((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[1, p6]*lam[2, p5] - 
                      (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[1, p5]*lam[2, p6])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))))*((barlam[2, p7]*
                ((((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5]*lam[2, et5] - (-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[1, et5]*lam[2, p5])*(-(barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]))) + (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                  (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))) - (barlam[1, p7]*
                ((((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5]*lam[2, et5] - (-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[1, et5]*lam[2, p5])*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]))) + (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                  (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))*(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                ((((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5]*lam[2, et5] - (-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[1, et5]*lam[2, p5])*(-(barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                ((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                   (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))) - ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                ((((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5]*lam[2, et5] - (-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[1, et5]*lam[2, p5])*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                ((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                   (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))))*(-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                 ((((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p5]*lam[2, et5] - (-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p5])*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 ((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))) + ((-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                ((((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5]*lam[2, et5] - (-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[1, et5]*lam[2, p5])*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                ((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                   (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))))*(((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                (lam[2, et5]*(-((-((barlam[2, p6]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                      (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p6]*lam[2, p5] - 
                      (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[1, p5]*lam[2, p6])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]) - ((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                (lam[1, et5]*(-((-((barlam[2, p6]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                      (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p6]*lam[2, p5] - 
                      (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[1, p5]*lam[2, p6])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                 spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                 barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1])^5)/
            ((lam[2, p6]*((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p5])*lam[1, p5] + (lam[1, et5]*
                  (-((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[1, p6]*lam[2, p5] - 
                      (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[1, p5]*lam[2, p6])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))) - lam[1, p6]*((-(barlam[1, p5]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                (lam[2, et5]*(-((-((barlam[2, p6]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                      (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p6]*lam[2, p5] - 
                      (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[1, p5]*lam[2, p6])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))))*((barlam[2, p4]*
                 (-((((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                      (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))/
                ((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                   (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))) - (barlam[1, p4]*
                 (-((((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                      (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                  barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))/
                ((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                   (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))^2*(-((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                  spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                    lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                    lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p4] - 
                (lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                   {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5])) - (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])))*lam[2, p6] + 
                ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5])) - (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])))*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1]))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p6]*((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])) - (barlam[1, p6]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5])) - (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])))*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1]))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((barlam[2, p2]*spa[p2, m1]*(-((((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5]*
                       lam[2, et5] - (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))/
                (((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))*spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                 spa[p2, m1]*(-((((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                      (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                  barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))/
                (((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))*spba[p7, {m1, p2}, m1]))^2) - 
           (10*CK*(-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
               (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))^5*
             (-((barlam[2, p4]*(-((((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5]*lam[2, 
                         et5] - (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((-((barlam[2, p7]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]))) + (barlam[1, p7]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               (barlam[1, p4]*(-((((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                      (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]))) + (barlam[1, p7]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             ((barlam[2, p6]*(-((((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                     (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]))) + (barlam[1, p7]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p6]*(-((((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                     (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]))) + (barlam[1, p7]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[2, p6]*(-((((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                      (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]))) + (barlam[1, p7]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p6]*(-((((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                     (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]))) + (barlam[1, p7]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-(((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])) - (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])))*(lam[2, m1]*spb[m1, p7] + 
                 lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[1, p5]*
                     lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                  ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                   (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*((-(barlam[1, p5]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*lam[1, p5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*((-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-(((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])) - (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])))*(lam[2, p4] - (lam[2, et6]*
                   (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (-(barlam[1, p5]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                        {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                   m1])) + ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                   lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                {m1, p2}, m1])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                spa[p2, m1])/spba[p7, {m1, p2}, m1])*
             ((barlam[2, p2]*spa[p2, m1]*(-((((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5]*
                      lam[2, et5] - (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]))) + (barlam[1, p7]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                (-((((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                     (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]))) + (barlam[1, p7]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                spba[p7, {m1, p2}, m1])))/
            ((-((barlam[2, p7]*((((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                      (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((-((barlam[2, p7]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]))) + (barlam[1, p7]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               (barlam[1, p7]*((((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5]*lam[2, et5] - 
                     (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]))) + (barlam[1, p7]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*((((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5]*
                      lam[2, et5] - (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                   lam[2, p5])*(-((barlam[2, p7]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]))) + (barlam[1, p7]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
               ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*((((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5]*
                      lam[2, et5] - (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, et5]*lam[2, p5])*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                   lam[2, p5])*(-((barlam[2, p7]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]))) + (barlam[1, p7]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*((-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) - lam[1, p6]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*((-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*((-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p4] - 
                (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*((-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p4] - 
                (lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
               lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                barlam[1, p3]*barlam[2, p5])*lam[1, p5]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[2, p4] - (lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                   lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                   lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                      {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]))) - (10*CK*(barlam[1, p7]*barlam[2, p4] - barlam[1, 
                 p4]*barlam[2, p7])^5*(-((barlam[2, p6]*(-(barlam[1, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5]))) + (barlam[1, p6]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p5])))*((barlam[2, p6]*
                (-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                     m1]))) - (barlam[1, p6]*(-(barlam[2, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                     m1]))))*(-((barlam[2, p6]*(-(barlam[1, p4]*
                    (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                     m1]))))*(-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                 (-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                         (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*(barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1])))) + ((-(barlam[1, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                (-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                  barlam[2, p5])*(barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                  barlam[2, p7])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                  lam[2, p5])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                     m1]))))*(-((-(barlam[1, p7]*barlam[2, p4]) + 
                 barlam[1, p4]*barlam[2, p7])*(lam[2, m1]*spb[m1, p7] + 
                 lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[1, p5]*
                     lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                  ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                   (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*((lam[2, p4] - (lam[2, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                        {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p4]) + barlam[1, p4]*barlam[2, p7])*(lam[1, m1]*
                 spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*((lam[2, p4] - (lam[2, et6]*
                       (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p7])*((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                    barlam[2, p5])*lam[2, p5] - (lam[2, et5]*
                   ((lam[2, p4] - (lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                       spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, 
                        m1])) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p4]) + barlam[1, p4]*barlam[2, p7])*(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*lam[1, p5] - (lam[1, et5]*((lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                         lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*
                  barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*spa[p2, m1]*
                 (-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                         (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))*spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                 spa[p2, m1]*(-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                       (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))*spba[p7, {m1, p2}, m1]))^2)/
            (((barlam[2, p4]*(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))) - (barlam[1, p4]*(barlam[2, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))^2*(-((barlam[2, p7]*(barlam[1, p4]*
                    (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))) + (barlam[1, p7]*(barlam[2, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))^2*(lam[2, p6]*((-(barlam[1, p5]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] - 
                (lam[1, et5]*((lam[2, p4] - (lam[2, et6]*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p4] - 
                     (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                         lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])))) - 
              lam[1, p6]*((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p5])*lam[2, p5] - (lam[2, et5]*
                  ((lam[2, p4] - (lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p4] - 
                     (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                         lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                      p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[2, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))) + (barlam[1, p4]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                   ((lam[2, p4] - (lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                        {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1]))))*((-(barlam[1, p5]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p5])*lam[1, p5] - 
                 (lam[1, et5]*((lam[2, p4] - (lam[2, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                       spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, 
                        m1])) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1]))))) + (lam[1, m1]*spb[m1, p7] + 
                lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*lam[1, et6]*(lam[1, p5]*
                    lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*((lam[2, p4] - (lam[2, et6]*
                       (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]))))*(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*lam[2, p5] - (lam[2, et5]*((lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                         lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])))))*
             ((lam[2, p4] - (lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                    lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                    lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*(
                lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*((lam[2, p4] - (lam[2, et6]*
                       (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]))))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*(
                lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*((lam[2, p4] - (lam[2, et6]*
                       (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]))) - (10*CK*(barlam[1, p7]*barlam[2, p4] - 
              barlam[1, p4]*barlam[2, p7])*(-((barlam[2, p4]*
                 (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5]))) + (barlam[1, p4]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p5])))*(lam[2, p6]*(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*lam[1, p5] - (lam[1, et5]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*((barlam[1, p6]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                  barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
              lam[1, p6]*((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p5])*lam[2, p5] - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*((barlam[1, p6]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                  barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
             (lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                   lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[2, p2]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])*spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*spba[p7, {m1, p2}, m1])))/
                 ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*((barlam[1, p6]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                  barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
              lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                   lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[2, p2]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])*spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*spba[p7, {m1, p2}, m1])))/
                 ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*((barlam[1, p6]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                  barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             ((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]))*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                   (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[2, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^2*
             (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1])^5)/
            ((-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                      p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             (-(((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*lam[2, p5] - (lam[2, et5]*(-(lam[2, p6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])))*(lam[1, p4] - (lam[1, et6]*
                   (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[2, p2]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])*spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])*spba[p7, {m1, p2}, m1])))/
                  ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])))) + 
              ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                 lam[1, p5] - (lam[1, et5]*(-(lam[2, p6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*(lam[2, p4] - 
                (lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[2, p2]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])*spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*spba[p7, {m1, p2}, m1])))/
                 ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))))*(-((lam[2, p4] - 
                 (lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[2, p2]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])*spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])*spba[p7, {m1, p2}, m1])))/
                  ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                    lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[2, p2]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])*spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p2, m1])/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*spba[p7, {m1, p2}, m1])))/
                 ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-(lam[2, p6]*((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                    barlam[2, p5])*lam[1, p5] - (lam[1, et5]*
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])))*((barlam[1, p6]*barlam[2, p2]*
                   spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                   barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) + 
              lam[1, p6]*((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p5])*lam[2, p5] - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*((barlam[1, p6]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                  barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) - (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/spba[p7, 
                     {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p6]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) - (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^2*
             (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) - (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/spba[p7, 
                     {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])*spba[p7, {m1, p2}, 
                   m1])) + (barlam[1, p2]*spa[p2, m1]*(barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])*spba[p7, {m1, p2}, m1]))^
              2) - (10*CK*(barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                2, p6])*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
              (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5])))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*
             (-(((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*lam[2, p5] - (lam[2, et5]*((lam[2, m1]*spb[m1, 
                        p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                        lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                   m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                  spba[p7, {m1, p2}, m1])) + ((-(barlam[1, p5]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/
                 ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                  barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
             (-((lam[2, p4] - (lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                    lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                       spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, 
                        m1])) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1])))/((-((barlam[2, p4]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                    (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                   spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                   barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) + 
              (lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                    lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])))/
                 ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                  barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              (barlam[1, p4]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]))*(-(barlam[1, p7]*(lam[2, et5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                   (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[2, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^2*
             (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1])^5)/((lam[2, p6]*(lam[1, p4] - 
                (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])))/
                 ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))) - lam[1, p6]*(lam[2, p4] - 
                (lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])))/
                 ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*
             (-(((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*lam[2, p5] - (lam[2, et5]*((lam[2, m1]*spb[m1, 
                        p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                        lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*(lam[1, p4] - 
                 (lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                       spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, 
                        m1])) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p2, m1])/((barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])*spba[p7, 
                       {m1, p2}, m1])))/((-((barlam[2, p4]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
                    (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))) + ((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*lam[1, p5] - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/
                 ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))*(lam[2, p4] - (lam[2, et6]*
                  (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p2, m1])/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*spba[p7, {m1, p2}, m1])))/
                 ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*((lam[2, m1]*spb[m1, p7] + 
                lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[1, p5]*
                    lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                 lam[2, p5] - (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[1, p5]*
                         lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/
                 ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                  barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
              ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                 lam[1, p5] - (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[1, p5]*
                         lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/
                 ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                  barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[2, p7]*(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/spba[p7, 
                     {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               (barlam[1, p7]*(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2*
             (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])*spba[p7, {m1, p2}, 
                   m1])) + (barlam[1, p2]*spa[p2, m1]*(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])*spba[p7, {m1, p2}, m1]))^
              2) - (10*CK*(barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                2, p7])*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
               (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))^5*
             (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                 (lam[1, et5]*(-((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))))*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                        barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))/((lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                      p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et5]*(-((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (-(lam[2, p6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))))*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et5]*(-((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (-(lam[2, p6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))))*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                (lam[1, et5]*(-((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (-(lam[2, p6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))))*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((barlam[2, p7]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]) + (lam[2, et5]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                     spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              (barlam[1, p7]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]) + (lam[2, et5]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                     spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1])^2*(-((barlam[1, p7]*barlam[2, p2]*
                 spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])*
             ((barlam[2, p2]*spa[p2, m1]*(barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/(
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                 m1]) - (barlam[1, p2]*spa[p2, m1]*(barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])) - (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/(
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                 m1]))*(-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) - (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                (((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                  {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/(((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                 m1])))/((lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                 spb[p2, p7] + (lam[1, et5]*(-((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))))*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) - lam[1, p6]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et5]*(-((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (-(lam[2, p6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))))*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
               lam[2, p5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                   lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) - 
              (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
               lam[1, p5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p5]*lam[2, p3] - 
                   lam[1, p3]*lam[2, p5])*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                   {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                 ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*
                  s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                 ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                  s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p6])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p4]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2*
             (((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
               ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[2, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p5]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))^2)))/
         ((lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])*
          ((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                  lam[2, et6] - lam[1, et6]*lam[2, p5])))/
             ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
              (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
            (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                  lam[2, et6] - lam[1, et6]*lam[2, p5])))/
             ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
              (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))^2*
          (-((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                   lam[2, et6] - lam[1, et6]*lam[2, p5])))/
              ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*(
                lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) + 
            (barlam[1, p5]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                  lam[2, et6] - lam[1, et6]*lam[2, p5])))/
             ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
              (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))^2) + 
        ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])^5*
          ((-10*CK*(-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
               (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))^5*
             (-((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p5])) - (((-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6]*
                       lam[2, et5] - (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))))) + (barlam[1, p4]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - (((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))))^2*((barlam[2, p7]*
                (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - (((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p6])*(-(barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))))/((lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p5]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))) - 
              (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - (((-(barlam[1, p6]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6]*
                     lam[2, et5] - (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))/(
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]))) + (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))))*
             (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - (((-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))))) + (barlam[1, p7]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - (((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p6])*(-(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))))/((lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p5]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))))*
             (lam[2, p5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p5]*lam[2, p6])*(-((barlam[2, p4]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              lam[1, p5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p5]*lam[2, p6])*(-((barlam[2, p4]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                   lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p5]*lam[2, p6])*(-((barlam[2, p2]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p2}, m1])))/((lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5])*((barlam[1, p4]*
                     barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                   (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))) - lam[1, p5]*((barlam[2, p5]*
                  (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                     p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                   lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p5]*lam[2, p6])*(-((barlam[2, p2]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p2}, m1])))/((lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5])*((barlam[1, p4]*
                     barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                   (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1])*
             (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                 m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                {m1, p2}, m1])*((barlam[2, p2]*(-(barlam[1, p5]*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
                 (((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p6])*(-(barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))*spa[p2, m1])/(
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]))) + (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))*spba[p7, {m1, p2}, m1]) - 
              (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - (((-(barlam[1, p6]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6]*
                     lam[2, et5] - (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                spa[p2, m1])/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                  lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p5]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                spba[p7, {m1, p2}, m1])))/
            ((-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*lam[1, p6]*lam[2, p5]) + (-(barlam[1, p6]*barlam[2, 
                   p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p5]*lam[2, p6])*
             (-((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5]) + (((-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6]*
                       lam[2, et5] - (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))))) + (barlam[1, p5]*
                 (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + (((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))))^2*
             (((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(barlam[1, p5]*(lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p6])*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))))/((barlam[1, p6]*barlam[2, 
                    p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p5]*
                   lam[2, et5] - lam[1, et5]*lam[2, p5])*(lam[1, p6]*
                   lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))) - ((-(barlam[1, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]))*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + (((-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))))^2*
             (-(lam[2, p5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) - (barlam[1, p5]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                    lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                   (-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*lam[1, p5]*lam[2, p6])*(-((barlam[2, p2]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                      ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])*spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p2}, m1])))/((lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5])*((barlam[1, p4]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                    (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])))) + lam[1, p5]*((barlam[2, p5]*
                  (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                     p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                   lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p5]*lam[2, p6])*(-((barlam[2, p2]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p2}, m1])))/((lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5])*((barlam[1, p4]*
                     barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                   (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))))*((lam[2, m1]*spb[m1, p7] + 
                lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[1, p6]*
                    lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p5]*lam[2, p6])*(-((barlam[2, p4]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p4] - 
                (lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p5]*lam[2, p6])*(-((barlam[2, p2]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p2}, m1])))/((lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5])*((barlam[1, p4]*
                     barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                   (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))) - (lam[1, m1]*spb[m1, p7] + 
                lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*lam[1, et6]*(lam[1, p6]*
                    lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p5]*lam[2, p6])*(-((barlam[2, p4]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p4] - 
                (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p5]*lam[2, p6])*(-((barlam[2, p2]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p2}, m1])))/((lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5])*((barlam[1, p4]*
                     barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                   (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))))*(-((lam[2, m1]*spb[m1, p7] + 
                 lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[1, p6]*
                     lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                   (-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*lam[1, p5]*lam[2, p6])*(-((barlam[2, p4]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p5]*lam[2, p6])*(-((barlam[2, p4]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
           (10*CK*(barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])^
              5*(-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
              (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
             ((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - barlam[1, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                         lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
              (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - barlam[2, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                         lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])))*
             (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]))) + 
              (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - barlam[2, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                         lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5])) - barlam[1, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
              ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]))*(-(barlam[2, p5]*(lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5])) - barlam[2, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                         lam[2, p3] - lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                         lam[2, p3] - lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
             ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
               lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(-(lam[2, p5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1])))) - (-(barlam[1, p5]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p5])*lam[1, p5]*(lam[2, m1]*
                 spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(-(lam[2, p5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1])))))*((-(barlam[1, p5]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p5])*lam[2, p5]*(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*lam[1, p6] - (lam[1, et5]*(-(lam[2, p5]*
                     (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                         lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p5])*(-((barlam[2, p2]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p2}, m1])))) - 
              (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
               lam[1, p5]*((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p6])*lam[2, p6] - (lam[2, et5]*
                  (-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])))))*
             (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*
                  barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*spa[p2, m1]*
                 (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 spba[p7, {m1, p2}, m1]))^2)/
            (((barlam[2, p4]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
               (barlam[1, p4]*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + barlam[2, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])))^2*
             (-((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5]) + barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]))) + 
               (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + barlam[2, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])))^2*
             (-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, 
                      p3] - lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*
                       barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                   lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             (-((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p5])*lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                  spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                    lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[1, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))) + (barlam[1, p4]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                   (-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, 
                        m1])) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1]))))) + (-(barlam[1, p5]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p5])*lam[1, p5]*(lam[2, m1]*
                 spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(-(lam[2, p5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1])))))*(-((lam[2, m1]*spb[m1, p7] + 
                 lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[1, p6]*
                     lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                   (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])))*(-(lam[2, p5]*(lam[1, p4] - 
                       (lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, 
                        m1])) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1]))))*((-(barlam[1, p6]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p6])*lam[1, p6] - 
                 (lam[1, et5]*(-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p5])*(-((barlam[2, p2]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                      ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])*spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p2}, m1]))))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(-(lam[2, p5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1]))))*((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*lam[2, p6] - 
                (lam[2, et5]*(-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])))))*
             (-(((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*lam[2, p6] - (lam[2, et5]*(-(lam[2, p5]*
                      (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p5])*(-((barlam[2, p2]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                      ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])*spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p2}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                 lam[1, p6] - (lam[1, et5]*(-(lam[2, p5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]))) - (10*CK*(barlam[1, p5]*barlam[2, p4] - 
              barlam[1, p4]*barlam[2, p5])*(barlam[1, p7]*barlam[2, p4] - 
               barlam[1, p4]*barlam[2, p7])^2*(-(barlam[1, p7]*barlam[2, 
                 p5]) + barlam[1, p5]*barlam[2, p7])*
             ((barlam[2, p4]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[1, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                         lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                   lam[2, p5]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))) - (barlam[1, p4]*(barlam[2, p5]*(lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5]) + barlam[2, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                         lam[2, p3] - lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                         lam[2, p3] - lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                   lam[2, p5]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))*(-((barlam[2, p4]*(barlam[1, p5]*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                    barlam[2, p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + (barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))) + (barlam[1, p4]*(barlam[2, p5]*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                       (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                         lam[2, p3] - lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                   lam[2, p5]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))*((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5]) + barlam[1, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                         lam[2, p3] - lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                         lam[2, p3] - lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                   lam[2, p5]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))) - (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5]) + barlam[2, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                         lam[2, p3] - lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                         lam[2, p3] - lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                   lam[2, p5]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))*(-(lam[2, p5]*(lam[1, p4] + (lam[1, et5]*
                   (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                       lam[1, p5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*((lam[2, p4] - 
                        (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, p4] - (lam[1, et6]*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (lam[1, et6]*
                   (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])))) + lam[1, p5]*(
                lam[2, p4] + (lam[2, et5]*(-((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(-(lam[2, p5]*
                        (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p4] - 
                        (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - (lam[2, et6]*
                  (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             ((lam[2, p4] + (lam[2, et5]*(-((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(-(lam[2, p5]*
                        (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p4] - 
                        (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - (lam[2, et6]*
                  (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p4] + (lam[1, et5]*(-((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(-(lam[2, p5]*
                        (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p4] - 
                        (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - (lam[1, et6]*
                  (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 spba[p7, {m1, p2}, m1]))^5)/
            ((((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5])) - barlam[1, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6])*((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))) - ((-(barlam[1, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]))*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - barlam[2, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6])*((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))))^2*
             (-(lam[2, p5]*((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                    barlam[2, p5])*lam[1, p5] + (-(barlam[1, p7]*barlam[2, 
                      p4]) + barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
              lam[1, p5]*((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p5])*lam[2, p5] + (-(barlam[1, p7]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
             ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
               lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) - 
              (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
               lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1]) - lam[1, p5]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((lam[2, p4] + (lam[2, et5]*(-((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(-(lam[2, p5]*
                         (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p4] - 
                         (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*((lam[2, p4] - 
                        (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, p4] - (lam[1, et6]*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (lam[2, et6]*
                   (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              (lam[1, p4] + (lam[1, et5]*(-((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(-(lam[2, p5]*
                        (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p4] - 
                        (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - (lam[1, et6]*
                  (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5])) - barlam[1, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/(((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))*spba[p7, {m1, p2}, m1]) - 
               (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5])) - barlam[2, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/(((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))*spba[p7, {m1, p2}, m1]))^
              2) - (10*CK*(-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
               barlam[2, p7])*(-((barlam[2, p5]*(-(barlam[1, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]))) + (barlam[1, p5]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6])))*(-((barlam[2, p7]*
                  (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                     p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6])))^2*(-(lam[2, p5]*
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*lam[1, p6] + (lam[1, et5]*
                   (-((-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p5]*lam[2, p6])*
                      (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                         ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))) + (barlam[1, p5]*
                         (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) - (-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                    (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              lam[1, p5]*((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p6])*lam[2, p6] + (lam[2, et5]*
                  (-((-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p5]*lam[2, p6])*
                     (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (-((barlam[2, p7]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                     (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))*((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))))*((barlam[2, p5]*(barlam[1, p5]*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 (((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p6])*(-(barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                  (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))) - (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 (((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p6])*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                  (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))*(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]))*(barlam[1, p5]*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 (((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p6])*(-(barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))) - ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]))*(barlam[2, p5]*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 (((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p6])*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))))*(-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                 (barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + (((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6])*((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (-((barlam[2, p7]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))) + ((-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + (((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p6])*(-(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))))*(((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                (lam[2, et5]*(-((-((-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p6]*lam[2, 
                         p5]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p5]*lam[2, p6])*
                     (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (-((barlam[2, p7]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                     (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))*((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]) - ((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                (lam[1, et5]*(-((-((-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p6]*lam[2, 
                         p5]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p5]*lam[2, p6])*
                     (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (-((barlam[2, p7]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                     (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))*((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                 spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                 barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1])^5)/
            (((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - (((-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (barlam[1, p5]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                 (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))) - (barlam[1, p4]*(-(barlam[2, p5]*
                    (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
                  (((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p6])*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))^2*(-(lam[2, p5]*(lam[1, p5]*
                  ((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])) - (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + ((barlam[2, p7]*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                   (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                    spba[p7, {m1, p2}, m1]))) + lam[1, p5]*(lam[2, p5]*
                 ((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6])) - (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + ((barlam[2, p7]*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                  (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                   spba[p7, {m1, p2}, m1])))*(-((lam[2, m1]*spb[m1, p7] + 
                 lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[1, p6]*
                     lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p4] - 
                 (lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p4] - 
                (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1]) - lam[1, p5]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-(((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*lam[2, p6] + (lam[2, et5]*
                   (-((-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p5]*lam[2, p6])*
                      (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                         ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))) + (barlam[1, p5]*
                         (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) - (-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                    (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                   m1])) + ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p6])*lam[1, p6] + (lam[1, et5]*
                  (-((-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6]*lam[2, p5]) + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p5]*lam[2, p6])*
                     (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (-((barlam[2, p7]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                     (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))*((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*spa[p2, m1]*
                 (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - (((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/(((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (-((barlam[2, p7]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))*spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                 spa[p2, m1]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - (((-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/(((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (-((barlam[2, p7]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))*spba[p7, {m1, p2}, m1]))^2) - 
           (10*CK*(-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
               (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))^5*
             (-((barlam[2, p4]*(-((((-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p6]*lam[2, 
                         et5] - (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((-((barlam[2, p7]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               (barlam[1, p4]*(-((((-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             ((barlam[2, p5]*(-((((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p5]*(-((((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[2, p5]*(-((((-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p5]*(-((((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-(((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                  ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])) - (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))*(lam[2, m1]*spb[m1, p7] + 
                 lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[1, p6]*
                     lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                   (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])))*((-(barlam[1, p6]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p6])*lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*((-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*lam[2, p6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-(((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                  ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])) - (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))*(lam[2, p4] - (lam[2, et6]*
                   (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (-(barlam[1, p6]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                        {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                   m1])) + ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                   lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                {m1, p2}, m1])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                spa[p2, m1])/spba[p7, {m1, p2}, m1])*
             ((barlam[2, p2]*spa[p2, m1]*(-((((-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                (-((((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                spba[p7, {m1, p2}, m1])))/
            ((-((barlam[2, p7]*((((-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((-((barlam[2, p7]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               (barlam[1, p7]*((((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*((((-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6])*(-((barlam[2, p7]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
               ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*((((-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6])*(-((barlam[2, p7]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*((-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*lam[2, p6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) - lam[1, p5]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*((-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*lam[2, p6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*((-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*lam[2, p6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p4] - 
                (lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*((-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*lam[2, p6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p4] - 
                (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
               lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                barlam[1, p3]*barlam[2, p6])*lam[1, p6]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                   lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                   lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]))) - (10*CK*(barlam[1, p7]*barlam[2, p4] - barlam[1, 
                 p4]*barlam[2, p7])^5*(-((barlam[2, p5]*(-(barlam[1, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]))) + (barlam[1, p5]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6])))*((barlam[2, p5]*
                (-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                     m1]))) - (barlam[1, p5]*(-(barlam[2, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                     m1]))))*(-((barlam[2, p5]*(-(barlam[1, p4]*
                    (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                     m1]))))*(-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                 (-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*(barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1])))) + ((-(barlam[1, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                (-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                  barlam[2, p6])*(barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                  barlam[2, p7])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                  lam[2, p6])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                     m1]))))*(-((-(barlam[1, p7]*barlam[2, p4]) + 
                 barlam[1, p4]*barlam[2, p7])*(lam[2, m1]*spb[m1, p7] + 
                 lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[1, p6]*
                     lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                   (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])))*((lam[2, p4] - (lam[2, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                        {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p4]) + barlam[1, p4]*barlam[2, p7])*(lam[1, m1]*
                 spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*((lam[2, p4] - (lam[2, et6]*
                       (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p7])*((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                    barlam[2, p6])*lam[2, p6] - (lam[2, et5]*
                   ((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, 
                        m1])) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p4]) + barlam[1, p4]*barlam[2, p7])*(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*lam[1, p6] - (lam[1, et5]*((lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                         lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*
                  barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*spa[p2, m1]*
                 (-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))*spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*
                 spa[p2, m1]*(-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                       (lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))*spba[p7, {m1, p2}, m1]))^2)/
            (((barlam[2, p4]*(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))) - (barlam[1, p4]*(barlam[2, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))^2*(-((barlam[2, p7]*(barlam[1, p4]*
                    (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))) + (barlam[1, p7]*(barlam[2, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))^2*(lam[2, p5]*((-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] - 
                (lam[1, et5]*((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p4] - 
                     (lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                         lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])))) - 
              lam[1, p5]*((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p6])*lam[2, p6] - (lam[2, et5]*
                  ((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p4] - 
                     (lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                         lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                      p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[2, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))) + (barlam[1, p4]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                   ((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                        {m1, p2}, m1])) + (barlam[1, p2]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1]))))*((-(barlam[1, p6]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p6])*lam[1, p6] - 
                 (lam[1, et5]*((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p3] - lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, 
                        m1])) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1]))))) + (lam[1, m1]*spb[m1, p7] + 
                lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*lam[1, et6]*(lam[1, p6]*
                    lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*((lam[2, p4] - (lam[2, et6]*
                       (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]))))*(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*lam[2, p6] - (lam[2, et5]*((lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                         lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])))))*
             ((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                    lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                    lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*(
                lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*((lam[2, p4] - (lam[2, et6]*
                       (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]))))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*(
                lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*((lam[2, p4] - (lam[2, et6]*
                       (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]))) - (10*CK*(barlam[1, p7]*barlam[2, p4] - 
              barlam[1, p4]*barlam[2, p7])*(-((barlam[2, p4]*
                 (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]))) + (barlam[1, p4]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6])))*(lam[2, p5]*(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*lam[1, p6] - (lam[1, et5]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))))*((barlam[1, p5]*barlam[2, 
                   p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) - lam[1, p5]*((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*lam[2, p6] - 
                (lam[2, et5]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))))*((barlam[1, p5]*barlam[2, 
                   p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]))*(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*
                  (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[2, p2]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p2}, m1])))/((lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))))*((barlam[1, p5]*barlam[2, 
                   p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) - lam[1, p5]*(lam[2, p4] - (lam[2, et6]*
                  (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[2, p2]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p2}, m1])))/((lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))))*((barlam[1, p5]*barlam[2, 
                   p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]))*(-((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5])) + 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p4]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             ((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et5] - lam[1, et5]*lam[2, p5])) + 
                   (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[2, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5])) + 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^2*
             (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1])^5)/
            ((-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                      p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             (-(((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*lam[2, p6] - (lam[2, et5]*(-(lam[2, p5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])))))*(lam[1, p4] - 
                 (lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                   (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[2, p2]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                      ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])*spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p2}, m1])))/((lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])))))) + 
              ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                 lam[1, p6] - (lam[1, et5]*(-(lam[2, p5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))))*(lam[2, p4] - 
                (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[2, p2]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p2}, m1])))/((lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))))))*
             (-((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                    lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                   (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[2, p2]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                      ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])*spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p2}, m1])))/((lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                    lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[2, p2]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p2, m1])/
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p2}, m1])))/((lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-(lam[2, p5]*((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                    barlam[2, p6])*lam[1, p6] - (lam[1, et5]*
                   (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])))))*((barlam[1, p5]*
                   barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                 (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                   m1])) + lam[1, p5]*((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*lam[2, p6] - 
                (lam[2, et5]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))))*((barlam[1, p5]*barlam[2, 
                   p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]))*(-((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5]) - (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/spba[p7, 
                     {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p5]*
                 (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) - (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^2*
             (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5]) - (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/spba[p7, 
                     {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])*spba[p7, {m1, p2}, 
                   m1])) + (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) - 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])*spba[p7, {m1, p2}, m1]))^
              2) - (10*CK*(barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                2, p5])*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
              (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
             (-(((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*lam[2, p6] - (lam[2, et5]*((lam[2, m1]*spb[m1, 
                        p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                        lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                   m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                  spba[p7, {m1, p2}, m1])) + ((-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/
                 ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                  barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
             (-((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                    lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, 
                        m1])) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1])))/((-((barlam[2, p4]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                   spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                   barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) + 
              (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                    lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])))/
                 ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                  barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              (barlam[1, p4]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              (barlam[1, p5]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              (barlam[1, p5]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))*(-(barlam[1, p7]*(lam[2, et5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                   (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[2, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^2*
             (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1])^5)/((lam[2, p5]*(lam[1, p4] - 
                (lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])))/
                 ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))) - lam[1, p5]*(lam[2, p4] - 
                (lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])))/
                 ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*
             (-(((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*lam[2, p6] - (lam[2, et5]*((lam[2, m1]*spb[m1, 
                        p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                        lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*(lam[1, p4] - 
                 (lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, 
                        m1])) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p2}, m1])))/((-((barlam[2, p4]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))) + ((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*lam[1, p6] - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/
                 ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))*(lam[2, p4] - (lam[2, et6]*
                  (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                     ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p2, m1])/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p2}, m1])))/
                 ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*((lam[2, m1]*spb[m1, p7] + 
                lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[1, p6]*
                    lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                 lam[2, p6] - (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[1, p6]*
                         lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/
                 ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                  barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
              ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                 lam[1, p6] - (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[1, p6]*
                         lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/
                 ((-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                  barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[2, p7]*(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/spba[p7, 
                     {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               (barlam[1, p7]*(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2*
             (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])*spba[p7, {m1, p2}, 
                   m1])) + (barlam[1, p2]*spa[p2, m1]*(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])*spba[p7, {m1, p2}, m1]))^
              2) - (10*CK*(-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
               barlam[2, p7])*(-((barlam[2, p4]*(-(barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                   barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]))) + (barlam[1, p4]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6])))^5*(-(lam[2, p5]*
                (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                 (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                          ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                      lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                     (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))/((lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                      p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]) + (lam[2, et5]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                     spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]) + (lam[2, et5]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                     spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                 m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                {m1, p2}, m1])*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                 spa[p2, m1])/spba[p7, {m1, p2}, m1])^2*
             ((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/(
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                 m1]) - (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])) - (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/(
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                 m1]))*(-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) - (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                (((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                  {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                 m1])))/(((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                 barlam[2, p6])*lam[2, p6]*(lam[1, p4] - (lam[1, et6]*
                  (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) - 
              (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
               lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                   lam[1, p3]*lam[2, p6])*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             (-(lam[2, p5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                  ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) + lam[1, p5]*(
                lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                 ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1])))*(lam[2, p5]*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1]))*(-((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                  spb[p2, p7] + (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p7])*
                      (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                          ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                      lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                     (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))/((lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                      p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[2, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p5])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p4]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2*
             (((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5])) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
               ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[2, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5])) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[1, p6]*lam[2, p3] - 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))))/spba[p7, {m1, p2}, m1]))/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))^2)))/
         ((lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6])*
          ((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                  lam[2, et6] - lam[1, et6]*lam[2, p6])))/
             ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
              (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
            (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                  lam[2, et6] - lam[1, et6]*lam[2, p6])))/
             ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
              (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))^2*
          (-((barlam[2, p6]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                   lam[2, et6] - lam[1, et6]*lam[2, p6])))/
              ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*(
                lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
            (barlam[1, p6]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                  lam[2, et6] - lam[1, et6]*lam[2, p6])))/
             ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
              (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))^2) + 
        ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])^5*
          ((-10*CK*(-((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                        et5] - lam[1, et5]*lam[2, p5])) - 
                   ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                     ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))) + (barlam[1, p4]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - ((-(barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))^2*
             ((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - ((-(barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))/((barlam[1, p7]*barlam[2, 
                      p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))))/(
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                 (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) - 
              (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - ((-(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))/((barlam[1, p7]*barlam[2, 
                      p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))))/(
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                 (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
             (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - ((-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))) + 
              (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - ((-(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))/((barlam[1, p7]*barlam[2, 
                      p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))))/(
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                 (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
             (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^5*
             (lam[2, p5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p7])*lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) - lam[1, p5]*(
                (barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p7])*lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[1, p4] - (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p7])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*(-((barlam[2, p2]*spa[p2, m1]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) - lam[1, p5]*(
                (barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[2, p4] - (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p7])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*(-((barlam[2, p2]*spa[p2, m1]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                {m1, p2}, m1])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                spa[p2, m1])/spba[p7, {m1, p2}, m1])*
             ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
                 ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                  lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p5]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - ((-(barlam[2, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                  lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p5]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                spba[p7, {m1, p2}, m1])))/
            ((-((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5]) + ((-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p7])*lam[2, et5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (-(barlam[1, p7]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p7])*lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/((lam[1, p5]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))) + (barlam[1, p5]*
                 (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + ((-(barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))^2*
             (-(((barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5]) + ((-(barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                     ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               ((barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + ((-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p3] - barlam[1, p3]*barlam[2, p7])*(lam[1, p5]*
                   lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p7])*lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) - lam[1, p6]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p7])*lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             (-(lam[2, p5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - (barlam[1, p5]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                (lam[1, p4] - (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                   (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[2, p2]*spa[p2, m1]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                    (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1])))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[2, p4] - (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p7])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*(-((barlam[2, p2]*spa[p2, m1]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p7])*lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p4] - 
                (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p7])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*(-((barlam[2, p2]*spa[p2, m1]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p7])*lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p4] - 
                (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p7])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*(-((barlam[2, p2]*spa[p2, m1]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p7])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p3]) + barlam[1, p3]*barlam[2, p7])*lam[1, p5]*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]))) - (10*CK*(-((barlam[2, p4]*(-(barlam[1, p6]*
                     (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                   ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                     ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))) + (barlam[1, p4]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - ((-(barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))^2*
             ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - ((-(barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))/((barlam[1, p7]*barlam[2, 
                      p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                 (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) - 
              (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - ((-(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))/((barlam[1, p7]*barlam[2, 
                      p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                 (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
             (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - ((-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))) + 
              (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - ((-(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))/((barlam[1, p7]*barlam[2, 
                      p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                 (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
             (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^5*
             (lam[2, p6]*((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p7])*lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) - lam[1, p6]*(
                (barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p7])*lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p6]*((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[1, p4] - (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*(-((barlam[2, p2]*spa[p2, m1]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) - lam[1, p6]*(
                (barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[2, p4] - (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*(-((barlam[2, p2]*spa[p2, m1]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                {m1, p2}, m1])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                spa[p2, m1])/spba[p7, {m1, p2}, m1])*
             ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                 ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                  lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p6]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - ((-(barlam[2, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                  lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p6]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                spba[p7, {m1, p2}, m1])))/
            ((-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + ((-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p7])*lam[2, et5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (-(barlam[1, p7]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p7])*lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))) + (barlam[1, p6]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + ((-(barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))^2*
             (-(((barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6]) + ((-(barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                     ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               ((barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + ((-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p3] - barlam[1, p3]*barlam[2, p7])*(lam[1, p6]*
                   lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p7])*lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) - lam[1, p5]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p7])*lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             (-(lam[2, p6]*((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - (barlam[1, p6]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                (lam[1, p4] - (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                   (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[2, p2]*spa[p2, m1]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                    (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1])))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p6]*((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[2, p4] - (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*(-((barlam[2, p2]*spa[p2, m1]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p7])*lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p4] - 
                (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*(-((barlam[2, p2]*spa[p2, m1]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p7])*lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p4] - 
                (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*(-((barlam[2, p2]*spa[p2, m1]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p3]) + barlam[1, p3]*barlam[2, p7])*lam[1, p6]*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]))) - (10*CK*(barlam[1, p6]*barlam[2, p5] - 
              barlam[1, p5]*barlam[2, p6])*((barlam[2, p6]*(barlam[1, p5]*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                   lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (barlam[1, p5]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) - 
              (barlam[1, p6]*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                   lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (barlam[1, p5]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
             (-(lam[2, p5]*((lam[1, et5]*(-((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                       lam[1, p5]*lam[2, p6])) - (-((barlam[2, p5]*
                         (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                    (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                    (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + (-(barlam[1, p7]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1]))) + lam[1, p5]*(
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-((barlam[2, p5]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                     (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p7])*lam[2, p5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + (-(barlam[1, p7]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p7])*lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])))*(-(lam[2, p6]*((lam[1, et5]*
                   (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                         p6])) - (-((barlam[2, p5]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                      (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p7])*lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + (-(barlam[1, p7]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p7])*lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                    (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                    (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + (-(barlam[1, p7]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1]))) + lam[1, p6]*(
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-((barlam[2, p5]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                     (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p7])*lam[2, p5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + (-(barlam[1, p7]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p7])*lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])))*(-((barlam[2, p5]*(-(barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                   barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))) + (barlam[1, p5]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                     spba[p7, {m1, p2}, m1]))))^2*
             (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (((barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + ((-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))/((barlam[1, p7]*barlam[2, 
                      p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p7])*((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))) - ((barlam[1, p5]*(lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5]) + barlam[1, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))*(lam[2, et6]*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                     m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                    spba[p7, {m1, p2}, m1]))))*
             (-(((barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + ((-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                 (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p3] - barlam[1, p3]*barlam[2, p7])*
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              ((barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + ((-(barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))/((barlam[1, p7]*barlam[2, 
                      p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p7])*((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                 spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                 barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1])^5)/
            ((-(lam[1, p6]*lam[2, p5]) + lam[1, p5]*lam[2, p6])*
             (-(lam[2, p6]*(lam[1, p5]*((barlam[2, p5]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (barlam[1, p5]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*((barlam[2, p6]*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p6]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))) + lam[1, p6]*(
                lam[2, p5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p5]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                lam[2, p6]*((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p6]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
             ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                  ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))) - (barlam[1, p4]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - ((-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))^2*
             (lam[2, p5]*((lam[1, et5]*(-((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6])) - (-((barlam[2, p5]*
                        (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[1, p5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])) - lam[1, p5]*((lam[2, et5]*
                  (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                        p6])) - (-((barlam[2, p5]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                     (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p7])*lam[2, p5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + (-(barlam[1, p7]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p7])*lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])))*(-((lam[2, m1]*spb[m1, p7] + 
                 lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p4])*lam[2, et6]*(lam[2, p3]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p4] - 
                 (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p4] - 
                (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5])) - barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                  ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                (((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
                 spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - ((-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                (((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p6]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
                 spba[p7, {m1, p2}, m1]))^2) - 
           (10*CK*(barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])^
              2*(barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
             (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
             ((barlam[2, p4]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[2, p3]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
              (barlam[1, p4]*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[2, p3]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (-((barlam[2, p4]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
              (barlam[1, p4]*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[2, p3]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             ((barlam[2, p6]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[2, p3]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
              (barlam[1, p6]*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[2, p3]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (-(lam[2, p5]*(lam[1, p4] + (lam[1, et5]*(-((barlam[1, p6]*
                        barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                    (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                      lam[1, p5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) - 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                      lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])))) + lam[1, p5]*(
                lam[2, p4] + (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6])) - (barlam[1, p5]*barlam[2, 
                       p4] - barlam[1, p4]*barlam[2, p5])*(-(lam[2, p5]*
                       (lam[1, p4] - (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p4] - 
                       (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*(lam[1, p4] - 
                        (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                       (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - (lam[2, et6]*(lam[2, p3]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, 
                       p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-(lam[2, p6]*(lam[1, p4] + (lam[1, et5]*(-((barlam[1, p6]*
                        barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                    (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                      lam[1, p5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) - 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                      lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])))) + lam[1, p6]*(
                lam[2, p4] + (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6])) - (barlam[1, p5]*barlam[2, 
                       p4] - barlam[1, p4]*barlam[2, p5])*(-(lam[2, p5]*
                       (lam[1, p4] - (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p4] - 
                       (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*(lam[1, p4] - 
                        (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                       (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - (lam[2, et6]*(lam[2, p3]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, 
                       p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                     spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))^5)/
            ((-(lam[1, p6]*lam[2, p5]) + lam[1, p5]*lam[2, p6])*
             (-(((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*lam[1, p6])*lam[2, p6]) + 
              lam[1, p6]*((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6]))*
             (-(((-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                       lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) - barlam[2, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6]))*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))) + ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) - barlam[1, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p3] - barlam[1, p3]*barlam[2, p7])*
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (lam[2, p5]*(lam[1, p4] + (lam[1, et5]*(-((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                   (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) - 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) - lam[1, p5]*(
                lam[2, p4] + (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6])) - (barlam[1, p5]*barlam[2, 
                       p4] - barlam[1, p4]*barlam[2, p5])*(-(lam[2, p5]*
                       (lam[1, p4] - (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p4] - 
                       (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*(lam[1, p4] - 
                        (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                       (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - (lam[2, et6]*(lam[2, p3]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, 
                       p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p7])*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*(
                lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5])) - barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                  barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                (((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))*
                 spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - barlam[2, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/(((barlam[1, p5]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))*
                 spba[p7, {m1, p2}, m1]))^2) - 
           (10*CK*(barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])^
              5*((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - barlam[1, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])) - (barlam[1, p6]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])))*(-((barlam[2, p6]*
                 (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5]))) + (barlam[1, p6]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])))*(-((barlam[2, p6]*
                 (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                     spba[p7, {m1, p2}, m1])))) + (barlam[1, p6]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))))*(((-(barlam[2, p5]*(lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5])) - barlam[2, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[2, p3]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*
                (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p5])*(barlam[1, p7]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p7])*(lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))) - ((-(barlam[1, p5]*(lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5])) - barlam[1, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[2, p3]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p5])*(barlam[1, p7]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p7])*(lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))))*((-(barlam[1, p5]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p5])*lam[2, p5]*(lam[1, m1]*
                 spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(lam[2, p5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[2, p2]*spa[p2, m1]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                      m1])))) - (-(barlam[1, p5]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p5])*lam[1, p5]*(lam[2, m1]*
                 spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(lam[2, p5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[2, p2]*spa[p2, m1]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))))*
             ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
               lam[2, p5]*((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                   spba[p7, {m1, p2}, m1]) - (lam[1, et5]*
                  (-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p5])*(-((barlam[2, p2]*
                      spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                      m1])))) - (-(barlam[1, p5]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p5])*lam[1, p5]*(
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]) - (lam[2, et5]*(-(lam[2, p5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))))*
             ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5])) - barlam[1, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])*spba[p7, {m1, p2}, m1]))^2*
             (-((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
            (((barlam[2, p4]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])) - (barlam[1, p4]*(barlam[2, p5]*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])))^2*
             (-((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5]) + barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]))) + (barlam[1, p5]*
                 (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p5]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])))^2*(-(lam[2, p5]*(lam[1, p4] - 
                 (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])))) + lam[1, p5]*(
                lam[2, p4] - (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             (-((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p5])*lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                  spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p4])*lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[1, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                    (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(lam[2, p5]*(lam[1, p4] - 
                       (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*(-((barlam[2, p2]*spa[p2, m1]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                    (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1]))))) + (-(barlam[1, p5]*
                  barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(lam[2, p5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[2, p2]*spa[p2, m1]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))))*
             (lam[2, p6]*((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                   spba[p7, {m1, p2}, m1]) - (lam[1, et5]*
                  (-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p5])*(-((barlam[2, p2]*
                      spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                      m1])))) - lam[1, p6]*((-(barlam[1, p7]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[2, et5]*
                  (-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p5])*(-((barlam[2, p2]*
                      spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[2, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                    (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(lam[2, p5]*(lam[1, p4] - 
                       (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*(-((barlam[2, p2]*spa[p2, m1]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                    (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p7]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 (lam[1, et5]*(-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*
                         (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p5])*(-((barlam[2, p2]*
                       spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                    (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1]))))) + (lam[1, m1]*spb[m1, p7] + 
                lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*lam[1, et6]*(lam[2, p3]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(lam[2, p5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[2, p2]*spa[p2, m1]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))))*(
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]) - (lam[2, et5]*(-(lam[2, p5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))))) - 
           (10*CK*(barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])^
              5*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p6]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])) - (barlam[1, p5]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p6]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])))*(-((barlam[2, p5]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]))) + (barlam[1, p5]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p6]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])))*(-((barlam[2, p5]*
                 (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                     spba[p7, {m1, p2}, m1])))) + (barlam[1, p5]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))))*(((-(barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[2, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[2, p3]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*
                (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p6]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p6])*(barlam[1, p7]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))) - ((-(barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[1, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[2, p3]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p6]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p6])*(barlam[1, p7]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))))*((-(barlam[1, p6]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p6])*lam[2, p6]*(lam[1, m1]*
                 spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p2]*spa[p2, m1]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                      m1])))) - (-(barlam[1, p6]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p6])*lam[1, p6]*(lam[2, m1]*
                 spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p2]*spa[p2, m1]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))))*
             ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[2, p6]*((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                   spba[p7, {m1, p2}, m1]) - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p2]*
                      spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                      m1])))) - (-(barlam[1, p6]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p6])*lam[1, p6]*(
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]) - (lam[2, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))))*
             ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[1, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*spba[p7, {m1, p2}, m1]))^2*
             (-((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
            (((barlam[2, p4]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])) - (barlam[1, p4]*(barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) + (barlam[1, p6]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*(-(lam[2, p6]*(lam[1, p4] - 
                 (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])))) + lam[1, p6]*(
                lam[2, p4] - (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             (-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p6])*lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                  spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p4])*lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[1, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                    (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(lam[2, p6]*(lam[1, p4] - 
                       (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p2]*spa[p2, m1]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                    (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1]))))) + (-(barlam[1, p6]*
                  barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p2]*spa[p2, m1]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))))*
             (lam[2, p5]*((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                   spba[p7, {m1, p2}, m1]) - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p2]*
                      spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                      m1])))) - lam[1, p5]*((-(barlam[1, p7]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p2]*
                      spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (lam[2, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                    (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(lam[2, p6]*(lam[1, p4] - 
                       (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p2]*spa[p2, m1]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                    (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p7]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 (lam[1, et5]*(-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*
                         (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p2]*
                       spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                    (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1]))))) + (lam[1, m1]*spb[m1, p7] + 
                lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*lam[1, et6]*(lam[2, p3]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p2]*spa[p2, m1]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))))*(
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]) - (lam[2, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))))) - 
           (10*CK*(barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
             (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p5]*((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                   spba[p7, {m1, p2}, m1]) - (lam[1, et5]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p5])*(-((barlam[2, p4]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*((barlam[1, p5]*
                  barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) - lam[1, p5]*((-(barlam[1, p7]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[2, et5]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p5])*(-((barlam[2, p4]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*((barlam[1, p5]*
                  barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]))*(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*
                  (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*((barlam[1, p5]*
                  barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) - lam[1, p5]*(lam[2, p4] - (lam[2, et6]*
                  (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*((barlam[1, p5]*
                  barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]))*(-((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5])) + 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p4]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             ((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                  (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                       lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/spba[p7, 
                     {m1, p2}, m1]))/((barlam[1, p7]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p7])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))*(-(barlam[2, p5]*
                    (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) + 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^2*
             (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1])^5)/
            ((-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))) - lam[1, p6]*(
                lam[2, p4] - (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))))*
             (-(((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - (lam[2, et5]*(-(lam[2, p5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p5])*(-((barlam[2, p4]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
                (lam[1, p4] - (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                   (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                   (-((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))))) + ((-(barlam[1, p7]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, et5]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p5])*(-((barlam[2, p4]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*(lam[2, p4] - 
                (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))))*
             (-(lam[2, p5]*((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                    barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                    spba[p7, {m1, p2}, m1]) - (lam[1, et5]*
                   (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p5])*(-((barlam[2, p4]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
                ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                   m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                  spba[p7, {m1, p2}, m1])) + lam[1, p5]*(
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]) - (lam[2, et5]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p5])*(-((barlam[2, p4]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*((barlam[1, p5]*
                  barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]))*(-((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5]) - (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/spba[p7, 
                     {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p5]*
                 (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) - (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^2*
             (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5]) - (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/spba[p7, 
                     {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])*spba[p7, {m1, p2}, 
                   m1])) + (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) - 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])*spba[p7, {m1, p2}, m1]))^
              2) - (10*CK*(barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                2, p5])*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p6]*((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                   spba[p7, {m1, p2}, m1]) - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p4]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*((barlam[1, p6]*
                  barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) - lam[1, p6]*((-(barlam[1, p7]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p4]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*((barlam[1, p6]*
                  barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]))*(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*
                  (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*((barlam[1, p6]*
                  barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) - lam[1, p6]*(lam[2, p4] - (lam[2, et6]*
                  (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*((barlam[1, p6]*
                  barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]))*(-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p4]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                  (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                       lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/spba[p7, 
                     {m1, p2}, m1]))/((barlam[1, p7]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p6]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))*(-(barlam[2, p6]*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^2*
             (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1])^5)/
            ((-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p5]*(lam[1, p4] - (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))) - lam[1, p5]*(
                lam[2, p4] - (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))))*
             (-(((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - (lam[2, et5]*(-(lam[2, p6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p4]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
                (lam[1, p4] - (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])) - (lam[1, et5]*
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                   (-((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))))) + ((-(barlam[1, p7]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p4]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*(lam[2, p4] - 
                (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])) - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))))*
             (-(lam[2, p6]*((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                    barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                    spba[p7, {m1, p2}, m1]) - (lam[1, et5]*
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p4]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
                ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                   m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                  spba[p7, {m1, p2}, m1])) + lam[1, p6]*(
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]) - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p4]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*((barlam[1, p6]*
                  barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]))*(-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) - (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/spba[p7, 
                     {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p6]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) - (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^2*
             (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) - (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/spba[p7, 
                     {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])*spba[p7, {m1, p2}, 
                   m1])) + (barlam[1, p2]*spa[p2, m1]*(barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])*spba[p7, {m1, p2}, m1]))^
              2) - (10*CK*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                2, p6])*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^5*
             (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                 (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                        lam[2, p6])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))/((lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                 (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                        lam[2, p6])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                          lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))/((lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             ((barlam[2, p6]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) - (barlam[1, p2]*
                   spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])) - (barlam[1, p6]*
                (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) - (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1])^2*(-((barlam[1, p6]*barlam[2, p2]*
                 spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])*
             ((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5]) + barlam[1, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                 (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                 m1]) - (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) - (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                 m1]))*(-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) - (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/
                (((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                  {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) - (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                        (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                 m1])))/((-(lam[1, p6]*lam[2, p5]) + lam[1, p5]*lam[2, p6])*
             (lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[1, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] - ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*lam[2, et6]*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-(lam[2, p6]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              lam[1, p6]*(lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                     p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                 ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1])))*
             (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p7])*(lam[2, p4] - (lam[2, et6]*(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*(
                lam[1, p4] - (lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) + (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7] - ((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/spba[p7, 
                     {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p4]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[1, et6]*
                         (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] - ((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*lam[2, et6]*
                         (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2*
             (((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))*(-(barlam[1, p5]*
                    (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
               ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))*(-(barlam[2, p5]*
                    (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
                  barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] - 
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*lam[1, et6]*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p2]*spb[p2, p7] - ((barlam[1, p4]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                         lam[2, et6]*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/spba[p7, {m1, p2}, m1]))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))^2)))/
         (((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                     m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                    spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, 
                 p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                   m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1]))) - (barlam[1, p3]*(barlam[2, p3]*
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
               barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                     m1]))))/((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                   s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                   m1]))))^2*(-((barlam[2, p7]*(barlam[1, p3]*
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))/((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                 barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                 (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                    m1])))) + (barlam[1, p7]*(barlam[2, p3]*
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
               barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                     m1]))))/((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                   s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                   m1]))))^2*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
              spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
             (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])^5*
          ((-10*CK*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                 p6])^5*(-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5])) - barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
              (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6])))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
               lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[1, et5]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                    lam[2, p6]))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6])*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
               lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[2, et5]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                    lam[2, p6]))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6])*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
               lam[2, p6]*(lam[1, p7] - (lam[1, et5]*(lam[1, p6]*lam[2, p5] - 
                   lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
               lam[1, p6]*(lam[2, p7] - (lam[2, et5]*(lam[1, p6]*lam[2, p5] - 
                   lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((barlam[2, p7]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]) + (lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                     spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              (barlam[1, p7]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]) + (lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                     spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (((-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))*(barlam[1, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])) - (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))*(barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])) - (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-(((-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]))*(barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) - (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))*(barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])) - (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                 m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                {m1, p2}, m1])*((barlam[2, p2]*(-(barlam[1, p5]*
                    (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]))*spa[p2, m1])/((barlam[1, p6]*barlam[2, 
                    p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                   lam[2, et5] - lam[1, et5]*lam[2, p6])*spba[p7, {m1, p2}, 
                  m1]) - (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5])) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))*
                 spa[p2, m1])/((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6])*spba[p7, {m1, p2}, m1]))^2)/
            ((lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
             ((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
               (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-((barlam[2, p6]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
               (barlam[1, p6]*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                   p6])*lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                  spb[p2, p7] + (lam[1, et6]*(-((barlam[1, p6]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                     (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                  ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p7])*lam[1, et5]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                     lam[2, p6]))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
               lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[2, et5]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                    lam[2, p6]))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6])*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             ((lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                 ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(lam[1, p7] - (lam[1, et5]*
                  (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[1, p7]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1])) + (lam[1, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1]) - (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                 ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]))*(lam[2, p7] - (lam[2, et5]*
                  (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[1, p7]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1])) + (lam[2, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1]))*(-((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                  spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                     (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                  ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p7])*lam[2, et5]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                     lam[2, p6]))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] - 
                 (lam[1, et5]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                   ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p6])*(-((barlam[1, p7]*
                       barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])) + (lam[1, m1]*s[m1, p2])/spba[p7, 
                   {m1, p2}, m1])) + (lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                 spb[p2, p7] + (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*barlam[2, 
                        p5]) + barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                        spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[1, et5]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                    lam[2, p6]))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6])*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] - 
                (lam[2, et5]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[1, p7]*
                      barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1])) + (lam[2, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1]))) - (10*CK*(-(barlam[1, p7]*barlam[2, p6]) + 
              barlam[1, p6]*barlam[2, p7])*((lam[2, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                 ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]))*(lam[1, m1]*spb[m1, p7] + 
                lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                  (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                        p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[1, et5]*(lam[2, p5]*(lam[1, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, p5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(
                -((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                    spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                 ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                 spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*barlam[2, 
                        p5]) + barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                        spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[2, et5]*(lam[2, p5]*(lam[1, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, p5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(
                -((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                    spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             ((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - ((lam[2, et5]*(lam[1, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                    lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                  (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1])))*((barlam[2, p5]*
                   (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))) - 
              (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - ((lam[2, et5]*(lam[1, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                    lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[2, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                  (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1])))*((barlam[2, p5]*
                   (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*
             (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - ((lam[2, et5]*(lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                         p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                   (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])))*((barlam[2, p5]*
                    (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p6]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                  (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1])))*((barlam[2, p5]*
                   (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*
             (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - ((lam[2, et5]*(lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                         p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                   (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])))*((barlam[2, p5]*
                    (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p7]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                  (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1])))*((barlam[2, p5]*
                   (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*
             ((lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                 ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(-((barlam[2, p5]*(barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, 
                       m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                    spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] - 
                (lam[1, et5]*(lam[2, p5]*(lam[1, p5]*((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - lam[1, p5]*(lam[2, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et5]*
                    (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                 ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(-((barlam[2, p5]*(barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, 
                       m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                    spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] - 
                (lam[2, et5]*(lam[2, p5]*(lam[1, p5]*((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - lam[1, p5]*(lam[2, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et5]*
                    (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - (barlam[1, p5]*
                 (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))^5*
             (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                 m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                {m1, p2}, m1])*((barlam[2, p2]*spa[p2, m1]*
                 (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - ((lam[2, et5]*(lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                         p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                   (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])))*((barlam[2, p5]*
                    (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))*spba[p7, {m1, p2}, m1]) - 
               (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
                  ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p5]*
                     ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                   (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])))*((barlam[2, p5]*
                    (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))*spba[p7, {m1, p2}, m1]))^2)/
            ((lam[2, p5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                     p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                 ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])) - lam[1, p5]*(lam[2, p5]*
                 ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                   spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-((lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                  ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                  ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))*(lam[1, m1]*spb[m1, p7] + 
                 lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                   (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                         p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                     (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                    (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p7])*lam[1, et5]*(lam[2, p5]*(lam[1, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                    lam[1, p5]*(lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                    lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(-((barlam[1, p7]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                (-((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p5]*(barlam[2, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, 
                       m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                 ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                 spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*barlam[2, 
                        p5]) + barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                        spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[2, et5]*(lam[2, p5]*(lam[1, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, p5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(
                -((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                    spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             ((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + ((lam[2, et5]*(lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                         p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                   (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])))*((barlam[2, p5]*
                    (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (barlam[1, p5]*(barlam[2, p5]*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p5]*
                     ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                   (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])))*((barlam[2, p5]*
                    (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))))^2*(lam[2, p6]*(lam[1, p7] - 
                (lam[1, et5]*(lam[2, p5]*(lam[1, p5]*((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - lam[1, p5]*(lam[2, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et5]*
                    (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              lam[1, p6]*(lam[2, p7] - (lam[2, et5]*(lam[2, p5]*
                    (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, p5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et5]*
                    (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                 (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                        lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                     (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                    (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p7])*lam[2, et5]*(lam[2, p5]*(lam[1, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                    lam[1, p5]*(lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                    lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(-((barlam[1, p7]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                (lam[1, p7] - (lam[1, et5]*(lam[2, p5]*(lam[1, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                    lam[1, p5]*(lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[1, et5]*(lam[2, p5]*(lam[1, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, p5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] - 
                (lam[2, et5]*(lam[2, p5]*(lam[1, p5]*((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - lam[1, p5]*(lam[2, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((lam[2, et5]*
                    (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (((barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))*(barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) - (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                   (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])))*
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                 ((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - ((barlam[1, p5]*(lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))*(barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) - (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                   (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])))*
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                 ((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))))^2) - 
           (10*CK*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])^
              2*(-(lam[2, p6]*(lam[1, p5] + (lam[1, et5]*
                   (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                         p6])) - (lam[2, p5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p5]*(lam[2, p5]*
                         ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - (lam[2, p6]*(lam[1, p5]*
                         ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                         ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, p6]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*((barlam[2, p6]*(barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p6]*(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + (lam[2, et5]*(lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*((barlam[2, p5]*(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))) + lam[1, p6]*(lam[2, p5] + 
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (lam[2, p5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p5]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - (lam[2, p6]*(lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, p6]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*((barlam[2, p6]*(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p6]*(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (lam[2, et5]*(lam[1, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                    lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*((barlam[2, p5]*(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))*((lam[2, p5] + 
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (lam[2, p5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p5]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - (lam[2, p6]*(lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, p6]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*((barlam[2, p6]*(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p6]*(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (lam[2, et5]*(lam[1, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                    lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*((barlam[2, p5]*(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))*(lam[1, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                 ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1])) - (lam[1, p5] + 
                (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (lam[2, p5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p5]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - (lam[2, p6]*(lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, p6]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*((barlam[2, p6]*(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p6]*(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (lam[2, et5]*(lam[1, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                    lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*((barlam[2, p5]*(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))*(lam[2, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                 ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1])))*((barlam[2, p5]*
                (barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*(lam[1, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                    lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                   (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])))*((barlam[2, p5]*
                    (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (barlam[1, p5]*(barlam[2, p5]*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                   (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])))*((barlam[2, p5]*
                    (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))))*(-((barlam[2, p5]*
                 (barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*(lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                         p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) + 
              (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                   (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])))*((barlam[2, p5]*
                    (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))))*((barlam[2, p5]*(barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])) - (barlam[1, p5]*
                (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]) + (lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                     spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             ((barlam[2, p6]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]) + (lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                     spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              (barlam[1, p6]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]) + (lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                     spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-(((barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*(lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                         p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                 (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                   spba[p7, {m1, p2}, m1]))/(((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (lam[2, et5]*(lam[1, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                    lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*((barlam[2, p5]*(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              ((barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*(lam[1, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                    lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                  spba[p7, {m1, p2}, m1]))/(((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + (lam[2, et5]*(lam[1, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1])^5)/((lam[2, p6]*(lam[1, p5] + 
                (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (lam[2, p5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p5]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - (lam[2, p6]*(lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, p6]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*((barlam[2, p6]*(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p6]*(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (lam[2, et5]*(lam[1, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                    lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*((barlam[2, p5]*(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) - lam[1, p6]*(lam[2, p5] + 
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (lam[2, p5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p5]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - (lam[2, p6]*(lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, p6]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*((barlam[2, p6]*(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p6]*(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (lam[2, et5]*(lam[1, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                    lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*((barlam[2, p5]*(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))))*(-(lam[2, p6]*
                (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                  ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                  ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) + lam[1, p6]*(
                lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                 ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*(((-(barlam[1, p6]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                   ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                   ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))*(-((barlam[2, p5]*
                     (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p5]*(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))*(lam[1, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                 ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1])) - ((-(barlam[1, p6]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                   ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                   ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))*(-((barlam[2, p5]*
                     (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p5]*(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))*(lam[2, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                 ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1])))*
             (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                   ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                         ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   ((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) + (barlam[1, p7]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - ((lam[2, et5]*(lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                         p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))))^2*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et5] - lam[1, et5]*lam[2, p5])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                   ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                         ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                 (((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p6]) + (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*spba[p7, {m1, p2}, m1])) + 
               (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                      lam[2, et5] - lam[1, et5]*lam[2, p5])) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                  ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/(((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (lam[2, et5]*(lam[1, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                    lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*((barlam[2, p5]*(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p5]*(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*spba[p7, {m1, p2}, m1]))^2) - 
           (10*CK*(-((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                 (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                        lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                     (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                    (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p7])*lam[2, et5]*(-((lam[2, p5]*((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + (lam[1, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p5]*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                  ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                  ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))*(-((barlam[2, p7]*
                    (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p7]*(barlam[2, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, 
                       m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[1, et5]*(-((lam[2, p5]*((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1])) + (lam[1, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p5]*
                 ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                   spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*(
                -((barlam[2, p7]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                (barlam[1, p7]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                    spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             ((lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                 ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(lam[1, p5] - (lam[1, et5]*
                  (-((lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) + (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(-((barlam[2, p7]*
                   (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                (barlam[1, p7]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                    spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                 ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(lam[2, p5] - (lam[2, et5]*
                  (-((lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) + (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(-((barlam[2, p7]*
                   (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                (barlam[1, p7]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                    spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - ((lam[2, et5]*
                       (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[2, p7]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) + 
               (barlam[1, p5]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - ((lam[2, et5]*
                      (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                         p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                   (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])))*((barlam[2, p7]*
                    (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p7]*(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))))^2*((barlam[2, p6]*
                (-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))) - ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                  (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1])))*((barlam[2, p7]*
                   (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p7]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))) - 
              (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - ((lam[2, et5]*
                     (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                    lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[2, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                  (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1])))*((barlam[2, p7]*
                   (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p7]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*
             (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - ((lam[2, et5]*
                      (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                         p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                   (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])))*((barlam[2, p7]*
                    (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p7]*(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p6]*
                (-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))) - ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                  (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1])))*((barlam[2, p7]*
                   (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p7]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*
             ((barlam[2, p7]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - (barlam[1, p7]*
                 (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))^5*
             ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                {m1, p2}, m1])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                spa[p2, m1])/spba[p7, {m1, p2}, m1])*
             ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                 ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                  (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1])))*((barlam[2, p7]*
                   (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p7]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))*spba[p7, 
                 {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                (-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))) - ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                  (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1])))*((barlam[2, p7]*
                   (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p7]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))*spba[p7, 
                 {m1, p2}, m1])))/((lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                  (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                        p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[1, et5]*(-((lam[2, p5]*((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1])) + (lam[1, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) - lam[1, p6]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[2, et5]*(-((lam[2, p5]*((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1])) + (lam[1, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[2, et5]*(-((lam[2, p5]*((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1])) + (lam[1, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p5] - 
                (lam[1, et5]*(-((lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1])) + (lam[1, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[1, et5]*(-((lam[2, p5]*((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1])) + (lam[1, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p5] - 
                (lam[2, et5]*(-((lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1])) + (lam[1, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             (-((lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                  ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                  ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))*(lam[1, p5] - 
                 (lam[1, et5]*(-((lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + (lam[1, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])))*
                (-((barlam[2, p7]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p7]*(barlam[2, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, 
                       m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                 ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(lam[2, p5] - (lam[2, et5]*
                  (-((lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) + (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1])))*(-((barlam[2, p7]*
                   (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                (barlam[1, p7]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                    spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             ((barlam[2, p7]*(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])) + ((lam[2, et5]*(lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                         p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                   (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])))*((barlam[2, p7]*
                    (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p7]*(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (barlam[1, p7]*(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                  ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p5]*
                     ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                   (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])))*((barlam[2, p7]*
                    (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p7]*(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))))^2*
             (-((lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                  ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                  ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                 ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))*
             (((barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) + ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))*(barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) - (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                   (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])))*
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                 ((barlam[2, p7]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p7]*(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - ((barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                  ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))*(barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) - (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                   (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])))*
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                 ((barlam[2, p7]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p7]*(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))))^2) - 
           (10*CK*(-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                barlam[2, p7])^2*((barlam[2, p7]*(barlam[1, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])) + ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                   (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])))*((barlam[2, p7]*
                    (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p7]*(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (barlam[1, p7]*(barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])) + ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                   (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])))*((barlam[2, p7]*
                    (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p7]*(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))))*(-((barlam[2, p7]*
                 (barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])) + ((lam[2, et5]*(lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                         p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[2, p7]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) + 
              (barlam[1, p7]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                 ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                   (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])))*((barlam[2, p7]*
                    (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p7]*(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))))*(-(lam[2, p6]*(lam[1, p7] + 
                 (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (lam[2, p6]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*(lam[2, p5]*
                         ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*((barlam[2, p6]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p6]*(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - (-((lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + (lam[1, p5]*
                         ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                         ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[2, p7]*(barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p7]*(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((-(barlam[1, p7]*barlam[2, 
                        p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                   (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*((barlam[2, p7]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p7]*(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (lam[2, p6]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*((barlam[2, p6]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p6]*(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - (-((lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + (lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))*((barlam[2, p7]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p7]*(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((-(barlam[1, p7]*barlam[2, 
                       p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   ((barlam[2, p7]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p7]*(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))*
             (-((lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                  ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                  ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))*(lam[1, p7] + 
                 (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (lam[2, p6]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*(lam[2, p5]*
                         ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*((barlam[2, p6]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p6]*(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - (-((lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + (lam[1, p5]*
                         ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                         ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[2, p7]*(barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p7]*(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((-(barlam[1, p7]*barlam[2, 
                        p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                   (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*((barlam[2, p7]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p7]*(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (lam[1, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                 ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                       barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (lam[2, p6]*(lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, p6]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*((barlam[2, p6]*(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p6]*(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - (-((lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + (lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))*((barlam[2, p7]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p7]*(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((-(barlam[1, p7]*barlam[2, 
                       p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   ((barlam[2, p7]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p7]*(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))*((barlam[2, p6]*(barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])) - (barlam[1, p6]*
                (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]) + (lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                     spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             ((barlam[2, p7]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]) + (lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                     spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              (barlam[1, p7]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]) + (lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                     spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-(((barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])) + ((lam[2, et5]*(lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                         p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                 (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                   spba[p7, {m1, p2}, m1]))/(((-(barlam[1, p7]*barlam[2, 
                       p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   ((barlam[2, p7]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p7]*(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*((lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              ((barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) + ((lam[2, et5]*(lam[1, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                    lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                  spba[p7, {m1, p2}, m1]))/(((-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[2, p7]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1])^5)/
            ((-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                 (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                        lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                     (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                    (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-(lam[2, p6]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                  ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) + lam[1, p6]*(
                lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                 ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*(((barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*lam[2, p6] + 
                (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                   ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                   ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))*(-((barlam[2, p7]*
                     (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p7]*(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))*(lam[1, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                 ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1])) - ((barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*lam[1, p6] + 
                (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                   ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                   ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))*(-((barlam[2, p7]*
                     (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p7]*(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))*(lam[2, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                 ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1])))*
             (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p6])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                         ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                      p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p6]) + (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   ((barlam[2, p7]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p7]*(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) + (barlam[1, p5]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])) - ((lam[2, et5]*(lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                         p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[2, p7]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))))^2*
             (lam[2, p6]*(lam[1, p7] + (lam[1, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                       barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (lam[2, p6]*(lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, p6]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*((barlam[2, p6]*(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p6]*(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - (-((lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + (lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))*((barlam[2, p7]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p7]*(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((-(barlam[1, p7]*barlam[2, 
                       p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   ((barlam[2, p7]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p7]*(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + (lam[1, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (lam[2, p6]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*((barlam[2, p6]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p6]*(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - (-((lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + (lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))*((barlam[2, p7]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p7]*(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((-(barlam[1, p7]*barlam[2, 
                       p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   ((barlam[2, p7]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p7]*(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))*(-((barlam[2, p2]*spa[p2, m1]*
                  (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                       lam[2, p6])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                         ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                 (((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p6]) + (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*((barlam[2, p7]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p7]*(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*spba[p7, {m1, p2}, m1])) + 
               (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                  ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/(((-(barlam[1, p7]*barlam[2, p6]) + 
                    barlam[1, p6]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (lam[2, et5]*(lam[1, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                    lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*((barlam[2, p7]*(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p7]*(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))*spba[p7, {m1, p2}, m1]))^2) - 
           (10*CK*(-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                barlam[2, p7])^5*(-((barlam[2, p5]*(-(barlam[1, p6]*
                     (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) + (barlam[1, p5]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))/((-(barlam[1, p7]*
                    barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*lam[
                2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*lam[
                1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*lam[
                2, p6]*(lam[1, p5] - (lam[1, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) - (barlam[1, p7]*
                 barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*lam[1, p6]*(
                lam[2, p5] - (lam[2, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             (((-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))*(barlam[1, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])) - (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                   p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))*(barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])) - (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                   p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-(((-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))*(barlam[1, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))*(barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])) - (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                   p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                {m1, p2}, m1])*((barlam[2, p2]*spa[p2, m1]*
                (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                 barlam[1, p6]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*spba[p7, {m1, p2}, m1]) - 
              (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                   p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                spba[p7, {m1, p2}, m1]))*(-((barlam[2, p2]*spa[p2, m1]*
                 (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                   spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                  {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                  spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                 m1])))/((-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p7]*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p6]))) + (barlam[1, p6]*(barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^
              2*((barlam[2, p7]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
               (barlam[1, p7]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^
              2*(-((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                 (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                        lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                     (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                    (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p7])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                    lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                  ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                  ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(
                lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                 ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*(-((barlam[1, p7]*barlam[2, p6] - 
                 barlam[1, p6]*barlam[2, p7])*lam[2, p6]*(lam[1, p5] - 
                 (lam[1, et5]*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*lam[
                1, p6]*(lam[2, p5] - (lam[2, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(
                lam[1, p5] - (lam[1, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(
                lam[2, p5] - (lam[2, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))))*
             (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                   {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
           (10*CK*(-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                p7])*(lam[2, p6]*(lam[1, p5] - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] + (lam[1, et6]*(-((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                         (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
               ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p5] - 
                (lam[2, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                        (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
               ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]))*(lam[2, p6]*(lam[1, p7] - 
                (lam[1, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                        (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*(
                (barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] - 
                (lam[2, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                        (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*(
                (barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]))*((barlam[2, p5]*(barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])) - (barlam[1, p5]*
                (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]) + (lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                     spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] + (lam[1, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] + (lam[1, et6]*(-((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                         (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                         (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] + (lam[1, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                    spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] + (lam[1, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2*
             (((barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                  spba[p7, {m1, p2}, m1])*(-(barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                 (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                        (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                         (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*((lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])) - 
              ((barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                  spba[p7, {m1, p2}, m1])*(-(barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                        (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                         (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*((lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (-(((barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                   spba[p7, {m1, p2}, m1])*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                         (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*((lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]))) + 
              ((barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                  spba[p7, {m1, p2}, m1])*(-(barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                        (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                         (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*((lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1])^5)/
            ((-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                 (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                        lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                     (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                    (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             ((lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                 ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(lam[1, p5] - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] + (lam[1, et6]*(-((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                         (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p6]))) - (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                 ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]))*(lam[2, p5] - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] + (lam[1, et6]*(-((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                         (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p6]))))*((lam[2, p5] - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                      (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
               (lam[1, p7] - (lam[1, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                        (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p5] - (lam[1, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                        (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
               (lam[2, p7] - (lam[2, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                        (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-(lam[2, p6]*(lam[1, p7] - (lam[1, et5]*(-(lam[2, p6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                       (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                   ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))/((-(barlam[1, p7]*
                      barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                   m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                  spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] - 
                (lam[2, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                        (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*(
                (barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]))*(-((barlam[2, p6]*(barlam[1, p6]*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                   (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                          (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                    spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               (barlam[1, p6]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] + (lam[1, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2*
             (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) - (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                          (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                    spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])*
                  spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) - (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                       (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])*
                 spba[p7, {m1, p2}, m1]))^2) - 
           (10*CK*(-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                barlam[2, p7])^5*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                 lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                   (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                         p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                     (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                    (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) + 
                 (lam[1, et5]*(-((lam[2, p6]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*(lam[2, p5]*
                          ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                          ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*((barlam[2, p6]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p6]*(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                          (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[
                          p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*(-((barlam[1, 
                          p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1])))/((lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7] + (lam[2, et6]*
                          (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                     (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                        (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                       (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] + (lam[1, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                       (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                      (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                     (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))))) + 
              lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) + 
                (lam[2, et5]*(-((lam[2, p6]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*(lam[2, p5]*
                         ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*((barlam[2, p6]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p6]*(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) - (-(lam[2, p6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                          (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                       (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] + (lam[1, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                     (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                    (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) + 
                (lam[2, et5]*(-((lam[2, p6]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*(lam[2, p5]*
                         ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*((barlam[2, p6]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p6]*(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) - (-(lam[2, p6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                          (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                       (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] + (lam[1, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                     (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                    (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))))*(
                lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                 ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                 spb[p2, p7] + (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*barlam[2, 
                        p5]) + barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                        spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) + 
                (lam[1, et5]*(-((lam[2, p6]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*(lam[2, p5]*
                         ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*((barlam[2, p6]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p6]*(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) - (-(lam[2, p6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                          (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                       (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] + (lam[1, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                     (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                    (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))))*(
                lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                 ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*((barlam[2, p6]*(barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])) - (barlam[1, p6]*
                (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]) + (lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                     spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (((barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                  spba[p7, {m1, p2}, m1])*(barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                        (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                         (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))) - 
              ((barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                  spba[p7, {m1, p2}, m1])*(barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                        (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                         (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))))*
             (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1])^2*(-((barlam[2, p2]*spa[p2, m1]*
                 (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                   spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                  {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                  spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, {m1, p2}, 
                 m1]))*((barlam[2, p2]*spa[p2, m1]*(barlam[1, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                        (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                         (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/(((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))*
                spba[p7, {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                        (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                         (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/(((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))*
                spba[p7, {m1, p2}, m1]))*(-((barlam[2, p2]*spa[p2, m1]*
                 (barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] + (lam[1, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/(((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                    (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))*
                 spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                        (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                         (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/(((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))*
                spba[p7, {m1, p2}, m1])))/((lam[2, p6]*(lam[1, m1]*
                 spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                  (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                        p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) + 
                (lam[1, et5]*(-((lam[2, p6]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*(lam[2, p5]*
                         ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*((barlam[2, p6]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p6]*(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) - (-(lam[2, p6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                          (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                       (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] + (lam[1, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                     (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                    (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))) - 
              lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) + 
                (lam[2, et5]*(-((lam[2, p6]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*(lam[2, p5]*
                         ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*((barlam[2, p6]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p6]*(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) - (-(lam[2, p6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                          (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                         p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                       (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] + (lam[1, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                      (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                     (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                    (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))))*
             (-(lam[2, p6]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                  ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))) + lam[1, p6]*(
                lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                 ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*(-((lam[2, p5]*((barlam[1, p5]*
                     barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                   (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, 
                      p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                   (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                    spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                (lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*
                     spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/(((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                   (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))) + 
              (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                 ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                   ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                   ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))*((barlam[2, p2]*
                    spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]) - 
                  (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/(((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                     {m1, p2}, m1]))))*(-(lam[2, p5]*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1]))*(-((barlam[2, p5]*(-(barlam[1, p6]*
                     (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                   ((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                         ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                          (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                    spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                    (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))) + 
               (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - ((lam[2, et5]*(lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                         p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1])) + 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                         (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))))^2*
             ((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - ((lam[2, et5]*(lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                         p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1])) + 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                         (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))) - 
               (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - ((lam[2, et5]*(lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                         p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1])) + 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                         (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                 (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))))^2) - 
           (10*CK*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
             (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
             ((lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                 ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(lam[1, p5] - (lam[1, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                     (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                     (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*(
                (barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                   barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                      lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 (((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                   {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                  (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                    spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                   {m1, p2}, m1])) - (lam[1, p5]*((barlam[1, p5]*barlam[2, 
                     p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                 ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]))*(lam[2, p5] - (lam[2, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                     (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                     (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*(
                (barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                   barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                      lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 (((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                   {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                  (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                    spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                   {m1, p2}, m1])))*((lam[2, p5]*((barlam[1, p5]*barlam[2, 
                     p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                 ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]))*(lam[1, p7] - (lam[1, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                     (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                     (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*(
                (barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                   barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                      lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 (((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                   {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                  (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                    spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                   {m1, p2}, m1])) - (lam[1, p5]*((barlam[1, p5]*barlam[2, 
                     p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                 ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]))*(lam[2, p7] - (lam[2, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                     (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                     (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*(
                (barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                   barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                      lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 (((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                   {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                  (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                    spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                   {m1, p2}, m1])))*(-((barlam[2, p5]*
                 (-(((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                         ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                         (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p5]*
                     ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                   (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])))*
                 (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                  (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/(((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                     {m1, p2}, m1])))) + (barlam[1, p5]*
                (-(((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] + (lam[1, et6]*(-((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                         (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                         (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p5]*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                  (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1])))*
                (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/(((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                     {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                   (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))))*
             ((barlam[2, p6]*(-(((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] + (lam[1, et6]*(-((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                         (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                         (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p5]*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                  (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1])))*
                (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/(((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                     {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                   (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p6]*(-(((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] + (lam[1, et6]*(-((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                         (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                         (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p5]*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                  (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1])))*
                (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/(((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                     {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                   (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))))*
             (-((barlam[2, p6]*(-(((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                         ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                         (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p5]*
                     ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                   (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])))*
                 (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                  (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/(((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                     {m1, p2}, m1])))) + (barlam[1, p6]*
                (-(((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7] + (lam[1, et6]*(-((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                         (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                         (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p5]*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                  (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1])))*
                (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/(((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                     {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                   (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))))*
             (-((barlam[2, p7]*(-(((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                          ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                          ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7] + (lam[1, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                    spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))) + 
               (barlam[1, p7]*(-(((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                         ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                         (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p5]*
                     ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                   (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])))*
                 (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                  (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/(((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                     {m1, p2}, m1]))))^2*(-((barlam[2, p2]*spa[p2, m1]*
                  (barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                    spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                   {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                 (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                   spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                  {m1, p2}, m1]))^5)/(((lam[2, m1]*spb[m1, p7] + 
                lam[2, p2]*spb[p2, p7] + (lam[2, et6]*
                  (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                        p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p5]*
                 ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                   spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p6]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p5]*
                 ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                   spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (lam[2, p6]*(lam[1, p5] - (lam[1, et5]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p2]*spb[p2, p7] + (lam[2, et6]*
                       (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                     (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) - 
              lam[1, p6]*(lam[2, p5] - (lam[2, et5]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p2]*spb[p2, p7] + (lam[2, et6]*
                       (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                     (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))))))*
             ((lam[2, p5] - (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7] + (lam[2, et6]*
                       (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                     (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*(
                lam[1, p7] - (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7] + (lam[2, et6]*
                       (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                     (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p5] - (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7] + (lam[2, et6]*
                       (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                     (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*(
                lam[2, p7] - (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7] + (lam[2, et6]*
                       (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                     (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                  ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                  ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))*(lam[1, p7] - 
                 (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                     (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                      (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                     (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                   ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))/((-(barlam[1, p7]*
                      barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                ((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/(((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                         p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                    {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                   (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))) + 
              (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                 ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                   spba[p7, {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(lam[2, p7] - (lam[2, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7] + 
                     (lam[2, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7] + 
                     (lam[1, et6]*(-((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*(
                (barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                   barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                      lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 (((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                   {m1, p2}, m1]) - (barlam[1, p2]*spa[p2, m1]*
                  (barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                    spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                   {m1, p2}, m1])))*(-(((barlam[2, p5]*(lam[1, p5]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                   barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                      lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7])))/spba[p7, {m1, p2}, m1])*
                  (((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                         ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                          (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                    spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                    (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])))) + 
               ((barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                   spba[p7, {m1, p2}, m1])*(((lam[2, et5]*(lam[1, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - lam[1, et5]*(lam[2, p5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                         p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                         (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p5]*
                     ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                   (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])))*
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                  (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/(((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                     {m1, p2}, m1]))))^2*(-((barlam[2, p2]*spa[p2, m1]*
                  (((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                         ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p2]*spa[p2, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7] + (lam[1, et6]*
                          (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                         spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                         ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                    spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                   (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))*
                  spba[p7, {m1, p2}, m1])) + (barlam[1, p2]*spa[p2, m1]*
                 (((lam[2, et5]*(lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*(lam[2, p5]*
                        ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, 
                          p2}, m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                          barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])))*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7] + (lam[1, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7] + (lam[2, et6]*(-((barlam[1, p6]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) - (-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))/
                        ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                   spba[p7, {m1, p2}, m1]))/((lam[2, et5]*(lam[1, p5]*
                     ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + lam[1, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                   (lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])))*
                 (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/(((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*spba[p7, {m1, p2}, m1])) + 
                  (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/(((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*spba[p7, 
                     {m1, p2}, m1]))*spba[p7, {m1, p2}, m1]))^2)))/
         ((lam[1, p4]*lam[2, p3] - lam[1, p3]*lam[2, p4])*
          ((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) - 
               barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                     m1])) + (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                  lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                      p7])))/spba[p7, {m1, p2}, m1]))/
             ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*(
                -((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                   {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                   spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                  barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
              (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*(
                -((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                   {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1])) - (barlam[1, p3]*
              (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                   lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6]) - barlam[2, p7]*(lam[2, et6]*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                     m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                    spba[p7, {m1, p2}, m1])) + (barlam[2, p2]*spa[p2, m1]*
                 (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                      p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                     spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
             ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*(
                -((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                   {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                   spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                  barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
              (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*(
                -((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                   {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1])))^2*
          (-((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) - 
                barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1])) + (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*
                    (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                   lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7])))/spba[p7, {m1, p2}, m1]))/
              ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
               (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1]))) + 
            (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) - 
               barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                     m1])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                  lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                      p7])))/spba[p7, {m1, p2}, m1]))/
             ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*(
                -((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                   {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]) + (lam[1, p6]*lam[2, et6] - 
                lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                   spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                  barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
              (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*(
                -((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                   {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1])))^2) + 
        (((-10*CK*(barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])^
              2*(-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                 p7])^5*((barlam[2, p3]*(barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p3]*
                  (lam[2, et5]*(lam[1, p3] + (lam[1, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                   lam[1, et5]*(lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/((barlam[1, p6]*
                   barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                ((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))) - (barlam[1, p3]*(barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 barlam[2, p3]*(lam[2, et5]*(lam[1, p3] + (lam[1, et6]*
                       (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - lam[1, et5]*
                    (lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/((barlam[1, p6]*
                   barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                ((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))))*(-((barlam[2, p3]*
                 (barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + barlam[1, p3]*(lam[2, et5]*(lam[1, p3] + 
                      (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))) + (barlam[1, p3]*(barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 barlam[2, p3]*(lam[2, et5]*(lam[1, p3] + (lam[1, et6]*
                       (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - lam[1, et5]*
                    (lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/((barlam[1, p6]*
                   barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                ((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))))*(-(lam[2, p6]*(lam[1, p3] + 
                 (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(-(lam[2, p6]*(lam[1, p3] + 
                          (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                          (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))))) + lam[1, p6]*
                        (lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((barlam[2, p6]*(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                      (barlam[1, p6]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) - ((barlam[2, p3]*
                        (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     ((lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                         ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                          (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                         lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (lam[1, p3] + 
                        (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                          (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                       ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                  ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p6]) + ((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) + (lam[1, et6]*
                   (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                         p5])) - (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                       lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                     (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))) + lam[1, p6]*(
                lam[2, p3] + (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p3] + (lam[1, et6]*(-((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] + (lam[2, et6]*
                          (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((barlam[2, p6]*(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p6]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) - ((barlam[2, p3]*
                       (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    ((lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                      ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (lam[1, p3] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                      ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[2, et6]*
                  (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                        p5])) - (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                      lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))))*((barlam[2, p3]*
                (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                   lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))*((barlam[2, p6]*(barlam[1, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))) - (barlam[1, p6]*(barlam[2, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-(((barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + barlam[2, p3]*(lam[2, et5]*(lam[1, p3] + 
                      (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*((barlam[1, p5]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              ((barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + barlam[1, p3]*(lam[2, et5]*(lam[1, p3] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - lam[1, et5]*
                    (lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(barlam[2, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))*((barlam[1, p5]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*((lam[2, p3] + (lam[2, et5]*
                  (-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*(-(lam[2, p6]*(lam[1, p3] + (lam[1, et6]*
                          (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] + (lam[2, et6]*
                          (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((barlam[2, p6]*(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p6]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) - ((barlam[2, p3]*
                       (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    ((lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                      ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (lam[1, p3] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                      ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[2, et6]*
                  (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                        p5])) - (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                      lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                    barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                 lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
              (lam[1, p3] + (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p3] + (lam[1, et6]*(-((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] + (lam[2, et6]*
                          (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((barlam[2, p6]*(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p6]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) - ((barlam[2, p3]*
                       (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    ((lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                      ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (lam[1, p3] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                      ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[1, et6]*
                  (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                        p5])) - (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                      lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                    barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                 lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
            ((-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p6])) - barlam[1, p3]*(lam[2, et5]*
                      (lam[1, p3] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                     lam[1, et5]*(lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))) + (barlam[1, p5]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] + 
                      (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))^2*((barlam[2, p7]*(-(barlam[1, p6]*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                  barlam[1, p3]*(lam[2, et5]*(lam[1, p3] + (lam[1, et6]*
                        (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))) - (barlam[1, p7]*(-(barlam[2, p6]*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                  barlam[2, p3]*(lam[2, et5]*(lam[1, p3] + (lam[1, et6]*
                        (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))^2*(lam[2, p6]*(lam[1, p3] + 
                (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(-(lam[2, p6]*(lam[1, p3] + 
                         (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                          (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] + (lam[2, et6]*
                          (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((barlam[2, p6]*(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p6]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) - ((barlam[2, p3]*
                       (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    ((lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                      ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (lam[1, p3] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                      ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[1, et6]*
                  (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                        p5])) - (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                      lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))) - lam[1, p6]*(lam[2, p3] + 
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(-(lam[2, p6]*(lam[1, p3] + 
                         (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                          (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] + (lam[2, et6]*
                          (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((barlam[2, p6]*(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p6]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) - ((barlam[2, p3]*
                       (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    ((lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                      ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (lam[1, p3] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                      ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[2, et6]*
                  (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                        p5])) - (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                      lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))))*
             (-(lam[2, p6]*((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                    barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))) + lam[1, p6]*((-(barlam[1, p5]*
                    barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                 lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
             (((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                 lam[2, p6] + (-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                  (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*((-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                  (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1])))*(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])) - ((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                (-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                  (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*((-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                  (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1])))*(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])))*(-(lam[2, p5]*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1]))) - (10*CK*(-(barlam[1, p5]*barlam[2, p3]) + 
              barlam[1, p3]*barlam[2, p5])*(-(barlam[1, p7]*barlam[2, p6]) + 
               barlam[1, p6]*barlam[2, p7])^5*(-((barlam[2, p3]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))/((-(barlam[1, p7]*
                    barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
              (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                   p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p6])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p6]))) + (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^
              2*((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                   lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))) - (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))))*(((-(barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                   p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
              ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))*(barlam[2, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                 barlam[1, p6]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*
             (-(((-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))*(barlam[2, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                 barlam[1, p6]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*((barlam[1, p7]*barlam[2, p6] - 
                barlam[1, p6]*barlam[2, p7])*lam[2, p6]*(lam[1, p5] - 
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  lam[1, et5]*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) - (barlam[1, p7]*barlam[2, p6] - 
                barlam[1, p6]*barlam[2, p7])*lam[1, p6]*(lam[2, p5] - 
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  lam[2, et5]*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))))*((barlam[1, p7]*barlam[2, p6] - 
                barlam[1, p6]*barlam[2, p7])*lam[2, p6]*(lam[1, p3] + 
                (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                       lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, p3] - 
                     lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) - (barlam[1, p7]*barlam[2, p6] - 
                barlam[1, p6]*barlam[2, p7])*lam[1, p6]*(lam[2, p3] + 
                (lam[2, et6]*(-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                       lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, p3] - 
                     lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))))/
            ((-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p6]))) + (barlam[1, p6]*(barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^
              2*((barlam[2, p7]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
               (barlam[1, p7]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^
              2*(-((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                   p7])*lam[2, p6]*(lam[1, p5] - ((barlam[1, p7]*barlam[2, 
                      p3] - barlam[1, p3]*barlam[2, p7])*lam[1, et5]*
                   (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p6])))) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                 barlam[2, p7])*lam[1, p6]*(lam[2, p5] - 
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  lam[2, et5]*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))))*(-((lam[1, p3] + 
                 (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                        lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, p3] - 
                      lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                     (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - 
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p7])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                    lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])))*(lam[2, p5] - 
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   lam[2, et5]*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])))) + (lam[1, p5] - 
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  lam[1, et5]*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*(lam[2, p3] + 
                (lam[2, et6]*(-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                       lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, p3] - 
                     lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))))*(-((lam[2, p3] + 
                 (lam[2, et6]*(-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                        lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, p3] - 
                      lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                     (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - 
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p7])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                    lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])))*((-(barlam[1, p5]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                 (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1]))) + (lam[1, p3] + 
                (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                       lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, p3] - 
                     lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*((-(barlam[1, p5]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])))*
             (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                   {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
           (10*CK*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])^
              2*(barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])^5*
             (-(lam[2, p6]*(lam[1, p5] + (lam[1, et5]*(-((barlam[1, p6]*
                        barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                    ((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                      (barlam[1, p5]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     (lam[2, p5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) - ((barlam[2, p6]*
                        (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p6]*(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                   ((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p5]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))))) + lam[1, p6]*(
                lam[2, p5] + (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6])) - ((barlam[2, p5]*
                       (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) - ((barlam[2, p6]*
                       (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p6]*(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*
             ((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/((barlam[1, p6]*
                   barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                ((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))) - (barlam[1, p5]*(barlam[2, p5]*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/((barlam[1, p6]*
                   barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                ((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))))*(-((barlam[2, p5]*
                 (barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*
                      ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     lam[1, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p5]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))) + (barlam[1, p5]*(barlam[2, p5]*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/((barlam[1, p6]*
                   barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                ((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))))*((barlam[2, p5]*(barlam[1, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p5]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                   lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))*((barlam[2, p6]*(barlam[1, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))) - (barlam[1, p6]*(barlam[2, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-(((barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*
                      ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     lam[1, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*((barlam[1, p5]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              ((barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    lam[1, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, 
                       p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                    barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + ((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p5]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))*((barlam[1, p5]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*((lam[2, p5] + (lam[2, et5]*
                  (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                        p6])) - ((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p5]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) - ((barlam[2, p6]*
                       (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p6]*(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))*(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])) - (lam[1, p5] + (lam[1, et5]*
                  (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                        p6])) - ((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p5]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) - ((barlam[2, p6]*
                       (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p6]*(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))*(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]))))/((lam[2, p6]*(lam[1, p5] + 
                (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - ((barlam[2, p5]*(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p5]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) - ((barlam[2, p6]*
                       (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p6]*(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))) - lam[1, p6]*(
                lam[2, p5] + (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6])) - ((barlam[2, p5]*
                       (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) - ((barlam[2, p6]*
                       (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p6]*(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*
             ((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                  ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p5]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))) - (barlam[1, p3]*(-(barlam[2, p5]*
                    (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
                  barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p5]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))^2*(-((barlam[2, p7]*(-(barlam[1, p5]*
                     (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
                   barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6]) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))) + (barlam[1, p7]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - ((lam[2, et5]*
                      ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     lam[1, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p5]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))^2*(-(lam[2, p6]*
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))) + lam[1, p6]*((-(barlam[1, p5]*
                    barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                 lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
             (((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                 lam[2, p6] + (-((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                  (barlam[1, p5]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*((-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                  (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1])))*(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])) - ((-(barlam[1, p6]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                (-((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                  (barlam[1, p5]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*((-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                  (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1])))*(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])))*((lam[2, p3] + (lam[2, et6]*
                  (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                        p5])) - (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                      lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p3] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, p3] - 
                      lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*barlam[2, 
                       p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                      lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
           (10*CK*(-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                p5])*(barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                p6])*(-((barlam[2, p3]*(-(((lam[2, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                         lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                       ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                     (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p7]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p3]*
                (-(((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p7]*
                   (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                       barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                    lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*(-((barlam[2, p5]*
                  (-(((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                         (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                          lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/(((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))) + (barlam[1, p5]*
                 (-(((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/(((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (barlam[1, p7]*
                    (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))))^2*((barlam[2, p6]*
                (-(((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) - barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p7]*
                   (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                       barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                    lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))) - (barlam[1, p6]*
                (-(((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p7]*
                   (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                       barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                    lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*(-((barlam[2, p6]*
                 (-(((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/(((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (barlam[1, p7]*
                    (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p6]*
                (-(((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p7]*
                   (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                       barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                    lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*((barlam[2, p7]*(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
               (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))^5*
             (-((-((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p7]*(barlam[2, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, p5] - 
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   lam[2, et5]*(-(((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + 
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[
                          2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))*
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))) + (-((barlam[2, p7]*(barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p7]*
                  (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[1, p5] - ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p7])*lam[1, et5]*(-(((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1])) + 
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))*((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])))*
             (-((-((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p7]*(barlam[2, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, p3] + 
                 (lam[2, et6]*(-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                        lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, p3] - 
                      lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                     (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - 
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p7])*lam[2, et5]*(-(((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + 
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[
                          2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))*
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))) + (-((barlam[2, p7]*(barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p7]*
                  (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[1, p3] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, p3] - 
                      lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*barlam[2, 
                       p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                      lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[1, et5]*(-(((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1])) + 
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))*((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
            (((barlam[2, p7]*(((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p7]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))) - (barlam[1, p7]*
                 (((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p7]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))))^2*
             (((((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     lam[1, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                 (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p7]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))*((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))) - 
               ((((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     lam[1, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                 (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p7]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))*((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))))^2*
             (lam[2, p6]*(lam[1, p3] + (lam[1, et6]*(-((barlam[1, p5]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[1, et5]*(-(((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1])) + 
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))) - lam[1, p6]*(lam[2, p3] + 
                (lam[2, et6]*(-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                       lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, p3] - 
                     lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[2, et5]*(-(((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1])) + 
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))))*(-((lam[1, p3] + (lam[1, et6]*
                   (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                         p5])) - (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                       lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                     (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - 
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p7])*lam[1, et5]*(-(((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + 
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[
                          2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))*(lam[2, p5] - 
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   lam[2, et5]*(-(((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + 
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[
                          2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))) + (lam[1, p5] - 
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  lam[1, et5]*(-(((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1])) + 
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))*(lam[2, p3] + (lam[2, et6]*
                  (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                        p5])) - (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                      lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[2, et5]*(-(((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1])) + 
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))))*((-((barlam[2, p7]*(barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p7]*
                  (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[2, p5] - ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p7])*lam[2, et5]*(-(((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1])) + 
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))*((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
              (-((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p7]*
                  (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[1, p5] - ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p7])*lam[1, et5]*(-(((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1])) + 
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))*((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])))*
             (-(((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                 (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + ((-(barlam[1, p5]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1]))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
           (10*CK*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])^
              5*(barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
             (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
               (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
              (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6])))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
               lam[2, p6]*(lam[1, p3] - ((-(barlam[1, p7]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p7])*lam[1, et5]*(lam[1, p6]*
                    lam[2, p5] - lam[1, p5]*lam[2, p6]))/((barlam[1, p7]*
                    barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                       lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, p3] - 
                     lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))) - (-(barlam[1, p6]*
                  barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6]*(
                lam[2, p3] - ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                    barlam[2, p7])*lam[2, et5]*(lam[1, p6]*lam[2, p5] - 
                   lam[1, p5]*lam[2, p6]))/((barlam[1, p7]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) + (lam[2, et6]*
                  (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                        p5])) - (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                      lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))))*((barlam[2, p7]*
                (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                   lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))*(((-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]))*(barlam[1, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
              ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))*(barlam[2, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*
             (-(((-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]))*(barlam[1, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))/((barlam[1, p6]*barlam[2, 
                    p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                   lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))*(barlam[2, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*((-(barlam[1, p6]*barlam[2, p5]) + 
                barlam[1, p5]*barlam[2, p6])*lam[2, p6]*(lam[1, p7] - 
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*lam[1, et5]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                    lam[2, p6]))/((barlam[1, p7]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) + (lam[1, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]) - (-(barlam[1, p6]*barlam[2, p5]) + 
                barlam[1, p5]*barlam[2, p6])*lam[1, p6]*(
                -(((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*lam[2, et5]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                     lam[2, p6]))/((barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]))) + lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
            ((lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
             ((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
               (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-((barlam[2, p6]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
               (barlam[1, p6]*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                   p6])*lam[2, p6]*(lam[1, p3] - ((-(barlam[1, p7]*barlam[2, 
                       p5]) + barlam[1, p5]*barlam[2, p7])*lam[1, et5]*
                   (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                  ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p6])) + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, p3] - 
                       lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                        p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))) + 
              (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
               lam[1, p6]*(lam[2, p3] - ((-(barlam[1, p7]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p6]*
                    lam[2, p5] - lam[1, p5]*lam[2, p6]))/((barlam[1, p7]*
                    barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                (lam[2, et6]*(-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                       lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, p3] - 
                     lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))))*
             (-((lam[2, p3] - ((-(barlam[1, p7]*barlam[2, p5]) + 
                    barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p6]*
                     lam[2, p5] - lam[1, p5]*lam[2, p6]))/((barlam[1, p7]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                 (lam[2, et6]*(-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                        lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, p3] - 
                      lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                     (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[1, p7] - 
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*lam[1, et5]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                     lam[2, p6]))/((barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (lam[1, p3] - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[1, et5]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                    lam[2, p6]))/((barlam[1, p7]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) + (lam[1, et6]*
                  (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                        p5])) - (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                      lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*(
                -(((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*lam[2, et5]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                     lam[2, p6]))/((barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]))) + lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                 lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*(
                lam[1, p7] - ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                    barlam[2, p5])*lam[1, et5]*(lam[1, p6]*lam[2, p5] - 
                   lam[1, p5]*lam[2, p6]))/((barlam[1, p7]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) + (lam[1, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]) - ((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1]))*(
                -(((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*lam[2, et5]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                     lam[2, p6]))/((barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]))) + lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
           (10*CK*(barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])^
              5*(-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                p7])*(-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[1, p3]*
                   (lam[2, et5]*(lam[1, p3] + (lam[1, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]))) + (barlam[1, p5]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - lam[1, et5]*
                    (lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])))*(-((barlam[2, p7]*
                  (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                       lam[2, p6])) - barlam[1, p3]*(lam[2, et5]*
                      (lam[1, p3] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                     lam[1, et5]*(lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) + (barlam[1, p7]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] + 
                      (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*
             ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
               lam[2, p6]*(lam[1, p5] - ((barlam[1, p7]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p7])*lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, p3] + (lam[1, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p6]))) - (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                 barlam[2, p6])*lam[1, p6]*(lam[2, p5] - 
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  lam[2, et5]*(-(lam[2, p6]*(lam[1, p3] + (lam[1, et6]*
                        (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p6]))))*((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (((-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - lam[1, et5]*
                    (lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
                (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
              ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[1, p3]*(lam[2, et5]*(lam[1, p3] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - lam[1, et5]*
                    (lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
                (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
             (-(((-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] + 
                      (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
                 (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[1, p3]*(lam[2, et5]*(lam[1, p3] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - lam[1, et5]*
                    (lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
                (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
             ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
               lam[2, p6]*(lam[1, p7] - ((-(barlam[1, p5]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p5])*lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, p3] + (lam[1, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p6])) + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
               lam[1, p6]*(lam[2, p7] - ((-(barlam[1, p5]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p5])*lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, p3] + (lam[1, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p6])) + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
            (((barlam[2, p3]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p3]*(lam[2, et5]*
                     (lam[1, p3] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])) - (barlam[1, p3]*(barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  barlam[2, p3]*(lam[2, et5]*(lam[1, p3] + (lam[1, et6]*
                        (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*
             (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + barlam[1, p3]*(lam[2, et5]*
                      (lam[1, p3] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                     lam[1, et5]*(lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) + (barlam[1, p6]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + barlam[2, p3]*(lam[2, et5]*(lam[1, p3] + 
                      (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*(-(lam[2, p6]*(lam[1, p3] + 
                 (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                        lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, p3] - 
                      lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                     (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))) + lam[1, p6]*(
                lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, p3] - 
                      lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*barlam[2, 
                       p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                      lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))))*
             (-((lam[2, p5] - ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p7])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p3] + 
                       (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                          (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] + (lam[2, et6]*
                        (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))/
                  ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p6])))*((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                    barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))) + (lam[1, p5] - 
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  lam[1, et5]*(-(lam[2, p6]*(lam[1, p3] + (lam[1, et6]*
                        (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
               ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])))*(-((-(barlam[1, p6]*barlam[2, p3]) + 
                 barlam[1, p3]*barlam[2, p6])*lam[2, p6]*(lam[1, p7] - 
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p3] + 
                       (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                          (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] + (lam[2, et6]*
                        (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))/
                  ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p6])) + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                   m1])) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                 barlam[2, p6])*lam[1, p6]*(lam[2, p7] - 
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p3] + 
                      (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p6])) + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((lam[2, p5] - ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p7])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p3] + 
                      (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
               (lam[1, p7] - ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                    barlam[2, p5])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p3] + 
                      (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p6])) + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p5] - ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p7])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p3] + 
                      (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
               (lam[2, p7] - ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                    barlam[2, p5])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p3] + 
                      (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p6])) + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]))) - (10*CK*(barlam[1, p7]*barlam[2, p3] - 
              barlam[1, p3]*barlam[2, p7])*(-(barlam[1, p7]*barlam[2, p6]) + 
              barlam[1, p6]*barlam[2, p7])*(-((barlam[2, p3]*
                  (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                       lam[2, p5])) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                 (((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p5]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))) + (barlam[1, p3]*(-(barlam[2, p5]*
                    (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
                  ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                (((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))))^2*((barlam[2, p6]*
                (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/(((barlam[2, p5]*
                   (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p5]*
                   (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                       barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                    lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))) - (barlam[1, p6]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/(((barlam[2, p5]*
                   (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p5]*
                   (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                       barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                    lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*(-((barlam[2, p6]*
                 (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                (((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p6]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/(((barlam[2, p5]*
                   (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p5]*
                   (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                       barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                    lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*(-((barlam[2, p7]*
                 (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                (((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p7]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/(((barlam[2, p5]*
                   (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p5]*
                   (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                       barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                    lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*((barlam[2, p5]*(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
               (barlam[1, p5]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))^5*
             (-((-((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(barlam[2, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, p3] - 
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p7])*lam[2, et5]*(lam[2, p5]*((-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[2, et6]*
                   (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                         p5])) - (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                       lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                     (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))) + (-((barlam[2, p5]*(barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p5]*
                  (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[1, p3] - ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                    barlam[2, p7])*lam[1, et5]*(lam[2, p5]*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - lam[1, p5]*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et5]*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (lam[1, et6]*
                  (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                        p5])) - (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                      lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                    barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                 lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
             ((-((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p5]*
                  (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]))*(lam[1, p7] - 
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*lam[1, et5]*(lam[2, p5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, p5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p7])*(lam[2, et5]*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (lam[1, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]) - (-((barlam[2, p5]*(barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p5]*
                  (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]))*(lam[2, p7] - 
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*lam[2, et5]*(lam[2, p5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, p5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p7])*(lam[2, et5]*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1])))/
            (((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + ((lam[2, et5]*
                      ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     lam[1, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                (((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))) - (barlam[1, p5]*(barlam[2, p5]*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                (((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))))^2*
             (((barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))*((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))) - ((barlam[1, p5]*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(barlam[2, p3]*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))*((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))))^2*
             (lam[2, p5]*((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])) - lam[1, p5]*((-(barlam[1, p5]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])))*
             ((-((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p5]*
                  (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[2, p3] - ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                    barlam[2, p7])*lam[2, et5]*(lam[2, p5]*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - lam[1, p5]*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et5]*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (lam[2, et6]*
                  (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                        p5])) - (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                      lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                    barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                 lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
              (-((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p5]*
                  (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[1, p3] - ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                    barlam[2, p7])*lam[1, et5]*(lam[2, p5]*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - lam[1, p5]*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et5]*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (lam[1, et6]*
                  (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                        p5])) - (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                      lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                    barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                 lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
             (lam[2, p6]*(lam[1, p7] - ((-(barlam[1, p5]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p5])*lam[1, et5]*(lam[2, p5]*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - lam[1, p5]*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et5]*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (lam[1, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] - 
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*lam[2, et5]*(lam[2, p5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, p5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p7])*(lam[2, et5]*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))*(-((lam[2, p3] - 
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p7])*lam[2, et5]*(lam[2, p5]*((-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[2, et6]*
                   (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                         p5])) - (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                       lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                     (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[1, p7] - 
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*lam[1, et5]*(lam[2, p5]*((-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (lam[1, p3] - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[1, et5]*(lam[2, p5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, p5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p7])*(lam[2, et5]*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (lam[1, et6]*
                  (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, 
                        p5])) - (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                      lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*(lam[2, p7] - 
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*lam[2, et5]*(lam[2, p5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, p5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p7])*(lam[2, et5]*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))) - 
           (10*CK*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
             (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
             (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[2, et5]*(lam[1, p3] + 
                       (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                          (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                     lam[1, et5]*(lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                (((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p5]*
                (-(barlam[2, p3]*(lam[2, et5]*(lam[1, p3] + (lam[1, et6]*
                        (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((lam[2, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                   (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/(((barlam[2, p3]*
                   (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p3]*
                   (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                       barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                    lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*((barlam[2, p6]*
                (-(barlam[1, p3]*(lam[2, et5]*(lam[1, p3] + (lam[1, et6]*
                        (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((lam[2, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                   (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/(((barlam[2, p3]*
                   (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p3]*
                   (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                       barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                    lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))) - (barlam[1, p6]*
                (-(barlam[2, p3]*(lam[2, et5]*(lam[1, p3] + (lam[1, et6]*
                        (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((lam[2, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                   (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/(((barlam[2, p3]*
                   (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p3]*
                   (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                       barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                    lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*(-((barlam[2, p6]*
                 (-(barlam[1, p3]*(lam[2, et5]*(lam[1, p3] + (lam[1, et6]*
                         (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                     lam[1, et5]*(lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                (((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p6]*
                (-(barlam[2, p3]*(lam[2, et5]*(lam[1, p3] + (lam[1, et6]*
                        (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((lam[2, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                   (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/(((barlam[2, p3]*
                   (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p3]*
                   (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                       barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                    lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*(-((barlam[2, p7]*
                  (-(barlam[1, p3]*(lam[2, et5]*(lam[1, p3] + (lam[1, et6]*
                          (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                      lam[1, et5]*(lam[2, p3] + (lam[2, et6]*
                          (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                 (((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))) + (barlam[1, p7]*(-(barlam[2, p3]*
                    (lam[2, et5]*(lam[1, p3] + (lam[1, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                     lam[1, et5]*(lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                (((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))))^2*((barlam[2, p3]*
                 (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
               (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))^5*(-((lam[2, p5] - 
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   lam[2, et5]*((lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (lam[1, p3] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))*
                (-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p3]*(barlam[2, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))) + (lam[1, p5] - 
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  lam[1, et5]*((lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - (lam[1, p3] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))*(-((barlam[2, p3]*(barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p3]*
                  (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])))*((-((barlam[2, p3]*(barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p3]*
                  (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]))*(lam[1, p7] - 
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*lam[1, et5]*((lam[2, p3] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - (lam[1, p3] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))) + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]) - (-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, 
                       p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))) + (barlam[1, p3]*(barlam[2, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                   barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]))*(lam[2, p7] - 
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*lam[2, et5]*((lam[2, p3] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - (lam[1, p3] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))) + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1])))/((lam[2, p6]*(lam[1, p5] - 
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  lam[1, et5]*((lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - (lam[1, p3] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))) - lam[1, p6]*(lam[2, p5] - 
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  lam[2, et5]*((lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - (lam[1, p3] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))))*((barlam[2, p3]*(barlam[1, p3]*
                   (lam[2, et5]*(lam[1, p3] + (lam[1, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                (((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))) - (barlam[1, p3]*(barlam[2, p3]*
                   (lam[2, et5]*(lam[1, p3] + (lam[1, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                (((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))))^2*
             (((barlam[2, p3]*(lam[2, et5]*(lam[1, p3] + (lam[1, et6]*
                        (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))*((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))) - ((barlam[1, p3]*
                   (lam[2, et5]*(lam[1, p3] + (lam[1, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(barlam[2, p3]*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p3]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))*((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))))^2*
             ((lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, p3] - 
                      lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*barlam[2, 
                       p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                      lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                    barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                 lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
              (lam[1, p3] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, p3] - 
                      lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*barlam[2, 
                       p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                      lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                    barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                 lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
             ((lam[2, p5] - ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p7])*lam[2, et5]*((lam[2, p3] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - (lam[1, p3] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))*(lam[1, p7] - ((-(barlam[1, p5]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, et5]*
                  ((lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - (lam[1, p3] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))) + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]) - (lam[1, p5] - ((barlam[1, p7]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p7])*lam[1, et5]*
                  ((lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - (lam[1, p3] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))*(lam[2, p7] - ((-(barlam[1, p5]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, et5]*
                  ((lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - (lam[1, p3] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))) + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]))*(-((-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (barlam[1, p3]*
                   (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                 (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(lam[1, p7] - ((-(barlam[1, p5]*
                      barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                   lam[1, et5]*((lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (lam[1, p3] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p3] - lam[1, p3]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (-((barlam[2, p3]*
                   (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p3]*
                  (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]))*(lam[2, p7] - 
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*lam[2, et5]*((lam[2, p3] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p3]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - (lam[1, p3] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p3] - lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))) + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]))) - (10*CK*(barlam[1, p5]*barlam[2, p3] - barlam[1, 
                 p3]*barlam[2, p5])^5*(-(barlam[1, p7]*barlam[2, p6]) + 
               barlam[1, p6]*barlam[2, p7])^2*((barlam[2, p7]*
                (barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p7]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))) - (barlam[1, p7]*(barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p7]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))))*(-((barlam[2, p7]*
                 (barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))) + (barlam[1, p7]*(barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p7]*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))))*((barlam[2, p6]*(barlam[1, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p6]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                   lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))*((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))) - (barlam[1, p7]*(barlam[2, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-(((barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                 (barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                      p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p6]) + ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*((barlam[1, p5]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              ((barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                (barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))*((barlam[1, p5]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*(-(lam[2, p6]*(lam[1, p7] + 
                 (lam[1, et5]*(-(((barlam[2, p6]*(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, 
                          p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                       (barlam[1, p6]*(barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                      (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                         (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                          lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - (-(barlam[1, p7]*
                        barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                     (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                      (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     (-(((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                          lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + ((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))))/
                  ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p6]) + ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                (lam[2, et5]*(-(((barlam[2, p6]*(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, 
                          p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                      (barlam[1, p6]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - (-(barlam[1, p7]*
                       barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                    (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (-(((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + ((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                      p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p6]) + ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))*
             (-(((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                 (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(lam[1, p7] + (lam[1, et5]*
                   (-(((barlam[2, p6]*(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                       (barlam[1, p6]*(barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                      (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                         (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                          lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - (-(barlam[1, p7]*
                        barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                     (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                      (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     (-(((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                          lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + ((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))))/
                  ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p6]) + ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + ((-(barlam[1, p5]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1]))*(lam[2, p7] + 
                (lam[2, et5]*(-(((barlam[2, p6]*(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, 
                          p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                      (barlam[1, p6]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - (-(barlam[1, p7]*
                       barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                    (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (-(((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + ((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                      p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p6]) + ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1])))/((-(lam[2, p5]*(lam[1, p3] + 
                 (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p5]*lam[2, p3] - lam[1, p3]*
                        lam[2, p5])) - (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, p3] - 
                      lam[1, p3]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                     (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))) + lam[1, p5]*(
                lam[2, p3] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, p3] - 
                      lam[1, p3]*lam[2, p5])) - (barlam[1, p6]*barlam[2, 
                       p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                      lam[2, p3] - lam[1, p3]*lam[2, p6]) - 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))))*
             ((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - ((lam[2, et5]*
                      ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     lam[1, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))) - (barlam[1, p3]*(-(barlam[2, p6]*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                  ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))^2*(-((barlam[2, p5]*(-(barlam[1, p6]*
                     (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                   ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                    barlam[1, p6]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + ((barlam[2, p7]*(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))) + (barlam[1, p5]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))^2*(-(lam[2, p6]*
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))) + lam[1, p6]*((-(barlam[1, p5]*
                    barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                 lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
             (((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 lam[2, p6] + (-((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                  (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*((-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*lam[2, p5] + 
                  (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1])))*(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*lam[1, p6] + 
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])) - ((barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*lam[1, p6] + 
                (-((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                  (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*((-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                  (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1])))*(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])))*(lam[2, p6]*(lam[1, p7] + 
                (lam[1, et5]*(-(((barlam[2, p6]*(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, 
                          p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                      (barlam[1, p6]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - (-(barlam[1, p7]*
                       barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                    (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (-(((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + ((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                      p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p6]) + ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[1, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                (lam[2, et5]*(-(((barlam[2, p6]*(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, 
                          p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                      (barlam[1, p6]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - (-(barlam[1, p7]*
                       barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                    (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (-(((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + ((-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                      p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p6]) + ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))))*
          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
            (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1])^
           5)/((lam[2, p4]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
              spb[p2, p7]) - lam[1, p4]*(lam[2, m1]*spb[m1, p7] + 
             lam[2, p2]*spb[p2, p7]))*
          ((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) - 
               barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                  lam[2, p6]) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p3] - 
                barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]))) - (barlam[1, p4]*(-(barlam[2, p3]*
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
               barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                  lam[2, p5]) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6]) - barlam[2, p7]*(lam[2, et6]*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                     m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                    spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, 
                  p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                 lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
              (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*(
                lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
              (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*(
                lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
          ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                   lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) - 
               barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                  lam[2, p6]) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))))/(((barlam[1, p5]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1])))*spba[p7, {m1, p2}, m1]) - 
            (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                   lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) - 
               barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                  lam[2, p6]) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))))/(((barlam[1, p5]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1])))*spba[p7, {m1, p2}, m1]))^2) + 
        (((-10*CK*(barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])^
              2*(-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                 p7])^5*((barlam[2, p4]*(barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p4]*
                  (lam[2, et5]*(lam[1, p4] + (lam[1, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                   lam[1, et5]*(lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/((barlam[1, p6]*
                   barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                ((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p4]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))) - (barlam[1, p4]*(barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + (lam[1, et6]*
                       (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - lam[1, et5]*
                    (lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/((barlam[1, p6]*
                   barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                ((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p4]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))))*(-((barlam[2, p4]*
                 (barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*(lam[1, p4] + 
                      (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))) + (barlam[1, p4]*(barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + (lam[1, et6]*
                       (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - lam[1, et5]*
                    (lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/((barlam[1, p6]*
                   barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                ((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p4]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))))*(-(lam[2, p6]*(lam[1, p4] + 
                 (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(-(lam[2, p6]*(lam[1, p4] + 
                          (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                          (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))))) + lam[1, p6]*
                        (lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((barlam[2, p6]*(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                         barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                      (barlam[1, p6]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) - ((barlam[2, p4]*
                        (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p4]*(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                         barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     ((lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                         lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (lam[1, p4] + 
                        (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                          (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                       ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                  ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p6]) + ((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) + (lam[1, et6]*
                   (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                         p5])) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                       lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                     (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))) + lam[1, p6]*(
                lam[2, p4] + (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p4] + (lam[1, et6]*(-((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] + (lam[2, et6]*
                          (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((barlam[2, p6]*(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p6]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) - ((barlam[2, p4]*
                       (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p4]*(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    ((lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                      ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (lam[1, p4] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                      ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[2, et6]*
                  (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                        p5])) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))))*((barlam[2, p4]*
                (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                   lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))*((barlam[2, p6]*(barlam[1, p4]*(lam[1, p4]*
                    lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))) - (barlam[1, p6]*(barlam[2, p4]*
                  (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                 barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-(((barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + 
                      (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(barlam[1, p4]*
                   (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*((barlam[1, p5]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              ((barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*(lam[1, p4] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - lam[1, et5]*
                    (lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(barlam[2, p4]*
                  (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                 barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))*((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*((lam[2, p4] + (lam[2, et5]*
                  (-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(-(lam[2, p6]*(lam[1, p4] + (lam[1, et6]*
                          (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] + (lam[2, et6]*
                          (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((barlam[2, p6]*(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p6]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) - ((barlam[2, p4]*
                       (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p4]*(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    ((lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                      ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (lam[1, p4] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                      ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[2, et6]*
                  (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                        p5])) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                    barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                 lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
              (lam[1, p4] + (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p4] + (lam[1, et6]*(-((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] + (lam[2, et6]*
                          (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((barlam[2, p6]*(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p6]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) - ((barlam[2, p4]*
                       (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p4]*(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    ((lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                      ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (lam[1, p4] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                      ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[1, et6]*
                  (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                        p5])) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                    barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                 lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
            ((-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                     lam[1, et5]*(lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))) + (barlam[1, p5]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + 
                      (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))^2*((barlam[2, p7]*(-(barlam[1, p6]*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                  barlam[1, p4]*(lam[2, et5]*(lam[1, p4] + (lam[1, et6]*
                        (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))) - (barlam[1, p7]*(-(barlam[2, p6]*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                  barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + (lam[1, et6]*
                        (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))^2*(lam[2, p6]*(lam[1, p4] + 
                (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(-(lam[2, p6]*(lam[1, p4] + 
                         (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                          (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] + (lam[2, et6]*
                          (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((barlam[2, p6]*(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p6]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) - ((barlam[2, p4]*
                       (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p4]*(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    ((lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                      ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (lam[1, p4] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                      ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[1, et6]*
                  (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                        p5])) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))) - lam[1, p6]*(lam[2, p4] + 
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(-(lam[2, p6]*(lam[1, p4] + 
                         (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                          (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] + (lam[2, et6]*
                          (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((barlam[2, p6]*(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p6]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) - ((barlam[2, p4]*
                       (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p4]*(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    ((lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                      ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     (lam[1, p4] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                      ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[2, et6]*
                  (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                        p5])) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))))*
             (-(lam[2, p6]*((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                    barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, 
                      p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))) + lam[1, p6]*((-(barlam[1, p5]*
                    barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                 lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
             (((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                 lam[2, p6] + (-((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                  (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*((-(barlam[1, p5]*barlam[2, 
                       p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                  (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1])))*(
                (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])) - ((-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                (-((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                  (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*((-(barlam[1, p5]*barlam[2, 
                       p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                  (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1])))*(
                (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])))*(-(lam[2, p5]*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1]))) - (10*CK*(-(barlam[1, p5]*barlam[2, p4]) + 
              barlam[1, p4]*barlam[2, p5])*(-(barlam[1, p7]*barlam[2, p6]) + 
               barlam[1, p6]*barlam[2, p7])^5*(-((barlam[2, p4]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))/((-(barlam[1, p7]*
                    barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
              (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                   p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p6])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p6]))) + (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^
              2*((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                   lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))) - (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*
                    lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))))*(((-(barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                   p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
              ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))*(barlam[2, p4]*(lam[1, p4]*
                    lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                 barlam[1, p6]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*
             (-(((-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                   (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))*(barlam[2, p4]*(lam[1, p4]*
                    lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                 barlam[1, p6]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*((barlam[1, p7]*barlam[2, p6] - 
                barlam[1, p6]*barlam[2, p7])*lam[2, p6]*(lam[1, p5] - 
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  lam[1, et5]*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((-(barlam[1, p5]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) - (barlam[1, p7]*barlam[2, p6] - 
                barlam[1, p6]*barlam[2, p7])*lam[1, p6]*(lam[2, p5] - 
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  lam[2, et5]*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((-(barlam[1, p5]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))))*((barlam[1, p7]*barlam[2, p6] - 
                barlam[1, p6]*barlam[2, p7])*lam[2, p6]*(lam[1, p4] + 
                (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                       lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, p4] - 
                     lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))/((-(barlam[1, p5]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) - (barlam[1, p7]*barlam[2, p6] - 
                barlam[1, p6]*barlam[2, p7])*lam[1, p6]*(lam[2, p4] + 
                (lam[2, et6]*(-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                       lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, p4] - 
                     lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))/((-(barlam[1, p5]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))))/
            ((-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p6]))) + (barlam[1, p6]*(barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^
              2*((barlam[2, p7]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
               (barlam[1, p7]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^
              2*(-((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                   p7])*lam[2, p6]*(lam[1, p5] - ((barlam[1, p7]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p7])*lam[1, et5]*
                   (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                  ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p6])))) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                 barlam[2, p7])*lam[1, p6]*(lam[2, p5] - 
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  lam[2, et5]*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((-(barlam[1, p5]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))))*(-((lam[1, p4] + 
                 (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                        lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, p4] - 
                      lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                     (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - 
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p7])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                    lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))/((-(barlam[1, p5]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])))*(lam[2, p5] - 
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   lam[2, et5]*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((-(barlam[1, p5]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])))) + (lam[1, p5] - 
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  lam[1, et5]*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])))/((-(barlam[1, p5]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*(lam[2, p4] + 
                (lam[2, et6]*(-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                       lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, p4] - 
                     lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))/((-(barlam[1, p5]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))))*(-((lam[2, p4] + 
                 (lam[2, et6]*(-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                        lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, p4] - 
                      lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                     (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - 
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p7])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                    lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))/((-(barlam[1, p5]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])))*((-(barlam[1, p5]*barlam[2, 
                      p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                 (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1]))) + (lam[1, p4] + 
                (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                       lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, p4] - 
                     lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))/((-(barlam[1, p5]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*((-(barlam[1, p5]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])))*
             (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                   {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
           (10*CK*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])^
              2*(barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])^5*
             (-(lam[2, p6]*(lam[1, p5] + (lam[1, et5]*(-((barlam[1, p6]*
                        barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                    ((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                      (barlam[1, p5]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     (lam[2, p5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) - ((barlam[2, p6]*
                        (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p6]*(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                         barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                   ((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p5]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))))) + lam[1, p6]*(
                lam[2, p5] + (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6])) - ((barlam[2, p5]*
                       (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) - ((barlam[2, p6]*
                       (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p6]*(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*
             ((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/((barlam[1, p6]*
                   barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                ((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))) - (barlam[1, p5]*(barlam[2, p5]*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/((barlam[1, p6]*
                   barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                ((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))))*(-((barlam[2, p5]*
                 (barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*
                      ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     lam[1, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p5]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))) + (barlam[1, p5]*(barlam[2, p5]*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/((barlam[1, p6]*
                   barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                ((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))))*((barlam[2, p5]*(barlam[1, p4]*
                  (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                 barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p5]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                   lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))*((barlam[2, p6]*(barlam[1, p4]*(lam[1, p4]*
                    lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))) - (barlam[1, p6]*(barlam[2, p4]*
                  (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                 barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-(((barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*
                      ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     lam[1, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(barlam[1, p4]*
                   (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*((barlam[1, p5]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              ((barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*
                     ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    lam[1, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, 
                       p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                    barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + ((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p5]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))*((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*((lam[2, p5] + (lam[2, et5]*
                  (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                        p6])) - ((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p5]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) - ((barlam[2, p6]*
                       (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p6]*(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))*(
                (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])) - (lam[1, p5] + (lam[1, et5]*
                  (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                        p6])) - ((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p5]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) - ((barlam[2, p6]*
                       (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p6]*(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))*(
                (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]))))/((lam[2, p6]*(lam[1, p5] + 
                (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - ((barlam[2, p5]*(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p5]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) - ((barlam[2, p6]*
                       (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p6]*(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))) - lam[1, p6]*(
                lam[2, p5] + (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6])) - ((barlam[2, p5]*
                       (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) - ((barlam[2, p6]*
                       (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p6]*(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))))*
             ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                  ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p5]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))) - (barlam[1, p4]*(-(barlam[2, p5]*
                    (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
                  barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p5]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))^2*(-((barlam[2, p7]*(-(barlam[1, p5]*
                     (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
                   barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6]) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))) + (barlam[1, p7]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - ((lam[2, et5]*
                      ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     lam[1, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p5]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))^2*(-(lam[2, p6]*
                ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))) + lam[1, p6]*((-(barlam[1, p5]*
                    barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                 lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
             (((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                 lam[2, p6] + (-((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                  (barlam[1, p5]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*((-(barlam[1, p5]*barlam[2, 
                       p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                  (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1])))*(
                (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])) - ((-(barlam[1, p6]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                (-((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                  (barlam[1, p5]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*((-(barlam[1, p5]*barlam[2, 
                       p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                  (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1])))*(
                (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])))*((lam[2, p4] + (lam[2, et6]*
                  (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                        p5])) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p4] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, p4] - 
                      lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*barlam[2, 
                       p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                      lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
           (10*CK*(-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                p5])*(barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                p6])*(-((barlam[2, p4]*(-(((lam[2, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                         lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                       ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                     (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p7]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p4]*
                (-(((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                ((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p7]*
                   (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                       barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                    lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*(-((barlam[2, p5]*
                  (-(((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                         (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                          lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                         (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/(((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))) + (barlam[1, p5]*
                 (-(((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/(((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (barlam[1, p7]*
                    (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))))^2*((barlam[2, p6]*
                (-(((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) - barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                ((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p7]*
                   (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                       barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                    lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))) - (barlam[1, p6]*
                (-(((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                ((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p7]*
                   (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                       barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                    lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*(-((barlam[2, p6]*
                 (-(((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/(((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (barlam[1, p7]*
                    (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p6]*
                (-(((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                ((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p7]*
                   (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                       barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                    lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*((barlam[2, p7]*(barlam[1, p4]*
                   (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
               (barlam[1, p7]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                    barlam[2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))^5*
             (-((-((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p7]*(barlam[2, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, p5] - 
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   lam[2, et5]*(-(((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + 
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[
                          2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                  ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p5])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))*
                ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))) + (-((barlam[2, p7]*(barlam[1, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p7]*
                  (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[1, p5] - ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                    barlam[2, p7])*lam[1, et5]*(-(((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1])) + 
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                         p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))*((-(barlam[1, p5]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])))*
             (-((-((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p7]*(barlam[2, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, p4] + 
                 (lam[2, et6]*(-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                        lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, p4] - 
                      lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                     (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - 
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p7])*lam[2, et5]*(-(((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + 
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[
                          2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                  ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p5])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))*
                ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))) + (-((barlam[2, p7]*(barlam[1, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p7]*
                  (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[1, p4] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, p4] - 
                      lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*barlam[2, 
                       p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                      lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[1, et5]*(-(((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1])) + 
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                         p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))*((-(barlam[1, p5]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
            (((barlam[2, p7]*(((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p7]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))) - (barlam[1, p7]*
                 (((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p7]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))))^2*
             (((((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, 
                          p4]*barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     lam[1, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                 (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p7]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))*((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))) - 
               ((((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, 
                          p4]*barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     lam[1, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                 (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p7]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))*((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))))^2*
             (lam[2, p6]*(lam[1, p4] + (lam[1, et6]*(-((barlam[1, p5]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                     (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[1, et5]*(-(((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1])) + 
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                         p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))) - lam[1, p6]*(lam[2, p4] + 
                (lam[2, et6]*(-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                       lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, p4] - 
                     lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[2, et5]*(-(((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1])) + 
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                         p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))))*(-((lam[1, p4] + (lam[1, et6]*
                   (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                         p5])) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                       lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                     (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - 
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p7])*lam[1, et5]*(-(((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + 
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[
                          2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                  ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p5])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))*(lam[2, p5] - 
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   lam[2, et5]*(-(((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + 
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[
                          2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                  ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p5])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))) + (lam[1, p5] - 
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  lam[1, et5]*(-(((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1])) + 
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                         p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))*(lam[2, p4] + (lam[2, et6]*
                  (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                        p5])) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[2, et5]*(-(((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1])) + 
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                         p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))))*((-((barlam[2, p7]*(barlam[1, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p7]*
                  (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[2, p5] - ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                    barlam[2, p7])*lam[2, et5]*(-(((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1])) + 
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                         p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))*((-(barlam[1, p5]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
              (-((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p7]*
                  (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[1, p5] - ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                    barlam[2, p7])*lam[1, et5]*(-(((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1])) + 
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                         p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                 ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))*((-(barlam[1, p5]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])))*
             (-(((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                 (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + ((-(barlam[1, p5]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1]))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
           (10*CK*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])^
              5*(barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
             (-((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
               (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
              (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6])))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
               lam[2, p6]*(lam[1, p4] - ((-(barlam[1, p7]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p7])*lam[1, et5]*(lam[1, p6]*
                    lam[2, p5] - lam[1, p5]*lam[2, p6]))/((barlam[1, p7]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                       lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, p4] - 
                     lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))) - (-(barlam[1, p6]*
                  barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6]*(
                lam[2, p4] - ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                    barlam[2, p7])*lam[2, et5]*(lam[1, p6]*lam[2, p5] - 
                   lam[1, p5]*lam[2, p6]))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) + (lam[2, et6]*
                  (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                        p5])) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))))*((barlam[2, p7]*
                (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p7]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                   lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))*(((-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]))*(barlam[1, p4]*
                  (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                 barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
              ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))*(barlam[2, p4]*(lam[1, p4]*
                    lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*
             (-(((-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]))*(barlam[1, p4]*(lam[1, p4]*
                     lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))/((barlam[1, p6]*barlam[2, 
                    p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                   lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))*(barlam[2, p4]*(lam[1, p4]*
                    lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*((-(barlam[1, p6]*barlam[2, p5]) + 
                barlam[1, p5]*barlam[2, p6])*lam[2, p6]*(lam[1, p7] - 
                ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*lam[1, et5]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                    lam[2, p6]))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) + (lam[1, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]) - (-(barlam[1, p6]*barlam[2, p5]) + 
                barlam[1, p5]*barlam[2, p6])*lam[1, p6]*(
                -(((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                     lam[2, p6]))/((barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]))) + lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
            ((lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
             ((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
               (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-((barlam[2, p6]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
               (barlam[1, p6]*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                   p6])*lam[2, p6]*(lam[1, p4] - ((-(barlam[1, p7]*barlam[2, 
                       p5]) + barlam[1, p5]*barlam[2, p7])*lam[1, et5]*
                   (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p6])) + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, p4] - 
                       lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                        p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))) + 
              (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
               lam[1, p6]*(lam[2, p4] - ((-(barlam[1, p7]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p6]*
                    lam[2, p5] - lam[1, p5]*lam[2, p6]))/((barlam[1, p7]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                (lam[2, et6]*(-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                       lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, p4] - 
                     lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))))*
             (-((lam[2, p4] - ((-(barlam[1, p7]*barlam[2, p5]) + 
                    barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p6]*
                     lam[2, p5] - lam[1, p5]*lam[2, p6]))/((barlam[1, p7]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                 (lam[2, et6]*(-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                        lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, p4] - 
                      lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                     (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[1, p7] - 
                 ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p5])*lam[1, et5]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                     lam[2, p6]))/((barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (lam[1, p4] - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[1, et5]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                    lam[2, p6]))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) + (lam[1, et6]*
                  (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                        p5])) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*(
                -(((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                     lam[2, p6]))/((barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]))) + lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                 lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*(
                lam[1, p7] - ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                    barlam[2, p5])*lam[1, et5]*(lam[1, p6]*lam[2, p5] - 
                   lam[1, p5]*lam[2, p6]))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) + (lam[1, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]) - ((-(barlam[1, p5]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1]))*(
                -(((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                     lam[2, p6]))/((barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]))) + lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
           (10*CK*(barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])^
              5*(-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                p7])*(-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[1, p4]*
                   (lam[2, et5]*(lam[1, p4] + (lam[1, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]))) + (barlam[1, p5]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - lam[1, et5]*
                    (lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])))*(-((barlam[2, p7]*
                  (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                       lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                     lam[1, et5]*(lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) + (barlam[1, p7]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + 
                      (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*
             ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[2, p6]*(lam[1, p5] - ((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, p4] + (lam[1, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p6]))) - (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                 barlam[2, p6])*lam[1, p6]*(lam[2, p5] - 
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  lam[2, et5]*(-(lam[2, p6]*(lam[1, p4] + (lam[1, et6]*
                        (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p6]))))*((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*
                    lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p4]*
                  (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                 barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (((-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - lam[1, et5]*
                    (lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
                (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
              ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - lam[1, et5]*
                    (lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
                (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
             (-(((-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + 
                      (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
                 (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - lam[1, et5]*
                    (lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
                (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
             ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[2, p6]*(lam[1, p7] - ((-(barlam[1, p5]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p5])*lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, p4] + (lam[1, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p6])) + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[1, p6]*(lam[2, p7] - ((-(barlam[1, p5]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p5])*lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, p4] + (lam[1, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p6])) + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
            (((barlam[2, p4]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])) - (barlam[1, p4]*(barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + (lam[1, et6]*
                        (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*
             (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                     lam[1, et5]*(lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) + (barlam[1, p6]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + 
                      (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*(-(lam[2, p6]*(lam[1, p4] + 
                 (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                        lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, p4] - 
                      lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                     (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))) + lam[1, p6]*(
                lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, p4] - 
                      lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*barlam[2, 
                       p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                      lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))))*
             (-((lam[2, p5] - ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p7])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p4] + 
                       (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                          (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] + (lam[2, et6]*
                        (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))/
                  ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p6])))*((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                    barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, 
                      p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))) + (lam[1, p5] - 
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  lam[1, et5]*(-(lam[2, p6]*(lam[1, p4] + (lam[1, et6]*
                        (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
               ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])))*(-((-(barlam[1, p6]*barlam[2, p4]) + 
                 barlam[1, p4]*barlam[2, p6])*lam[2, p6]*(lam[1, p7] - 
                 ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p5])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p4] + 
                       (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                          (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] + (lam[2, et6]*
                        (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))/
                  ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p6])) + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                   m1])) + (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                 barlam[2, p6])*lam[1, p6]*(lam[2, p7] - 
                ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p4] + 
                      (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p6])) + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((lam[2, p5] - ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                    barlam[2, p7])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p4] + 
                      (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
               (lam[1, p7] - ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                    barlam[2, p5])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p4] + 
                      (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p6])) + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p5] - ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                    barlam[2, p7])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p4] + 
                      (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
               (lam[2, p7] - ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                    barlam[2, p5])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p4] + 
                      (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p6])) + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]))) - (10*CK*(barlam[1, p7]*barlam[2, p4] - 
              barlam[1, p4]*barlam[2, p7])*(-(barlam[1, p7]*barlam[2, p6]) + 
              barlam[1, p6]*barlam[2, p7])*(-((barlam[2, p4]*
                  (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                       lam[2, p5])) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                 (((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p5]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))) + (barlam[1, p4]*(-(barlam[2, p5]*
                    (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
                  ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                (((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))))^2*((barlam[2, p6]*
                (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/(((barlam[2, p5]*
                   (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p5]*
                   (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                       barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                    lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))) - (barlam[1, p6]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/(((barlam[2, p5]*
                   (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p5]*
                   (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                       barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                    lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*(-((barlam[2, p6]*
                 (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                (((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p6]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/(((barlam[2, p5]*
                   (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p5]*
                   (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                       barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                    lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*(-((barlam[2, p7]*
                 (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                (((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p7]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/(((barlam[2, p5]*
                   (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p5]*
                   (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                       barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                    lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*((barlam[2, p5]*(barlam[1, p4]*
                   (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
               (barlam[1, p5]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                    barlam[2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))^5*
             (-((-((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p5]*(barlam[2, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, p4] - 
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p7])*lam[2, et5]*(lam[2, p5]*((-(barlam[1, p5]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[2, et6]*
                   (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                         p5])) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                       lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                     (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*
                ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))) + (-((barlam[2, p5]*(barlam[1, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p5]*
                  (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[1, p4] - ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                    barlam[2, p7])*lam[1, et5]*(lam[2, p5]*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - lam[1, p5]*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (lam[1, et6]*
                  (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                        p5])) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                    barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                 lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
             ((-((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p5]*
                  (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]))*(lam[1, p7] - 
                ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*lam[1, et5]*(lam[2, p5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, p5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (lam[1, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]) - (-((barlam[2, p5]*(barlam[1, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p5]*
                  (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]))*(lam[2, p7] - 
                ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*lam[2, et5]*(lam[2, p5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, p5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1])))/
            (((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + ((lam[2, et5]*
                      ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     lam[1, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                (((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))) - (barlam[1, p5]*(barlam[2, p5]*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                (((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))))^2*
             (((barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(barlam[1, p4]*
                   (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))*((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))) - ((barlam[1, p5]*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(barlam[2, p4]*
                   (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                  barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))*((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))))^2*
             (lam[2, p5]*((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])) - lam[1, p5]*((-(barlam[1, p5]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])))*
             ((-((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p5]*
                  (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[2, p4] - ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                    barlam[2, p7])*lam[2, et5]*(lam[2, p5]*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - lam[1, p5]*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (lam[2, et6]*
                  (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                        p5])) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                    barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                 lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
              (-((barlam[2, p5]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p5]*
                  (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[1, p4] - ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                    barlam[2, p7])*lam[1, et5]*(lam[2, p5]*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - lam[1, p5]*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (lam[1, et6]*
                  (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                        p5])) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                    barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                 lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
             (lam[2, p6]*(lam[1, p7] - ((-(barlam[1, p5]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p5])*lam[1, et5]*(lam[2, p5]*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - lam[1, p5]*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (lam[1, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] - 
                ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*lam[2, et5]*(lam[2, p5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, p5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))*(-((lam[2, p4] - 
                 ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p7])*lam[2, et5]*(lam[2, p5]*((-(barlam[1, p5]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[2, et6]*
                   (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                         p5])) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                       lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                     (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[1, p7] - 
                 ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p5])*lam[1, et5]*(lam[2, p5]*((-(barlam[1, p5]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))/((barlam[1, p7]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (lam[1, p4] - 
                ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*lam[1, et5]*(lam[2, p5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, p5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (lam[1, et6]*
                  (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, 
                        p5])) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*(lam[2, p7] - 
                ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*lam[2, et5]*(lam[2, p5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, p5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))) - 
           (10*CK*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
             (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
             (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] + 
                       (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                          (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                     lam[1, et5]*(lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                (((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p4]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p5]*
                (-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + (lam[1, et6]*
                        (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((lam[2, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                     ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                   (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/(((barlam[2, p4]*
                   (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p4]*
                   (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                       barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                    lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*((barlam[2, p6]*
                (-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] + (lam[1, et6]*
                        (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((lam[2, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                     ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                   (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/(((barlam[2, p4]*
                   (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p4]*
                   (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                       barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                    lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))) - (barlam[1, p6]*
                (-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + (lam[1, et6]*
                        (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((lam[2, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                     ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                   (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/(((barlam[2, p4]*
                   (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p4]*
                   (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                       barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                    lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*(-((barlam[2, p6]*
                 (-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] + (lam[1, et6]*
                         (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                     lam[1, et5]*(lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                (((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p4]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p6]*
                (-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + (lam[1, et6]*
                        (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((lam[2, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - lam[1, et5]*
                     ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                   (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))))/(((barlam[2, p4]*
                   (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - (barlam[1, p4]*
                   (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                  ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                       barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                    lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*(-((barlam[2, p7]*
                  (-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] + (lam[1, et6]*
                          (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                      lam[1, et5]*(lam[2, p4] + (lam[2, et6]*
                          (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))/
                 (((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))) + (barlam[1, p7]*(-(barlam[2, p4]*
                    (lam[2, et5]*(lam[1, p4] + (lam[1, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                     lam[1, et5]*(lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                (((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p4]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))))^2*((barlam[2, p4]*
                 (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
               (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                    barlam[2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))^5*(-((lam[2, p5] - 
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   lam[2, et5]*((lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (lam[1, p4] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))*
                (-((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) + (barlam[1, p4]*(barlam[2, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*
                ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))) + (lam[1, p5] - 
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  lam[1, et5]*((lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - (lam[1, p4] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                      lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))*(-((barlam[2, p4]*(barlam[1, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p4]*
                  (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])))*((-((barlam[2, p4]*(barlam[1, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p4]*
                  (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]))*(lam[1, p7] - 
                ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*lam[1, et5]*((lam[2, p4] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                      lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - (lam[1, p4] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                      lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))) + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]) - (-((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, 
                       p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))) + (barlam[1, p4]*(barlam[2, p4]*
                    (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                   barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]))*(lam[2, p7] - 
                ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*lam[2, et5]*((lam[2, p4] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                      lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - (lam[1, p4] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                      lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))) + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1])))/((lam[2, p6]*(lam[1, p5] - 
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  lam[1, et5]*((lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - (lam[1, p4] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                      lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))) - lam[1, p6]*(lam[2, p5] - 
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  lam[2, et5]*((lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - (lam[1, p4] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                      lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))))*((barlam[2, p4]*(barlam[1, p4]*
                   (lam[2, et5]*(lam[1, p4] + (lam[1, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                (((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p4]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))) - (barlam[1, p4]*(barlam[2, p4]*
                   (lam[2, et5]*(lam[1, p4] + (lam[1, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))))/
                (((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p4]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))))^2*
             (((barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + (lam[1, et6]*
                        (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(barlam[1, p4]*
                   (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p4]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))*((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))) - ((barlam[1, p4]*
                   (lam[2, et5]*(lam[1, p4] + (lam[1, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(barlam[2, p4]*
                   (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                  barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p4]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))*((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))))^2*
             ((lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, p4] - 
                      lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*barlam[2, 
                       p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                      lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                    barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                 lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
              (lam[1, p4] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, p4] - 
                      lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*barlam[2, 
                       p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                      lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                    barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                 lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
             ((lam[2, p5] - ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                    barlam[2, p7])*lam[2, et5]*((lam[2, p4] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                      lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - (lam[1, p4] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                      lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))*(lam[1, p7] - ((-(barlam[1, p5]*barlam[2, 
                      p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, et5]*
                  ((lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - (lam[1, p4] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                      lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))) + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]) - (lam[1, p5] - ((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*lam[1, et5]*
                  ((lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - (lam[1, p4] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                      lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))*(lam[2, p7] - ((-(barlam[1, p5]*barlam[2, 
                      p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, et5]*
                  ((lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - (lam[1, p4] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                      lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))) + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]))*(-((-((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (barlam[1, p4]*
                   (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))*
                ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                 (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(lam[1, p7] - ((-(barlam[1, p5]*
                      barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                   lam[1, et5]*((lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (lam[1, p4] + (lam[1, et6]*(-((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, p4] - lam[1, p4]*lam[2, p5])) - 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (-((barlam[2, p4]*
                   (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))) + (barlam[1, p4]*
                  (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]))*(lam[2, p7] - 
                ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*lam[2, et5]*((lam[2, p4] + (lam[2, et6]*
                       (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                          lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                      lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) - (lam[1, p4] + 
                     (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))*((-(barlam[1, p5]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                      lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((-(barlam[1, p7]*
                     barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))) + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]))) - (10*CK*(barlam[1, p5]*barlam[2, p4] - barlam[1, 
                 p4]*barlam[2, p5])^5*(-(barlam[1, p7]*barlam[2, p6]) + 
               barlam[1, p6]*barlam[2, p7])^2*((barlam[2, p7]*
                (barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                ((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p7]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))) - (barlam[1, p7]*(barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                ((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p7]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))))*(-((barlam[2, p7]*
                 (barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))) + (barlam[1, p7]*(barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                ((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (barlam[1, p7]*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*(lam[2, et5]*
                   ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                     lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1])))))*((barlam[2, p6]*(barlam[1, p4]*
                  (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                 barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p6]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                   lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))*((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*
                    lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))) - (barlam[1, p7]*(barlam[2, p4]*
                  (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                 barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-(((barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                 (barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                (((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                      p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p6]) + ((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))*((barlam[1, p5]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              ((barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                (barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))*((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*(-(lam[2, p6]*(lam[1, p7] + 
                 (lam[1, et5]*(-(((barlam[2, p6]*(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, 
                          p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                       (barlam[1, p6]*(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                      (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                         (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                          lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                         (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - (-(barlam[1, p7]*
                        barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                     (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    ((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                      (barlam[1, p7]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     (-(((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                          lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + ((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))))/
                  ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p6]) + ((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p7]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                (lam[2, et5]*(-(((barlam[2, p6]*(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, 
                          p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                      (barlam[1, p6]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - (-(barlam[1, p7]*
                       barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                    (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   ((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p7]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (-(((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + ((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                      p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p6]) + ((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))*
             (-(((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                 (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(lam[1, p7] + (lam[1, et5]*
                   (-(((barlam[2, p6]*(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                       (barlam[1, p6]*(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                      (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                         (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                          lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                         (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - (-(barlam[1, p7]*
                        barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                     (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    ((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                      (barlam[1, p7]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     (-(((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                          lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + ((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))))/
                  ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p6]) + ((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p7]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + ((-(barlam[1, p5]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1]))*(lam[2, p7] + 
                (lam[2, et5]*(-(((barlam[2, p6]*(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, 
                          p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                      (barlam[1, p6]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - (-(barlam[1, p7]*
                       barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                    (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   ((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p7]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (-(((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + ((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                      p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p6]) + ((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1])))/((-(lam[2, p5]*(lam[1, p4] + 
                 (lam[1, et6]*(-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p5])*(lam[1, p5]*lam[2, p4] - lam[1, p4]*
                        lam[2, p5])) - (barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, p4] - 
                      lam[1, p4]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6]) - (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                     (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))) + lam[1, p5]*(
                lam[2, p4] + (lam[2, et6]*(-((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, p4] - 
                      lam[1, p4]*lam[2, p5])) - (barlam[1, p6]*barlam[2, 
                       p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                      lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))))*
             ((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - ((lam[2, et5]*
                      ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[1, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                     lam[1, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))*(barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))) - (barlam[1, p4]*(-(barlam[2, p6]*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                  ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))^2*(-((barlam[2, p5]*(-(barlam[1, p6]*
                     (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                   ((lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                    barlam[1, p6]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + ((barlam[2, p7]*(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))))) + (barlam[1, p5]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - ((lam[2, et5]*((-(barlam[1, p5]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                        lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))*(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                   ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                  (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - lam[1, et5]*((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))))^2*(-(lam[2, p6]*
                ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))) + lam[1, p6]*((-(barlam[1, p5]*
                    barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                 lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
             (((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 lam[2, p6] + (-((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                  (barlam[1, p7]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*((-(barlam[1, p5]*barlam[2, 
                       p4]) + barlam[1, p4]*barlam[2, p5])*lam[2, p5] + 
                  (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1])))*(
                (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])) - ((barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*lam[1, p6] + 
                (-((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                    ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
                  (barlam[1, p7]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))*((-(barlam[1, p5]*barlam[2, 
                       p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                  (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1])))*(
                (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1])))*(lam[2, p6]*(lam[1, p7] + 
                (lam[1, et5]*(-(((barlam[2, p6]*(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, 
                          p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                      (barlam[1, p6]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - (-(barlam[1, p7]*
                       barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                    (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   ((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p7]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (-(((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + ((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                      p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p6]) + ((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[1, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                (lam[2, et5]*(-(((barlam[2, p6]*(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, 
                          p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                      (barlam[1, p6]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                     (lam[2, p6]*((-(barlam[1, p5]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                        (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, p6]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                         lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - (-(barlam[1, p7]*
                       barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                    (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   ((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                     (barlam[1, p7]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                    (-(((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + ((-(barlam[1, p5]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                      p7])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p6]) + ((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                   (lam[2, et5]*((-(barlam[1, p5]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p5])*lam[1, p5] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) - lam[1, et5]*((-(barlam[1, p5]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
                       lam[2, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])))) + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))))*
          ((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
            (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1])^
           5)/((lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
              spb[p2, p7]) - lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
             lam[2, p2]*spb[p2, p7]))*
          ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) - 
               barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                  lam[2, p6]) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]))) - (barlam[1, p3]*(-(barlam[2, p4]*
                 (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
               barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                  lam[2, p5]) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6]) - barlam[2, p7]*(lam[2, et6]*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                     m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                    spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, 
                  p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                 lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
              (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*(
                lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
              (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*(
                lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
          ((barlam[2, p2]*spa[p2, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                   lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p5]*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) - 
               barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                  lam[2, p6]) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))))/(((barlam[1, p5]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1])))*spba[p7, {m1, p2}, m1]) - 
            (barlam[1, p2]*spa[p2, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                   lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p5]*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) - 
               barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                  lam[2, p6]) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))))/(((barlam[1, p5]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1])))*spba[p7, {m1, p2}, m1]))^2) + 
        (((-10*CK*(barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])^
              5*(barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
             (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]))) + (barlam[1, p3]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]))))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             ((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]))))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
              (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]))))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]))) + (barlam[1, p7]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]))))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[2, p6]*(lam[1, p3] - (lam[1, et5]*(-(lam[2, p6]*
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) + lam[1, p6]*(lam[2, p4] - 
                     (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))))*((barlam[2, p4]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
              (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[1, p6]*(lam[2, p3] - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) + lam[1, p6]*(lam[2, p4] - 
                     (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))))*((barlam[2, p4]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[2, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))))*
             ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[2, p6]*(-(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p4])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) + lam[1, p6]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[1, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])) - (-(barlam[1, p6]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p6])*lam[1, p6]*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) + lam[1, p6]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[2, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*(-((barlam[2, p3]*(-(barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (((-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))))*(-(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                   spba[p7, {m1, p2}, m1]))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
               ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))))*(-(barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                   spba[p7, {m1, p2}, m1]))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2)/
            (((barlam[2, p4]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])) - (barlam[1, p4]*(barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))))/((barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) + (barlam[1, p6]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*(-(lam[2, p6]*(lam[1, p4] - 
                 (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])))) + lam[1, p6]*(lam[2, p4] - (lam[2, et6]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))))*
             (-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p6])*lam[2, p6]*(-(((barlam[1, p4]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p4])*lam[1, et5]*
                    (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))) + lam[1, p6]*
                      (lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))))/((lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*
                        (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) + 
                 lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[1, p6]*(-(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p4])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) + lam[1, p6]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[2, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*((lam[2, p3] - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))) + lam[1, p6]*
                    (lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))))*((barlam[2, p4]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[2, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) + lam[1, p6]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[1, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])) - (lam[1, p3] - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))) + lam[1, p6]*
                    (lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))))*((barlam[2, p4]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) + lam[1, p6]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[2, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*(-((lam[2, p3] - (lam[2, et5]*
                   (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))) + lam[1, p6]*
                     (lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))*((barlam[2, p4]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) - (lam[2, et6]*(-(lam[2, p5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                    lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (lam[1, p3] - 
                (lam[1, et5]*(-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*
                        (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])))) + 
                   lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))))*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]))) - (10*CK*(barlam[1, p6]*barlam[2, p3] - barlam[1, 
                 p3]*barlam[2, p6])^5*(-((barlam[2, p4]*(-(barlam[1, p6]*
                     (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                   barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - (lam[1, et6]*
                         (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))) - lam[1, et5]*
                      (lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))))/((barlam[1, p6]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) + (barlam[1, p4]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))))/((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*((barlam[2, p7]*
                (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) - lam[1, et5]*(lam[2, p3] - (lam[2, et6]*
                       (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))))))/(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
              (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - barlam[2, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) - lam[1, et5]*(lam[2, p3] - (lam[2, et6]*
                       (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))))))/(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - barlam[1, p3]*(lam[2, et5]*
                     (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))))/((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]))) + (barlam[1, p7]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) - lam[1, et5]*(lam[2, p3] - (lam[2, et6]*
                       (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))))))/(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
               lam[2, p6]*(lam[1, p4] - (lam[1, et5]*(-(lam[2, p6]*
                     (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) + lam[1, p6]*(lam[2, p3] - 
                     (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))))*(-((barlam[2, p3]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[2, p4]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
              (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
               lam[1, p6]*(lam[2, p4] - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) + lam[1, p6]*(lam[2, p3] - 
                     (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))))*(-((barlam[2, p3]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[2, p4]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[2, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))))*
             ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
               lam[2, p6]*(-(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p4])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p3] - 
                       (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) + lam[1, p6]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*((barlam[2, p4]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[1, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])) - (-(barlam[1, p6]*barlam[2, p3]) + 
                barlam[1, p3]*barlam[2, p6])*lam[1, p6]*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p3] - 
                       (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) + lam[1, p6]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*((barlam[2, p4]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[2, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*((barlam[2, p4]*(-(barlam[1, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                 (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p7]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (((-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) - lam[1, et5]*(lam[2, p3] - (lam[2, et6]*
                       (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))))*
                (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])) - 
              ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) - lam[1, et5]*(lam[2, p3] - (lam[2, et6]*
                       (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))))*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1]))))/
            (((barlam[2, p3]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p3]*(lam[2, et5]*
                     (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))))/((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])) - (barlam[1, p3]*(barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - (lam[1, et6]*
                        (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))) - lam[1, et5]*
                     (lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))))/((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*
             (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + barlam[1, p3]*(lam[2, et5]*
                      (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p3] - 
                       (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))))/((barlam[1, p6]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) + (barlam[1, p6]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))))/((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*
             (-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*lam[2, p6]*(lam[1, p4] - (lam[1, et5]*
                   (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))) + lam[1, p6]*
                     (lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))*(-((barlam[2, p3]*(-(barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) + (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                    (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*((barlam[2, p4]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) - (lam[1, et6]*(-(lam[2, p5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                    lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])))) + (-(barlam[1, p6]*barlam[2, p3]) + 
                barlam[1, p3]*barlam[2, p6])*lam[1, p6]*(lam[2, p4] - 
                (lam[2, et5]*(-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*
                        (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))) + lam[1, p6]*
                    (lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))))*(-((barlam[2, p3]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[2, p4]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[2, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))))*
             (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                    lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])))) + lam[1, p6]*(lam[2, p3] - (lam[2, et6]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))))*
             (-((lam[2, p4] - (lam[2, et5]*(-(lam[2, p6]*(lam[1, p3] - 
                       (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) + lam[1, p6]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))*(-((barlam[2, p3]*(-(barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) + (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                    (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*((barlam[2, p4]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) - (lam[2, et6]*(-(lam[2, p5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                    lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])))*(-(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p4])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p3] - 
                        (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))) + lam[1, p6]*
                      (lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))))/((lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])*((barlam[2, p4]*(-(barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) + (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[1, p5]*((barlam[1, p5]*
                     barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                   (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))) + (lam[1, p4] - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))) + lam[1, p6]*
                    (lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))))*(-((barlam[2, p3]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[2, p4]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p3] - 
                       (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) + lam[1, p6]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*((barlam[2, p4]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[2, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*(-((-(((barlam[1, p4]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p4])*lam[2, et5]*
                    (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))) + lam[1, p6]*
                      (lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))))/((lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])*((barlam[2, p4]*(-(barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) + (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[2, p5]*((barlam[1, p5]*
                     barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                   (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (-(((barlam[1, p4]*barlam[2, 
                      p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et5]*
                   (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))) + lam[1, p6]*
                     (lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*((barlam[2, p4]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[1, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))) - 
           (10*CK*(barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])^
              2*(barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
             (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
             ((barlam[2, p3]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[1, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) - lam[1, et5]*(lam[2, p3] - (lam[2, et6]*
                       (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p3]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[2, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) - lam[1, et5]*(lam[2, p3] - (lam[2, et6]*
                       (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[2, p3]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p3]*(lam[2, et5]*
                     (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p3]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[2, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) - lam[1, et5]*(lam[2, p3] - (lam[2, et6]*
                       (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             ((barlam[2, p7]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[1, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) - lam[1, et5]*(lam[2, p3] - (lam[2, et6]*
                       (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p7]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[2, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) - lam[1, et5]*(lam[2, p3] - (lam[2, et6]*
                       (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-(lam[2, p6]*(lam[1, p3] + (lam[1, et5]*(-((barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))) + lam[1, p6]*
                        (lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5]))))) - (barlam[1, p7]*
                       barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                     (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*((lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))) - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))) + 
              lam[1, p6]*(lam[2, p3] + (lam[2, et5]*(-((barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))) + lam[1, p6]*
                       (lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5]))))) - (barlam[1, p7]*
                      barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                    (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*((lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((barlam[1, p6]*barlam[2, 
                      p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*
                    barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))))*
             ((lam[2, p3] + (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))) + lam[1, p6]*
                       (lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5]))))) - (barlam[1, p7]*
                      barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                    (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*((lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((barlam[1, p6]*barlam[2, 
                      p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*
                    barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p3] + (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))) + lam[1, p6]*
                       (lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5]))))) - (barlam[1, p7]*
                      barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                    (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*((lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((barlam[1, p6]*barlam[2, 
                      p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*
                    barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p4]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^5)/
            ((-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p6])) - barlam[1, p3]*(lam[2, et5]*
                      (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p3] - 
                       (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - barlam[2, p3]*(lam[2, et5]*
                     (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (lam[2, p6]*(lam[1, p3] + (lam[1, et5]*(-((barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))) + lam[1, p6]*
                       (lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5]))))) - (barlam[1, p7]*
                      barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                    (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*((lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((barlam[1, p6]*barlam[2, 
                      p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*
                    barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
              lam[1, p6]*(lam[2, p3] + (lam[2, et5]*(-((barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))) + lam[1, p6]*
                       (lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5]))))) - (barlam[1, p7]*
                      barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                    (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*((lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((barlam[1, p6]*barlam[2, 
                      p3] - barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*
                    barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))))*
             (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                   {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                 lam[2, p6] + (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                   spba[p7, {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*
                  s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                 lam[1, p6] + (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                   spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                  s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (lam[2, p5]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                (barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]) - lam[1, p5]*(lam[2, p4] - 
                (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                (barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]))*
             (-(((-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                       lam[2, p6])) - barlam[2, p3]*(lam[2, et5]*
                      (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p3] - 
                       (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) - barlam[2, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                  (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^2) - 
           (10*CK*(barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])^
              2*(barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
             (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
             ((barlam[2, p4]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))) - (barlam[1, p4]*(barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))) - lam[1, et5]*
                    (lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])))) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))))*(-((barlam[2, p4]*(barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))) + barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p4]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[2, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))*((barlam[2, p7]*(barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))) - lam[1, et5]*
                    (lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])))) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))) - (barlam[1, p7]*(barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                       (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-(lam[2, p6]*(lam[1, p4] + (lam[1, et5]*(-((barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))) + lam[1, p6]*
                        (lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5]))))) - (barlam[1, p7]*
                       barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                     (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))) - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])))) + lam[1, p6]*(lam[2, p4] + (lam[2, et5]*
                  (-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*
                          (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])))) + 
                      lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))))) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((barlam[1, p6]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))))*
             ((lam[2, p4] + (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))) + lam[1, p6]*
                       (lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5]))))) - (barlam[1, p7]*
                      barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                    (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((barlam[1, p6]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p4] + (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))) + lam[1, p6]*
                       (lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5]))))) - (barlam[1, p7]*
                      barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                    (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((barlam[1, p6]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p3]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^5)/
            ((-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (lam[2, p6]*(lam[1, p4] + (lam[1, et5]*(-((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))) + lam[1, p6]*
                       (lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5]))))) - (barlam[1, p7]*
                      barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                    (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((barlam[1, p6]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
              lam[1, p6]*(lam[2, p4] + (lam[2, et5]*(-((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))) + lam[1, p6]*
                       (lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5]))))) - (barlam[1, p7]*
                      barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                    (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((barlam[1, p6]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))))*
             (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                   {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                 lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                   spba[p7, {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*
                  s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                 lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                   spba[p7, {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*
                  s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (lam[2, p5]*(lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                (barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]) - lam[1, p5]*(lam[2, p3] - 
                (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*
                    barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                (barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]))*
             (-(((-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                       lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) - barlam[2, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                  (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^2) - 
           (10*CK*(barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
             (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])^5*
             (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p3]*(-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             ((barlam[2, p6]*(-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))) - barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p6]*(-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p6]*(-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p7])*(lam[2, p3] - (lam[2, et5]*((lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (lam[1, p4] - (lam[1, et6]*
                        (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[2, p3]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) - (lam[2, et6]*(-(lam[2, p5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                    lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p4]) + barlam[1, p4]*barlam[2, p7])*(lam[1, p3] - 
                (lam[1, et5]*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[2, p3]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p7])*(-(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p4])*lam[2, et5]*((lam[2, p4] - (lam[2, et6]*
                         (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) + 
                 lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[1, et5]*((lam[2, p4] - (lam[2, et6]*
                        (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[1, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))*(-((barlam[2, p3]*
                 (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p3]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (((-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                         (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
                     lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))))) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                 (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])) - ((-(barlam[1, p4]*
                    (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))) - lam[1, et5]*
                      (lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^2)/
            (((barlam[2, p4]*(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
               (barlam[1, p4]*(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (-((barlam[2, p7]*(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               (barlam[1, p7]*(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (lam[2, p6]*(lam[1, p3] - (lam[1, et5]*((lam[2, p4] - 
                     (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (lam[1, p4] - (lam[1, et6]*
                       (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[2, p3]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
              lam[1, p6]*(lam[2, p3] - (lam[2, et5]*((lam[2, p4] - 
                     (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (lam[1, p4] - (lam[1, et6]*
                       (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[2, p3]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[2, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))))*
             ((lam[2, p3] - (lam[2, et5]*((lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[2, p3]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[2, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[1, et5]*((lam[2, p4] - (lam[2, et6]*
                        (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[1, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])) - (lam[1, p3] - (lam[1, et5]*
                  ((lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (lam[1, p4] - (lam[1, et6]*
                       (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[2, p3]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*((lam[2, p4] - (lam[2, et6]*
                        (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[2, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*((lam[2, p4] - (lam[2, et6]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*((lam[2, p4] - (lam[2, et6]*
                        (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - (lam[1, p4] - (lam[1, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[2, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]) - (-(barlam[1, p7]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p7])*(-(((barlam[1, p4]*barlam[2, 
                      p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et5]*
                   ((lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (lam[1, p4] - (lam[1, et6]*
                        (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[1, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))) - 
           (10*CK*(barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])^
              5*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                        (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5]))) - lam[1, et5]*
                       (lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5]))))) - barlam[1, p7]*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               (barlam[1, p4]*(-(barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                       (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p3] - 
                       (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             ((barlam[2, p6]*(-(barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))) - barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p6]*(-(barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                       (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p3] - 
                       (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p6]*(-(barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p7])*(lam[2, p4] - (lam[2, et5]*((lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (lam[1, p3] - (lam[1, et6]*
                        (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                         m1])) - (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) - (lam[2, et6]*(-(lam[2, p5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                    lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p3]) + barlam[1, p3]*barlam[2, p7])*(lam[1, p4] - 
                (lam[1, et5]*((lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*(-((barlam[2, p3]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                         m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[2, p4]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p7])*(-(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p4])*lam[2, et5]*((lam[2, p3] - (lam[2, et6]*
                         (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[2, p5]*((barlam[1, p5]*
                     barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                   (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p3]) + barlam[1, p3]*barlam[2, p7])*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[1, et5]*((lam[2, p3] - (lam[2, et6]*
                        (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                         m1])) - (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[1, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])) - (barlam[1, p4]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p6]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (((-(barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - (lam[1, et6]*
                        (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))) - lam[1, et5]*
                     (lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])) - 
              ((-(barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - (lam[1, et6]*
                        (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))) - lam[1, et5]*
                     (lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))))) - barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1]))))/
            (((barlam[2, p3]*(barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
               (barlam[1, p3]*(barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (-((barlam[2, p7]*(barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                       (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p3] - 
                       (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               (barlam[1, p7]*(barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (lam[2, p6]*(-(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p4])*lam[1, et5]*((lam[2, p3] - (lam[2, et6]*
                        (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                         m1])) - (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[1, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])) - lam[1, p6]*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*((lam[2, p3] - (lam[2, et6]*
                        (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                         m1])) - (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[2, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*(-((lam[2, p4] - (lam[2, et5]*
                   ((lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (lam[1, p3] - (lam[1, et6]*
                        (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                         m1])) - (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) - (lam[2, et6]*(-(lam[2, p5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                    lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])))*(-(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p4])*lam[1, et5]*((lam[2, p3] - (lam[2, et6]*
                         (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[1, p5]*((barlam[1, p5]*
                     barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                   (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))) + (lam[1, p4] - (lam[1, et5]*
                  ((lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (lam[1, p3] - (lam[1, et6]*
                       (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[2, p4]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*((lam[2, p3] - (lam[2, et6]*
                        (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                         m1])) - (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[2, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p3]) + 
                barlam[1, p3]*barlam[2, p7])*(lam[2, p4] - 
                (lam[2, et5]*((lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*(-((barlam[2, p3]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                         m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[2, p4]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[2, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*(
                lam[1, p4] - (lam[1, et5]*((lam[2, p3] - (lam[2, et6]*
                       (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*(-((barlam[2, p3]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                         m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[2, p4]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*
                    barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*
                    barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]))) - (10*CK*(barlam[1, p4]*barlam[2, p3] - barlam[1, 
                 p3]*barlam[2, p4])^5*(barlam[1, p7]*barlam[2, p6] - 
              barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                ((lam[1, et5]*(-((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (lam[1, p6]*lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*
                       lam[2, p6]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                    (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                 lam[1, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              lam[1, p6]*((lam[2, et5]*(-((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (lam[1, p6]*lam[2, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*
                      lam[2, p6]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[2, p7]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) + lam[2, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*((barlam[2, p7]*(barlam[1, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])) + ((lam[1, p5]*lam[2, et5]*((barlam[1, p5]*
                        barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*lam[2, p5]*
                     ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]))*(-(barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                       m1])))) - (barlam[1, p7]*(barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])) + ((lam[1, p5]*lam[2, et5]*((barlam[1, p5]*
                        barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*lam[2, p5]*
                     ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]))*(-(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*
             (((lam[2, et5]*(-((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (lam[1, p6]*lam[2, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*
                      lam[2, p6]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[2, p7]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) + lam[2, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]) - ((lam[1, et5]*
                  (-((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (lam[1, p6]*lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p5]*lam[2, p6]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[2, p7]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) + lam[1, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))*(-((barlam[2, p6]*
                  (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p6]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^2*
             (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p7]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (((barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) + ((lam[1, p5]*lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[2, p7]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))*(-((barlam[1, p5]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              ((barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) + ((lam[1, p5]*lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[2, p7]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))*(-((barlam[1, p5]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-(((barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])) + ((lam[1, p5]*lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                 (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[2, p7]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))*(-((barlam[1, p5]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              ((barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) + ((lam[1, p5]*lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[2, p7]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))*(-((barlam[1, p5]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
            ((-((lam[2, p4] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                         p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])))*(lam[1, p3] - (lam[1, et6]*(-(lam[2, p5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                    lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])))) + (lam[1, p4] - (lam[1, et6]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[2, p3] - (lam[2, et6]*(-(lam[2, p5]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p5]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*
                    barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))))*
             (lam[2, p6]*((lam[1, et5]*(-((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - (lam[1, p6]*lam[2, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*
                      lam[2, p6]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[2, p7]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) + lam[1, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])) - lam[1, p6]*((lam[2, et5]*
                  (-((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (lam[1, p6]*lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p5]*lam[2, p6]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[2, p7]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) + lam[2, p5]*((barlam[1, p5]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*((barlam[2, p3]*(-(barlam[1, p6]*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) - ((lam[1, p5]*lam[2, et5]*((barlam[1, p5]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et5]*lam[2, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[2, p7]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (barlam[1, p3]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])) - ((lam[1, p5]*lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[2, p7]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))))^2*
             (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p6])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   ((lam[1, p5]*lam[2, et5]*((barlam[1, p5]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et5]*lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[2, p7]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + (barlam[1, p4]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])) - ((lam[1, p5]*lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[2, p7]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))))^2*(-(lam[2, p6]*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1]))*((lam[2, p6]*((barlam[2, p6]*
                    (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                  (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                ((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                  (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                 (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                    m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1]) - (lam[1, p6]*((barlam[2, p6]*
                    (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                  (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                ((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                  (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                 (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                    m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1]))) - (10*CK*(barlam[1, p4]*barlam[2, p3] - 
              barlam[1, p3]*barlam[2, p4])*(barlam[1, p7]*barlam[2, p4] - 
              barlam[1, p4]*barlam[2, p7])*(lam[2, p6]*(lam[1, p4] - 
                (lam[1, et5]*(lam[1, p6]*lam[2, p5]*((barlam[1, p5]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                     (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, p5]*lam[2, p6]*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]))*(-((barlam[2, p3]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                         m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[1, et6]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                (barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              lam[1, p6]*(lam[2, p4] - (lam[2, et5]*(lam[1, p6]*lam[2, p5]*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*lam[2, p6]*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]))*(-((barlam[2, p3]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                         m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[2, et6]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                (barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p6]*(lam[1, p3] - (lam[1, et5]*(lam[1, p6]*lam[2, p5]*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*lam[2, p6]*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[1, et6]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                (barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              lam[1, p6]*(lam[2, p3] - (lam[2, et5]*(lam[1, p6]*lam[2, p5]*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*lam[2, p6]*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[2, et6]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                (barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p6])) - ((lam[1, p5]*lam[2, et5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                       lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p3]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - ((lam[1, p5]*lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))^
              2*(-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - ((lam[1, p5]*lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                       m1]))))) + (barlam[1, p4]*(-(barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                 ((lam[1, p5]*lam[2, et5]*((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                 (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*
             ((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - ((lam[1, p5]*lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                 (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) - 
              (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - ((lam[1, p5]*lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                 (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*
             (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - ((lam[1, p5]*lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                       m1]))))) + (barlam[1, p7]*(-(barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                 ((lam[1, p5]*lam[2, et5]*((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                 (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*
             (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p6]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^5)/
            (((lam[2, p4] - (lam[2, et5]*(lam[1, p6]*lam[2, p5]*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*lam[2, p6]*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]))*(-((barlam[2, p3]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                         m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[2, et6]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[1, p3] - (lam[1, et5]*(lam[1, p6]*lam[2, p5]*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*lam[2, p6]*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[1, et6]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
              (lam[1, p4] - (lam[1, et5]*(lam[1, p6]*lam[2, p5]*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*lam[2, p6]*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]))*(-((barlam[2, p3]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                         m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[1, et6]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[2, p3] - (lam[2, et5]*(lam[1, p6]*lam[2, p5]*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*lam[2, p6]*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[2, et6]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))))*
             (-(lam[2, p6]*(lam[1, p3] - (lam[1, et5]*(lam[1, p6]*lam[2, p5]*
                     ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*lam[2, p6]*
                     ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                         m1])) - (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - (lam[1, et6]*
                   (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])))*((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p6]*(lam[2, p3] - (lam[2, et5]*(lam[1, p6]*lam[2, p5]*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*lam[2, p6]*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[2, et6]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                (barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + ((lam[1, p5]*lam[2, et5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                       lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p6]*(barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((lam[1, p5]*lam[2, et5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))^
              2*(-((lam[2, p4] - (lam[2, et5]*(lam[1, p6]*lam[2, p5]*
                     ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*lam[2, p6]*
                     ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]))*(-((barlam[2, p3]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - (lam[2, et6]*
                   (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              (lam[1, p4] - (lam[1, et5]*(lam[1, p6]*lam[2, p5]*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*lam[2, p6]*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]))*(-((barlam[2, p3]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                         m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[1, et6]*
                  (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (lam[1, p6]*lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                  barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
              lam[1, p5]*lam[2, p6]*((barlam[1, p5]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                  barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
             (-(((barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6]) + ((lam[1, p5]*lam[2, et5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et5]*lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               ((barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + ((lam[1, p5]*lam[2, et5]*((barlam[1, p5]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et5]*lam[2, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^2) - 
           (10*CK*(barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
             (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
             (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - ((lam[1, p5]*lam[2, et5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                       lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p3]*
                 (-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))) - ((lam[1, p5]*lam[2, et5]*((barlam[1, p5]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et5]*lam[2, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))^
              2*(-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - ((lam[1, p5]*lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                       m1]))))) + (barlam[1, p4]*(-(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                 ((lam[1, p5]*lam[2, et5]*((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                 (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*
             ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - ((lam[1, p5]*lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                 (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) - 
              (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - ((lam[1, p5]*lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                 (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*
             (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - ((lam[1, p5]*lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, 
                       m1]))))) + (barlam[1, p6]*(-(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                 ((lam[1, p5]*lam[2, et5]*((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                 (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*
             (-((lam[2, p4] - (lam[2, et5]*(lam[2, p5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p4])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - (lam[2, et6]*
                   (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])))*((barlam[2, p7]*
                   (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              (lam[1, p4] - (lam[1, et5]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))) - (lam[1, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                (barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((lam[2, p3] - (lam[2, et5]*(lam[2, p5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p4])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - (lam[2, et6]*
                   (-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7])) + lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])))*((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              (lam[1, p3] - (lam[1, et5]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))) - (lam[1, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                (barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p7]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^5)/
            ((lam[2, p6]*(lam[1, p4] - (lam[1, et5]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))) - (lam[1, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
              lam[1, p6]*(lam[2, p4] - (lam[2, et5]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))) - (lam[2, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))))*
             ((lam[2, p4] - (lam[2, et5]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))) - (lam[2, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[1, p3] - (lam[1, et5]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))) - (lam[1, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))) - 
              (lam[1, p4] - (lam[1, et5]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))) - (lam[1, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                lam[2, p3] - (lam[2, et5]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))) - (lam[2, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))))*
             (-((barlam[2, p7]*(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) + ((lam[1, p5]*lam[2, et5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                       lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p7]*(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                  ((lam[1, p5]*lam[2, et5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*lam[2, p5]*((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))^
              2*((lam[2, p3] - (lam[2, et5]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))) - (lam[2, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                (barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p3] - (lam[1, et5]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))) - (lam[1, et6]*(-(lam[2, p5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))*(
                (barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1])*((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, p5]*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*(
                (barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1] - (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]))*
             (-(((barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) + ((lam[1, p5]*lam[2, et5]*((barlam[1, p5]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et5]*lam[2, p5]*
                       ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                        barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               ((barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) + ((lam[1, p5]*lam[2, et5]*((barlam[1, p5]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et5]*lam[2, p5]*
                      ((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p5]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                 (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^2))*
          (-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
               m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
             spba[p7, {m1, p2}, m1])^5)/
         ((-(lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
           lam[1, p5]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
          (-((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5]) - (barlam[1, p2]*spa[p2, m1]*
                  (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
              ((lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])*(
                -((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                   {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]))) + (barlam[1, p5]*(barlam[2, p5]*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) - 
               (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, 
                      p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                   (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
               lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                 barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2*
          (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p5]*(lam[1, p5]*
                   lam[2, et6] - lam[1, et6]*lam[2, p5]) - (barlam[1, p2]*
                  spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                     lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                  {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - lam[1, et6]*
                 lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*spa[p2, m1])/
                  spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1])*spba[p7, {m1, p2}, 
                m1])) + (barlam[1, p2]*spa[p2, m1]*(barlam[2, p5]*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) - 
               (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, 
                      p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                   (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et6] - 
               lam[1, et6]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                 barlam[2, p5]*spa[p2, m1])/spba[p7, {m1, p2}, m1])*
              spba[p7, {m1, p2}, m1]))^2) + 
        (((-10*CK*(barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])^
              5*(barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
             (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))))/((barlam[1, p5]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5]))) + (barlam[1, p3]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))))))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])))*
             ((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - barlam[1, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))))))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
              (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - barlam[2, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))))))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])))*
             (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))))/((barlam[1, p5]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5]))) + (barlam[1, p7]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))))))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])))*
             ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
               lam[2, p5]*(lam[1, p3] - (lam[1, et5]*(-(lam[2, p5]*
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p5]*(lam[2, p4] - 
                     (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))))*((barlam[2, p4]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[2, p3]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
              (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
               lam[1, p5]*(lam[2, p3] - (lam[2, et5]*(-(lam[2, p5]*
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p5]*(lam[2, p4] - 
                     (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))))*((barlam[2, p4]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[2, p3]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[2, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))*
             ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
               lam[2, p5]*(-(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p4])*lam[1, et5]*(-(lam[2, p5]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*(-((barlam[2, p3]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[1, p6]*((barlam[1, p6]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])) - (-(barlam[1, p5]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p5])*lam[1, p5]*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*(-(lam[2, p5]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*(-((barlam[2, p3]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[2, p6]*((barlam[1, p6]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*(-((barlam[2, p3]*(-(barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                   spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (((-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                   spba[p7, {m1, p2}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
               ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))*(-(barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                   spba[p7, {m1, p2}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2)/
            (((barlam[2, p4]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))))/((barlam[1, p5]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])) - (barlam[1, p4]*(barlam[2, p5]*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))))))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])))^2*
             (-((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5]) + barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]))) + (barlam[1, p5]*
                 (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))))/((barlam[1, p5]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])))^2*(-(lam[2, p5]*(lam[1, p4] - 
                 (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                       lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))) + lam[1, p5]*(lam[2, p4] - (lam[2, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))*
             (-((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p5])*lam[2, p5]*(-(((barlam[1, p4]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p4])*lam[1, et5]*
                    (-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + lam[1, p5]*
                      (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))/((lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])*(-((barlam[2, p3]*
                        (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) + 
                 lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
               lam[1, p5]*(-(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p4])*lam[2, et5]*(-(lam[2, p5]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*(-((barlam[2, p3]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[2, p6]*((barlam[1, p6]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*((lam[2, p3] - (lam[2, et5]*
                  (-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + lam[1, p5]*
                    (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))))*((barlam[2, p4]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[2, p3]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[2, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[1, et5]*(-(lam[2, p5]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*(-((barlam[2, p3]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[1, p6]*((barlam[1, p6]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])) - (lam[1, p3] - (lam[1, et5]*
                  (-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + lam[1, p5]*
                    (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))))*((barlam[2, p4]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[2, p3]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*(-(lam[2, p5]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*(-((barlam[2, p3]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[2, p6]*((barlam[1, p6]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*(-((lam[2, p3] - (lam[2, et5]*
                   (-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + lam[1, p5]*
                     (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))*((barlam[2, p4]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*(-((barlam[2, p3]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) - (lam[2, et6]*(-(lam[2, p6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (lam[1, p3] - 
                (lam[1, et5]*(-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))) + 
                   lam[1, p5]*(lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))))*
                  ((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[2, p3]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]))) - (10*CK*(barlam[1, p5]*barlam[2, p3] - barlam[1, 
                 p3]*barlam[2, p5])^5*(-((barlam[2, p4]*(-(barlam[1, p5]*
                     (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
                   barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - (lam[1, et6]*
                         (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))) - lam[1, et5]*
                      (lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))))/((barlam[1, p5]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]))) + (barlam[1, p4]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])))^2*((barlam[2, p7]*
                (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p3] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))))))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
              (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - barlam[2, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p3] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))))))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])))*
             (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - barlam[1, p3]*(lam[2, et5]*
                     (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5]))) + (barlam[1, p7]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p3] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))))))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])))*
             ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
               lam[2, p5]*(lam[1, p4] - (lam[1, et5]*(-(lam[2, p5]*
                     (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p5]*(lam[2, p3] - 
                     (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))))*(-((barlam[2, p3]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*((barlam[2, p4]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
              (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
               lam[1, p5]*(lam[2, p4] - (lam[2, et5]*(-(lam[2, p5]*
                     (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p5]*(lam[2, p3] - 
                     (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))))*(-((barlam[2, p3]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*((barlam[2, p4]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[2, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))*
             ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
               lam[2, p5]*(-(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p4])*lam[1, et5]*(-(lam[2, p5]*(lam[1, p3] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*((barlam[2, p4]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[1, p6]*((barlam[1, p6]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])) - (-(barlam[1, p5]*barlam[2, p3]) + 
                barlam[1, p3]*barlam[2, p5])*lam[1, p5]*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*(-(lam[2, p5]*(lam[1, p3] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*((barlam[2, p4]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[2, p6]*((barlam[1, p6]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*((barlam[2, p4]*(-(barlam[1, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                 (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                  spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p7]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (((-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p3] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))))*
                (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])) - 
              ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p3] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))))*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1]))))/
            (((barlam[2, p3]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + barlam[1, p3]*(lam[2, et5]*
                     (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])) - (barlam[1, p3]*(barlam[2, p5]*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - (lam[1, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))) - lam[1, et5]*
                     (lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])))^2*
             (-((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5]) + barlam[1, p3]*(lam[2, et5]*
                      (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p3] - 
                       (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))))/((barlam[1, p5]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]))) + (barlam[1, p5]*
                 (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])))^2*
             (-((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p5])*lam[2, p5]*(lam[1, p4] - (lam[1, et5]*
                   (-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + lam[1, p5]*
                     (lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))*(-((barlam[2, p3]*(-(barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                    (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*((barlam[2, p4]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) - (lam[1, et6]*(-(lam[2, p6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))) + (-(barlam[1, p5]*barlam[2, p3]) + 
                barlam[1, p3]*barlam[2, p5])*lam[1, p5]*(lam[2, p4] - 
                (lam[2, et5]*(-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + lam[1, p5]*
                    (lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))))*(-((barlam[2, p3]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*((barlam[2, p4]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[2, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))*
             (-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))) + lam[1, p5]*(lam[2, p3] - (lam[2, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))*
             (-((lam[2, p4] - (lam[2, et5]*(-(lam[2, p5]*(lam[1, p3] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))*(-((barlam[2, p3]*(-(barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                    (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*((barlam[2, p4]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) - (lam[2, et6]*(-(lam[2, p6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))*(-(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p4])*lam[1, et5]*(-(lam[2, p5]*(lam[1, p3] - 
                        (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))) + lam[1, p5]*
                      (lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))/((lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])*((barlam[2, p4]*(-(barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[1, p6]*((barlam[1, p6]*
                     barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                   (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))) + (lam[1, p4] - (lam[1, et5]*
                  (-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + lam[1, p5]*
                    (lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))))*(-((barlam[2, p3]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*((barlam[2, p4]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*(-(lam[2, p5]*(lam[1, p3] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*((barlam[2, p4]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[2, p6]*((barlam[1, p6]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*(-((-(((barlam[1, p4]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p4])*lam[2, et5]*
                    (-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + lam[1, p5]*
                      (lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))/((lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])*((barlam[2, p4]*(-(barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                     (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[2, p6]*((barlam[1, p6]*
                     barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                   (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (-(((barlam[1, p4]*barlam[2, 
                      p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et5]*
                   (-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + lam[1, p5]*
                     (lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*((barlam[2, p4]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[1, p6]*((barlam[1, p6]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))) - 
           (10*CK*(barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
             (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])^2*
             (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
             ((barlam[2, p3]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[1, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p3] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p3]*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[2, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p3] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[2, p3]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + barlam[1, p3]*(lam[2, et5]*
                     (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p3]*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[2, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p3] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             ((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[1, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p3] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[2, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p3] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-(lam[2, p5]*(lam[1, p3] + (lam[1, et5]*(-((barlam[1, p5]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                      (-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + lam[1, p5]*
                        (lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))))) - (-(barlam[1, p7]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                     (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*((lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p5]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))) - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))) + 
              lam[1, p5]*(lam[2, p3] + (lam[2, et5]*(-((barlam[1, p5]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                     (-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + lam[1, p5]*
                       (lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))))) - (-(barlam[1, p7]*
                       barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                    (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*((lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, 
                      p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*
                    barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))*
             ((lam[2, p3] + (lam[2, et5]*(-((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(-(lam[2, p5]*
                        (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))) + lam[1, p5]*
                       (lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))))) - (-(barlam[1, p7]*
                       barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                    (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*((lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, 
                      p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*
                    barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p3] + (lam[1, et5]*(-((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(-(lam[2, p5]*
                        (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))) + lam[1, p5]*
                       (lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))))) - (-(barlam[1, p7]*
                       barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                    (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*((lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, 
                      p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*
                    barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p4]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^5)/
            ((-((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p5])) - barlam[1, p3]*(lam[2, et5]*
                      (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p3] - 
                       (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - barlam[2, p3]*(lam[2, et5]*
                     (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (-(lam[2, p5]*((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                    barlam[2, p5])*lam[1, p5] + (-(barlam[1, p7]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p7])*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
              lam[1, p5]*((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p5])*lam[2, p5] + (-(barlam[1, p7]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
             (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1]) - lam[1, p5]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((lam[2, p3] + (lam[2, et5]*(-((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*(-(lam[2, p5]*
                         (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p6])))) + lam[1, p5]*(lam[2, p3] - 
                         (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))))) - (-(barlam[1, p7]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                     (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*((lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p5]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))) - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                       m1])/spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*
                     barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                   m1])) + (lam[1, p3] + (lam[1, et5]*
                  (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*
                          (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + lam[1, p5]*
                       (lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))))) - (-(barlam[1, p7]*
                       barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                    (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*((lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, 
                      p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*
                    barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                (barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p4] - 
                (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                (barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]))*
             (-(((-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                       lam[2, p5])) - barlam[2, p3]*(lam[2, et5]*
                      (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p3] - 
                       (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) - barlam[2, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                  (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p5]) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^2) - 
           (10*CK*(barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
             (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])^2*
             (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
             ((barlam[2, p4]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[1, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                   lam[2, p5]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))) - (barlam[1, p4]*(barlam[2, p5]*(lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5]) + barlam[2, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))) - lam[1, et5]*
                    (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5]) + (barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))))*(-((barlam[2, p4]*(barlam[1, p5]*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p4]*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[2, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                   lam[2, p5]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]))))*((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5]) + barlam[1, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))) - lam[1, et5]*
                    (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5]) + (barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))) - (barlam[1, p5]*(barlam[2, p5]*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                 (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-(lam[2, p5]*(lam[1, p4] + (lam[1, et5]*(-((barlam[1, p5]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                      (-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + lam[1, p5]*
                        (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))))) - (-(barlam[1, p7]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                     (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p5]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))) - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))) + lam[1, p5]*(lam[2, p4] + (lam[2, et5]*
                  (-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p5])*(-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*
                          (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))) + 
                      lam[1, p5]*(lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))))) - 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*((lam[2, p4] - (lam[2, et6]*
                         (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))*
             ((lam[2, p4] + (lam[2, et5]*(-((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(-(lam[2, p5]*
                        (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))) + lam[1, p5]*
                       (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))))) - (-(barlam[1, p7]*
                       barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                    (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p4] + (lam[1, et5]*(-((barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(-(lam[2, p5]*
                        (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))) + lam[1, p5]*
                       (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))))) - (-(barlam[1, p7]*
                       barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                    (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p3]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^5)/
            ((-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p5])) - barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - barlam[2, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (-(lam[2, p5]*((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                    barlam[2, p5])*lam[1, p5] + (-(barlam[1, p7]*barlam[2, 
                      p4]) + barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
              lam[1, p5]*((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p5])*lam[2, p5] + (-(barlam[1, p7]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
             (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1]) - lam[1, p5]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((lam[2, p4] + (lam[2, et5]*(-((barlam[1, p5]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p5])*(-(lam[2, p5]*
                         (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p6])))) + lam[1, p5]*(lam[2, p4] - 
                         (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))))) - (-(barlam[1, p7]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                     (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p5]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))) - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                   (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (lam[1, p4] + 
                (lam[1, et5]*(-((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p5])*(-(lam[2, p5]*(lam[1, p4] - 
                         (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))) + lam[1, p5]*
                       (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))))) - (-(barlam[1, p7]*
                       barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                    (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))))/((barlam[1, p5]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (lam[2, p6]*(lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                (barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]) - lam[1, p6]*(lam[2, p3] - 
                (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*
                    barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                (barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]))*
             (-(((-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                       lam[2, p5])) - barlam[2, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) - barlam[2, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                  (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p5]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])))*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^2) - 
           (10*CK*(barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
             (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])^5*
             (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p3]*(-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             ((barlam[2, p5]*(-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p5]*(-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p5]*(-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p7])*(lam[2, p3] - (lam[2, et5]*((lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (lam[1, p4] - (lam[1, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[2, p3]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) - (lam[2, et6]*(-(lam[2, p6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p4]) + barlam[1, p4]*barlam[2, p7])*(lam[1, p3] - 
                (lam[1, et5]*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                        barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                   (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[2, p3]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p7])*(-(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p4])*lam[2, et5]*((lam[2, p4] - (lam[2, et6]*
                         (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                   ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))))) + 
                 lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[1, et5]*((lam[2, p4] - (lam[2, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[1, p6]*((barlam[1, p6]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))*(-((barlam[2, p3]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p3]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (((-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                         (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                     lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))))) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])) - ((-(barlam[1, p4]*
                    (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))) - lam[1, et5]*
                      (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^2)/
            (((barlam[2, p4]*(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
               (barlam[1, p4]*(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (-((barlam[2, p7]*(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               (barlam[1, p7]*(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (lam[2, p5]*(lam[1, p3] - (lam[1, et5]*((lam[2, p4] - 
                     (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (lam[1, p4] - (lam[1, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[2, p3]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
              lam[1, p5]*(lam[2, p3] - (lam[2, et5]*((lam[2, p4] - 
                     (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (lam[1, p4] - (lam[1, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[2, p3]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[2, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))*
             ((lam[2, p3] - (lam[2, et5]*((lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[2, p3]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[2, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[1, et5]*((lam[2, p4] - (lam[2, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[1, p6]*((barlam[1, p6]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])) - (lam[1, p3] - (lam[1, et5]*
                  ((lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (lam[1, p4] - (lam[1, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[2, p3]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*((lam[2, p4] - (lam[2, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[2, p6]*((barlam[1, p6]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*((lam[2, p4] - (lam[2, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*((lam[2, p4] - (lam[2, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[2, p6]*((barlam[1, p6]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]) - (-(barlam[1, p7]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p7])*(-(((barlam[1, p4]*barlam[2, 
                      p3] - barlam[1, p3]*barlam[2, p4])*lam[1, et5]*
                   ((lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (lam[1, p4] - (lam[1, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                        (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[1, p6]*((barlam[1, p6]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))) - 
           (10*CK*(barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])^
              5*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                        (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))) - lam[1, et5]*
                       (lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))))) - barlam[1, p7]*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               (barlam[1, p4]*(-(barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p3] - 
                       (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             ((barlam[2, p5]*(-(barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
              (barlam[1, p5]*(-(barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p3] - 
                       (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
              (barlam[1, p5]*(-(barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]))))/(
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p7])*(lam[2, p4] - (lam[2, et5]*((lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (lam[1, p3] - (lam[1, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                         m1])) - (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) - (lam[2, et6]*(-(lam[2, p6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p3]) + barlam[1, p3]*barlam[2, p7])*(lam[1, p4] - 
                (lam[1, et5]*((lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*(-((barlam[2, p3]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                         m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[2, p4]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p7])*(-(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p4])*lam[2, et5]*((lam[2, p3] - (lam[2, et6]*
                         (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[2, p6]*((barlam[1, p6]*
                     barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                   (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                  spba[p7, {m1, p2}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p3]) + barlam[1, p3]*barlam[2, p7])*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[1, et5]*((lam[2, p3] - (lam[2, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                         m1])) - (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[1, p6]*((barlam[1, p6]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])) - (barlam[1, p4]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p5]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (((-(barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - (lam[1, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))) - lam[1, et5]*
                     (lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])) - 
              ((-(barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - (lam[1, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))) - lam[1, et5]*
                     (lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1])))*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1]))))/
            (((barlam[2, p3]*(barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
               (barlam[1, p3]*(barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (-((barlam[2, p7]*(barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p3] - 
                       (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) + 
               (barlam[1, p7]*(barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]))))/
                ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))^2*
             (lam[2, p5]*(-(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p4])*lam[1, et5]*((lam[2, p3] - (lam[2, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                         m1])) - (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[1, p6]*((barlam[1, p6]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])) - lam[1, p5]*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*((lam[2, p3] - (lam[2, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                         m1])) - (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[2, p6]*((barlam[1, p6]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*(-((lam[2, p4] - (lam[2, et5]*
                   ((lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - (lam[1, p3] - (lam[1, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                         m1])) - (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) - (lam[2, et6]*(-(lam[2, p6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))*(-(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p4])*lam[1, et5]*((lam[2, p3] - (lam[2, et6]*
                         (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1])) - (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[1, p6]*((barlam[1, p6]*
                     barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                   (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))) + (lam[1, p4] - (lam[1, et5]*
                  ((lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]) - (lam[1, p3] - (lam[1, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[2, p4]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*((lam[2, p3] - (lam[2, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                         m1])) - (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + lam[2, p6]*((barlam[1, p6]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*((-(barlam[1, p7]*barlam[2, p3]) + 
                barlam[1, p3]*barlam[2, p7])*(lam[2, p4] - 
                (lam[2, et5]*((lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*(-((barlam[2, p3]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                         m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[2, p4]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[2, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*(
                lam[1, p4] - (lam[1, et5]*((lam[2, p3] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*(-((barlam[2, p3]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                         m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                         barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                         m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[2, p4]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             ((lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*
                    barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*
                    barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                  m1]))) - (10*CK*(barlam[1, p4]*barlam[2, p3] - barlam[1, 
                 p3]*barlam[2, p4])^5*(-(barlam[1, p7]*barlam[2, p5]) + 
              barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                ((lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (-(lam[1, p6]*lam[2, p5]*((barlam[1, p6]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p6]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                    (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                 lam[1, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              lam[1, p5]*((lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (-(lam[1, p6]*lam[2, p5]*((barlam[1, p6]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])*((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])*((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[2, p7]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) + lam[2, p6]*((barlam[1, p6]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*((barlam[2, p5]*(barlam[1, p5]*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])) + ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*
                        barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]))*(-(barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                       m1])))) - (barlam[1, p5]*(barlam[2, p5]*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])) + ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*
                        barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]))*(-(barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*
             (((lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (-(lam[1, p6]*lam[2, p5]*((barlam[1, p6]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])*((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])*((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[2, p7]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) + lam[2, p6]*((barlam[1, p6]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]) - ((lam[1, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                       barlam[2, p7])*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) - (-(lam[1, p6]*lam[2, p5]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])*((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])*((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[2, p7]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) + lam[1, p6]*((barlam[1, p6]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))*(-((barlam[2, p5]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p5]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p7]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^2*
             (((barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) + ((lam[1, p6]*lam[2, et5]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[2, p7]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))*(-((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              ((barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) + ((lam[1, p6]*lam[2, et5]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[2, p7]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))*(-((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-(((barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])) + ((lam[1, p6]*lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[2, p7]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))*(-((barlam[1, p6]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              ((barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])) + ((lam[1, p6]*lam[2, et5]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[2, p7]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))*(-((barlam[1, p6]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
            ((-(lam[2, p5]*(lam[1, p5]*((barlam[2, p5]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + ((barlam[2, p7]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p7]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                    spba[p7, {m1, p2}, m1]))) + lam[1, p5]*(lam[2, p5]*
                 ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                  (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                ((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                  (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                 (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                    m1])))*(-((lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))*(lam[1, p3] - (lam[1, et6]*(-(lam[2, p6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                        p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))) + (lam[1, p4] - (lam[1, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p3] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p2]*spb[p2, p7])) + lam[1, p6]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p2, 
                      m1])/spba[p7, {m1, p2}, m1]))/((barlam[1, p4]*
                    barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))*
             ((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                  ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[2, p7]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (barlam[1, p3]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])) - ((lam[1, p6]*lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[2, p7]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))))^2*
             (-((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p5])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
                   ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et5]*lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                        barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[2, p7]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + (barlam[1, p4]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1])) - ((lam[1, p6]*lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[2, p7]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))))^2*(lam[2, p5]*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1]))*(-(((lam[2, et5]*(-((-(barlam[1, p7]*
                         barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                    (-(lam[1, p6]*lam[2, p5]*((barlam[1, p6]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                    (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p6]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                    (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
                 lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              ((lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*(-(lam[2, p5]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                   (-(lam[1, p6]*lam[2, p5]*((barlam[1, p6]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
                   (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])*((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])*((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[2, p7]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                          barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) + lam[1, p6]*((barlam[1, p6]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1]))) - 
           (10*CK*(barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
             (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
             (lam[2, p5]*(lam[1, p4] - (lam[1, et5]*(-(lam[1, p6]*lam[2, p5]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])) - (lam[1, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                (barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              lam[1, p5]*(lam[2, p4] - (lam[2, et5]*(-(lam[1, p6]*lam[2, p5]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])) - (lam[2, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                (barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p5]*(lam[1, p3] - (lam[1, et5]*(-(lam[1, p6]*lam[2, p5]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])) - (lam[1, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                (barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              lam[1, p5]*(lam[2, p3] - (lam[2, et5]*(-(lam[1, p6]*lam[2, p5]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])) - (lam[2, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                (barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p5])) - ((lam[1, p6]*lam[2, et5]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                       lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                        barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p3]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - ((lam[1, p6]*lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))^
              2*(-((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - ((lam[1, p6]*lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                       m1]))))) + (barlam[1, p4]*(-(barlam[2, p5]*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
                 ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                 (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*
             ((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - ((lam[1, p6]*lam[2, et5]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                 (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) - 
              (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - ((lam[1, p6]*lam[2, et5]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                 (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*
             (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - ((lam[1, p6]*lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                       m1]))))) + (barlam[1, p7]*(-(barlam[2, p5]*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
                 ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                 (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*
             (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p5]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^5)/
            (((lam[2, p4] - (lam[2, et5]*(-(lam[1, p6]*lam[2, p5]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])) - (lam[2, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, p3] - (lam[1, et5]*(-(lam[1, p6]*lam[2, p5]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])) - (lam[1, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
              (lam[1, p4] - (lam[1, et5]*(-(lam[1, p6]*lam[2, p5]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])) - (lam[1, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p3] - (lam[2, et5]*(-(lam[1, p6]*lam[2, p5]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])) - (lam[2, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))*
             (-(lam[2, p5]*(lam[1, p3] - (lam[1, et5]*(-(lam[1, p6]*
                      lam[2, p5]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   ((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - (lam[1, et6]*
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) + 
              lam[1, p5]*(lam[2, p3] - (lam[2, et5]*(-(lam[1, p6]*lam[2, p5]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])) - (lam[2, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                (barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5]) + ((lam[1, p6]*lam[2, et5]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                       lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                        barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p5]*(barlam[2, p5]*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))^
              2*(-((lam[2, p4] - (lam[2, et5]*(-(lam[1, p6]*lam[2, p5]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - (lam[2, et6]*
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              (lam[1, p4] - (lam[1, et5]*(-(lam[1, p6]*lam[2, p5]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])) - (lam[1, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-(lam[1, p6]*lam[2, p5]*((barlam[1, p6]*barlam[2, p2]*
                   spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                   barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) + 
              lam[1, p5]*lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                  barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
             (-(((barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5]) + ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et5]*lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                        barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))*(-((barlam[1, p6]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               ((barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et5]*lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^2) - 
           (10*CK*(barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
             (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
             (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) - ((lam[1, p6]*lam[2, et5]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                       lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                        barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p3]*
                 (-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))) - ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et5]*lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))^
              2*(-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - ((lam[1, p6]*lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                       m1]))))) + (barlam[1, p4]*(-(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                 ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                 (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*
             ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - ((lam[1, p6]*lam[2, et5]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                 (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))) - 
              (barlam[1, p5]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - ((lam[1, p6]*lam[2, et5]*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                 (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*
             (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) - ((lam[1, p6]*lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, 
                       m1]))))) + (barlam[1, p5]*(-(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) - 
                 ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                        barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/(
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                 (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))))*
             (-((lam[2, p4] - (lam[2, et5]*(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) - lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p4])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - (lam[2, et6]*
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7]))*(-((barlam[1, p3]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))*((barlam[2, p7]*
                   (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              (lam[1, p4] - (lam[1, et5]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                (barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((lam[2, p3] - (lam[2, et5]*(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) - lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   ((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p4])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) - (lam[2, et6]*
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7]))*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))*((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                 (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
              (lam[1, p3] - (lam[1, et5]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                (barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p7]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^5)/
            ((lam[2, p5]*(lam[1, p4] - (lam[1, et5]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
              lam[1, p5]*(lam[2, p4] - (lam[2, et5]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))) - (lam[2, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))*
             ((lam[2, p4] - (lam[2, et5]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))) - (lam[2, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, p3] - (lam[1, et5]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
              (lam[1, p4] - (lam[1, et5]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p3] - (lam[2, et5]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))) - (lam[2, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))*
             (-((barlam[2, p7]*(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])) + ((lam[1, p6]*lam[2, et5]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                       lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                         spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, 
                          p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                        barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p7]*(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) + 
                  ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*lam[2, p6]*((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))))^
              2*((lam[2, p3] - (lam[2, et5]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))) - (lam[2, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                (barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
              (lam[1, p3] - (lam[1, et5]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                (barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
             (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                  {m1, p2}, m1])*((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, p6]*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*(
                (barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1] - (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]))*
             (-(((barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])) + ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et5]*lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                          m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                        barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                  (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*
                         spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                         {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))*(-((barlam[1, p6]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               ((barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])) + ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et5]*lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p6]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[2, p2]*spa[p2, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                       barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                 (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^2))*
          (-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
               m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
             spba[p7, {m1, p2}, m1])^5)/
         ((-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
           lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))*
          (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) - (barlam[1, p2]*spa[p2, m1]*
                  (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
              ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*(
                -((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                   {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]))) + (barlam[1, p6]*(barlam[2, p6]*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) - 
               (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, 
                      p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                   (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
               lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                 barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2*
          (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p6]*(lam[1, p6]*
                   lam[2, et6] - lam[1, et6]*lam[2, p6]) - (barlam[1, p2]*
                  spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                     lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                  {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                 lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*spa[p2, m1])/
                  spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p6]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1])*spba[p7, {m1, p2}, 
                m1])) + (barlam[1, p2]*spa[p2, m1]*(barlam[2, p6]*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) - 
               (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, 
                      p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                   (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et6] - 
               lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                 barlam[2, p6]*spa[p2, m1])/spba[p7, {m1, p2}, m1])*
              spba[p7, {m1, p2}, m1]))^2) + 
        (((-10*CK*(barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])^
              5*(barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
             (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))))/((barlam[1, p5]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                   lam[2, et5] - lam[1, et5]*lam[2, p5]))) + (barlam[1, p3]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))))/((barlam[1, p5]*barlam[2, 
                   p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                  lam[2, et5] - lam[1, et5]*lam[2, p5])))*
             ((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - barlam[1, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])) - (barlam[1, p6]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))))/((barlam[1, p5]*barlam[2, 
                   p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                  lam[2, et5] - lam[1, et5]*lam[2, p5])))*
             (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))))/((barlam[1, p5]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                   lam[2, et5] - lam[1, et5]*lam[2, p5]))) + (barlam[1, p6]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))))/((barlam[1, p5]*barlam[2, 
                   p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                  lam[2, et5] - lam[1, et5]*lam[2, p5])))*
             ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
               lam[2, p5]*(lam[1, p3] - (lam[1, et5]*(-(lam[2, p5]*
                     (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[1, p5]*(lam[2, p4] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))*((barlam[2, p4]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[2, p3]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
              (-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
               lam[1, p5]*(lam[2, p3] - (lam[2, et5]*(-(lam[2, p5]*
                     (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[1, p5]*(lam[2, p4] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))*((barlam[2, p4]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[2, p3]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
             ((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p5])*
               lam[2, p5]*(-(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p4])*lam[1, et5]*(-(lam[2, p5]*(lam[1, p4] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[1, p5]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*(-((barlam[2, p3]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])) - (-(barlam[1, p5]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p5])*lam[1, p5]*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*(-(lam[2, p5]*(lam[1, p4] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[1, p5]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*(-((barlam[2, p3]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*(-((barlam[2, p3]*(-(barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                   spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              (barlam[1, p3]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (((-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))))*(-(barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                   spba[p7, {m1, p2}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
               ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))))*(-(barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                   spba[p7, {m1, p2}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2)/
            (((barlam[2, p4]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))))/((barlam[1, p5]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                   lam[2, et5] - lam[1, et5]*lam[2, p5])) - (barlam[1, p4]*
                 (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))))/((barlam[1, p5]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                   lam[2, et5] - lam[1, et5]*lam[2, p5])))^2*
             (-((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5]) + barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))))/((barlam[1, p5]*barlam[2, 
                     p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5]))) + (barlam[1, p5]*
                 (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))))/((barlam[1, p5]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                   lam[2, et5] - lam[1, et5]*lam[2, p5])))^2*
             (-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, 
                        p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              lam[1, p5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
             (lam[2, p6]*(lam[1, p3] - (lam[1, et5]*(-(lam[2, p5]*
                     (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[1, p5]*(lam[2, p4] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))*((barlam[2, p4]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[2, p3]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
              lam[1, p6]*(lam[2, p3] - (lam[2, et5]*(-(lam[2, p5]*
                     (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[1, p5]*(lam[2, p4] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))*((barlam[2, p4]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[2, p3]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
             (-((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p5])*lam[2, p5]*(-(((barlam[1, p4]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p4])*lam[1, et5]*
                    (-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p5]*(lam[2, p4] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))))/((lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])*(-((barlam[2, p3]*
                        (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                     barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                   (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))) + (-(barlam[1, p5]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p5])*lam[1, p5]*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*(-(lam[2, p5]*(lam[1, p4] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[1, p5]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*(-((barlam[2, p3]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*((lam[2, p3] - (lam[2, et5]*
                  (-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p5]*(lam[2, p4] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))*((barlam[2, p4]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[2, p3]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[1, et5]*(-(lam[2, p5]*(lam[1, p4] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[1, p5]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*(-((barlam[2, p3]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])) - (lam[1, p3] - (lam[1, et5]*
                  (-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p5]*(lam[2, p4] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))*((barlam[2, p4]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[2, p3]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*(-(lam[2, p5]*(lam[1, p4] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[1, p5]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*(-((barlam[2, p3]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))) - (10*CK*(barlam[1, p5]*barlam[2, p3] - 
              barlam[1, p3]*barlam[2, p5])*(barlam[1, p6]*barlam[2, p4] - 
               barlam[1, p4]*barlam[2, p6])^5*(-((barlam[2, p3]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))))/((barlam[1, p6]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                   lam[2, et5] - lam[1, et5]*lam[2, p6]))) + (barlam[1, p3]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))))/((barlam[1, p6]*barlam[2, 
                   p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                  lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])) - (barlam[1, p5]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))))/((barlam[1, p6]*barlam[2, 
                   p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                  lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))))/((barlam[1, p6]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                   lam[2, et5] - lam[1, et5]*lam[2, p6]))) + (barlam[1, p5]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))))/((barlam[1, p6]*barlam[2, 
                   p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                  lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[2, p6]*(lam[1, p3] - (lam[1, et5]*(-(lam[2, p6]*
                     (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[1, p6]*(lam[2, p4] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))*((barlam[2, p4]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
              (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[1, p6]*(lam[2, p3] - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[1, p6]*(lam[2, p4] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))*((barlam[2, p4]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
             ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[2, p6]*(-(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p4])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[1, p6]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])) - (-(barlam[1, p6]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p6])*lam[1, p6]*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[1, p6]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*(-((barlam[2, p3]*(-(barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                   spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              (barlam[1, p3]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (((-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))))*(-(barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                  (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                   spba[p7, {m1, p2}, m1]))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
               ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))))*(-(barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                   spba[p7, {m1, p2}, m1]))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2)/
            (((barlam[2, p4]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))))/((barlam[1, p6]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                   lam[2, et5] - lam[1, et5]*lam[2, p6])) - (barlam[1, p4]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))))/((barlam[1, p6]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                   lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))))/((barlam[1, p6]*barlam[2, 
                     p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]))) + (barlam[1, p6]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))))/((barlam[1, p6]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                   lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, 
                        p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              lam[1, p6]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
             (lam[2, p5]*(lam[1, p3] - (lam[1, et5]*(-(lam[2, p6]*
                     (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[1, p6]*(lam[2, p4] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))*((barlam[2, p4]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
              lam[1, p5]*(lam[2, p3] - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[1, p6]*(lam[2, p4] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))*((barlam[2, p4]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
             (-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p6])*lam[2, p6]*(-(((barlam[1, p4]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p4])*lam[1, et5]*
                    (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))))/((lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*
                        (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                     barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                   (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))) + (-(barlam[1, p6]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p6])*lam[1, p6]*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[1, p6]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*((lam[2, p3] - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))*((barlam[2, p4]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[1, p6]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])) - (lam[1, p3] - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))*((barlam[2, p4]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[1, p6]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))) - (10*CK*(barlam[1, p5]*barlam[2, p4] - 
               barlam[1, p4]*barlam[2, p5])^2*(barlam[1, p6]*barlam[2, p4] - 
              barlam[1, p4]*barlam[2, p6])*(barlam[1, p6]*barlam[2, p5] - 
              barlam[1, p5]*barlam[2, p6])*((barlam[2, p4]*(barlam[1, p5]*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                      ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))))/((barlam[1, p5]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                   lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
              (barlam[1, p4]*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))*(-((barlam[2, p4]*
                 (barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))))/((barlam[1, p5]*barlam[2, 
                     p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
              (barlam[1, p4]*(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))*((barlam[2, p6]*
                (barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])) - (barlam[1, p6]*
                (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[2, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))*(-(lam[2, p5]*(lam[1, p4] + 
                 (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                        lam[2, p6])) - (barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(-(lam[2, p5]*
                        (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))) + lam[1, p5]*
                       (lam[2, p4] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))) - (barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, 
                          p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))/((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))) + lam[1, p6]*
                       (lam[2, p4] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              lam[1, p5]*(lam[2, p4] + (lam[2, et5]*(-((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                   (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))) + lam[1, p5]*
                      (lam[2, p4] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*(lam[1, p4] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))) + lam[1, p6]*
                      (lam[2, p4] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))))/((barlam[1, p5]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                      spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, 
                       p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*(-(lam[2, p6]*(lam[1, p4] + 
                 (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                        lam[2, p6])) - (barlam[1, p5]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p5])*(-(lam[2, p5]*
                        (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))) + lam[1, p5]*
                       (lam[2, p4] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))) - (barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, 
                          p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))/((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))) + lam[1, p6]*
                       (lam[2, p4] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))))))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              lam[1, p6]*(lam[2, p4] + (lam[2, et5]*(-((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                   (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))) + lam[1, p5]*
                      (lam[2, p4] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*(lam[1, p4] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))) + lam[1, p6]*
                      (lam[2, p4] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))))/((barlam[1, p5]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                      spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, 
                       p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*(-((barlam[2, p3]*
                  (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p3]*
                 (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^5)/
            ((-(lam[1, p6]*lam[2, p5]) + lam[1, p5]*lam[2, p6])*
             (-(((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*lam[1, p6])*lam[2, p6]) + 
              lam[1, p6]*((-(barlam[1, p5]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6]))*
             (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) - barlam[1, p4]*
                    (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                     lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]))) + (barlam[1, p3]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - barlam[2, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))))/((barlam[1, p5]*barlam[2, 
                     p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                    lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (lam[2, p5]*(lam[1, p4] + (lam[1, et5]*(-((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                   (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*(-(lam[2, p5]*(lam[1, p4] - (lam[1, et6]*
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))) + lam[1, p5]*
                      (lam[2, p4] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*(lam[1, p4] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))) + lam[1, p6]*
                      (lam[2, p4] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))))/((barlam[1, p5]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                      spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, 
                       p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))) - lam[1, p5]*(lam[2, p4] + 
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(-(lam[2, p5]*(lam[1, p4] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))) + lam[1, p5]*
                      (lam[2, p4] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*(lam[1, p4] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))) + lam[1, p6]*
                      (lam[2, p4] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))))/((barlam[1, p5]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                      spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, 
                       p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1])))))*(-((lam[2, p3] - (lam[2, et6]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                   m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                  spba[p7, {m1, p2}, m1])) + (lam[1, p3] - 
                (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                      spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*(
                (barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]))*
             (-(((-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                       lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) - barlam[2, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))))*(-(barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                   (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                    spba[p7, {m1, p2}, m1]))/(((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]))*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))))*(-(barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                  (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                   spba[p7, {m1, p2}, m1]))/(((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]))*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2) - 
           (10*CK*(barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])^
              5*(-((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p5])) - barlam[1, p3]*(lam[2, et5]*
                      (lam[1, p3] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p3] - 
                       (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]))) + (barlam[1, p4]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])))^2*((barlam[2, p6]*
                (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                   lam[1, et5]*(lam[2, p3] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])) - (barlam[1, p6]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                   lam[1, et5]*(lam[2, p3] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])))*(-((barlam[2, p6]*
                 (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5]))) + (barlam[1, p6]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                   lam[1, et5]*(lam[2, p3] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])))*((-(barlam[1, p5]*barlam[2, p3]) + 
                barlam[1, p3]*barlam[2, p5])*lam[2, p5]*(lam[1, p4] - 
                (lam[1, et5]*(-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p5]*(lam[2, p3] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
                  (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*((barlam[2, p4]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
              (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
               lam[1, p5]*(lam[2, p4] - (lam[2, et5]*(-(lam[2, p5]*
                     (lam[1, p3] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[1, p5]*(lam[2, p3] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
                  (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*((barlam[2, p4]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
             ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
               lam[2, p5]*(-(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p4])*lam[1, et5]*(-(lam[2, p5]*(lam[1, p3] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p5]*(lam[2, p3] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   ((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])) - (-(barlam[1, p5]*barlam[2, p3]) + 
                barlam[1, p3]*barlam[2, p5])*lam[1, p5]*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*(-(lam[2, p5]*(lam[1, p3] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p5]*(lam[2, p3] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   ((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*((barlam[2, p4]*(-(barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                 (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                  spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              (barlam[1, p4]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                     m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p6]*
                (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (((-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                   lam[1, et5]*(lam[2, p3] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
                (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))) + (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])) - 
              ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                   lam[1, et5]*(lam[2, p3] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
                (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1]))))/
            (((barlam[2, p3]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + barlam[1, p3]*(lam[2, et5]*
                     (lam[1, p3] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])) - (barlam[1, p3]*(barlam[2, p5]*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - (lam[1, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])))^2*
             (-((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5]) + barlam[1, p3]*(lam[2, et5]*
                      (lam[1, p3] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p3] - 
                       (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]))) + (barlam[1, p5]*
                 (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])))^2*
             (-((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p5])*lam[2, p5]*(lam[1, p4] - (lam[1, et5]*
                   (-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))/((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))) + lam[1, p5]*
                     (lam[2, p3] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))*(-((barlam[2, p3]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*((barlam[2, p4]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) - (lam[1, et6]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
               lam[1, p5]*(lam[2, p4] - (lam[2, et5]*(-(lam[2, p5]*
                     (lam[1, p3] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[1, p5]*(lam[2, p3] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
                  (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*((barlam[2, p4]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
             (-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*((lam[2, m1]*spb[m1, 
                        p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              lam[1, p5]*(lam[2, p3] - (lam[2, et6]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
             (lam[2, p6]*(-(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p4])*lam[1, et5]*(-(lam[2, p5]*(lam[1, p3] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p5]*(lam[2, p3] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   ((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])) - lam[1, p6]*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*(-(lam[2, p5]*(lam[1, p3] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p5]*(lam[2, p3] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   ((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*(-((lam[2, p4] - (lam[2, et5]*
                   (-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))/((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))) + lam[1, p5]*
                     (lam[2, p3] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))*(-((barlam[2, p3]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*((barlam[2, p4]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) - (lam[2, et6]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                (-(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p4])*lam[1, et5]*(-(lam[2, p5]*(lam[1, p3] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p5]*(lam[2, p3] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))/
                   ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                    ((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                     barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                   (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))) + (lam[1, p4] - (lam[1, et5]*
                  (-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p5]*(lam[2, p3] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
                  (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*((barlam[2, p4]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*(-(lam[2, p5]*(lam[1, p3] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p5]*(lam[2, p3] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))/
                  ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   ((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))) - (10*CK*(barlam[1, p6]*barlam[2, p3] - 
               barlam[1, p3]*barlam[2, p6])^5*
             (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p6])) - barlam[1, p3]*(lam[2, et5]*
                      (lam[1, p3] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p3] - 
                       (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) + (barlam[1, p4]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*((barlam[2, p5]*
                (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                   lam[1, et5]*(lam[2, p3] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])) - (barlam[1, p5]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                   lam[1, et5]*(lam[2, p3] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])))*(-((barlam[2, p5]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]))) + (barlam[1, p5]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                   lam[1, et5]*(lam[2, p3] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p3] - 
                 barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])))*((-(barlam[1, p6]*barlam[2, p3]) + 
                barlam[1, p3]*barlam[2, p6])*lam[2, p6]*(lam[1, p4] - 
                (lam[1, et5]*(-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
                  (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[2, p4]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
              (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
               lam[1, p6]*(lam[2, p4] - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, p3] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[1, p6]*(lam[2, p3] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
                  (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[2, p4]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
             ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
               lam[2, p6]*(-(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p4])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p3] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   ((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])) - (-(barlam[1, p6]*barlam[2, p3]) + 
                barlam[1, p3]*barlam[2, p6])*lam[1, p6]*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p3] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   ((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*((barlam[2, p4]*(-(barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                 (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                  spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              (barlam[1, p4]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                       spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                     m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p5]*
                (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (((-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                   lam[1, et5]*(lam[2, p3] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
                (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))) + (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])) - 
              ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                   lam[1, et5]*(lam[2, p3] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
                (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1]))))/
            (((barlam[2, p3]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p3]*(lam[2, et5]*
                     (lam[1, p3] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])) - (barlam[1, p3]*(barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - (lam[1, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*
             (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + barlam[1, p3]*(lam[2, et5]*
                      (lam[1, p3] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p3] - 
                       (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) + (barlam[1, p6]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + barlam[2, p3]*(lam[2, et5]*(lam[1, p3] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*
             (-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*lam[2, p6]*(lam[1, p4] - (lam[1, et5]*
                   (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))/((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))) + lam[1, p6]*
                     (lam[2, p3] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))*(-((barlam[2, p3]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*((barlam[2, p4]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) - (lam[1, et6]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
               lam[1, p6]*(lam[2, p4] - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, p3] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))))) + lam[1, p6]*(lam[2, p3] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
                  (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[2, p4]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
             (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*((lam[2, m1]*spb[m1, 
                        p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              lam[1, p6]*(lam[2, p3] - (lam[2, et6]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
             (lam[2, p5]*(-(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                     barlam[2, p4])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p3] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   ((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])) - lam[1, p5]*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p3] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   ((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*(-((lam[2, p4] - (lam[2, et5]*
                   (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))/((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))) + lam[1, p6]*
                     (lam[2, p3] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))*(-((barlam[2, p3]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*((barlam[2, p4]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) - (lam[2, et6]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                (-(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p4])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p3] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))/
                   ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                    ((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                     barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                   (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))) + (lam[1, p4] - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
                  (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[2, p4]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                -(((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p3] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   ((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))) - (10*CK*(barlam[1, p5]*barlam[2, p3] - 
               barlam[1, p3]*barlam[2, p5])^2*(barlam[1, p6]*barlam[2, p3] - 
              barlam[1, p3]*barlam[2, p6])*(barlam[1, p6]*barlam[2, p5] - 
              barlam[1, p5]*barlam[2, p6])*((barlam[2, p3]*(barlam[1, p5]*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + barlam[1, p3]*(lam[2, et5]*(lam[1, p3] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                   lam[1, et5]*(lam[2, p3] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])) - (barlam[1, p3]*
                (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[2, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                   lam[1, et5]*(lam[2, p3] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))*(-((barlam[2, p3]*
                 (barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p3]*(lam[2, et5]*
                     (lam[1, p3] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) + (barlam[1, p3]*
                (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[2, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                   lam[1, et5]*(lam[2, p3] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))*((barlam[2, p6]*
                (barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[1, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                   lam[1, et5]*(lam[2, p3] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])) - (barlam[1, p6]*
                (barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[2, p3]*(lam[2, et5]*
                    (lam[1, p3] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                   lam[1, et5]*(lam[2, p3] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))*(-(lam[2, p5]*(lam[1, p3] + 
                 (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                        barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                        lam[2, p6])) - (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*(-(lam[2, p5]*
                        (lam[1, p3] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))) + lam[1, p5]*
                       (lam[2, p3] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))) - (barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     (-(lam[2, p6]*(lam[1, p3] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))/((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))) + lam[1, p6]*
                       (lam[2, p3] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              lam[1, p5]*(lam[2, p3] + (lam[2, et5]*(-((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                   (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p5]*(lam[2, p3] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) - (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(-(lam[2, p6]*(lam[1, p3] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
             (-(lam[2, p6]*(lam[1, p3] + (lam[1, et5]*(-((barlam[1, p6]*
                        barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                    (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*(-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p5]*(lam[2, p3] - (lam[2, et6]*
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) - (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p3] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                          ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))))) + lam[1, p6]*
                       (lam[2, p3] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                         ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))))))/
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              lam[1, p6]*(lam[2, p3] + (lam[2, et5]*(-((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                   (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p5]*(lam[2, p3] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) - (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(-(lam[2, p6]*(lam[1, p3] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
             (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                     {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               (barlam[1, p4]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, 
                     m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^5)/
            ((-(lam[1, p6]*lam[2, p5]) + lam[1, p5]*lam[2, p6])*
             (-(((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*lam[1, p5] + (-(barlam[1, p6]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p6])*lam[1, p6])*lam[2, p6]) + 
              lam[1, p6]*((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p5])*lam[2, p5] + (-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*lam[2, p6]))*
             (-((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) - barlam[1, p3]*
                    (lam[2, et5]*(lam[1, p3] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, 
                          p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, 
                          m1]))/((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1])))) - lam[1, et5]*
                      (lam[2, p3] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))))))/((barlam[1, p5]*barlam[2, 
                      p3] - barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*
                     lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
               (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) - barlam[2, p3]*
                   (lam[2, et5]*(lam[1, p3] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
                    lam[1, et5]*(lam[2, p3] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))^2*(lam[2, p5]*(lam[1, p3] + 
                (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6])) - (barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*(-(lam[2, p5]*(lam[1, p3] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p5]*(lam[2, p3] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) - (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(-(lam[2, p6]*(lam[1, p3] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
              lam[1, p5]*(lam[2, p3] + (lam[2, et5]*(-((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])) - 
                   (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(-(lam[2, p5]*(lam[1, p3] - (lam[1, et6]*
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p5]*(lam[2, p3] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) - (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*(-(lam[2, p6]*(lam[1, p3] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]))))) + lam[1, p6]*(lam[2, p3] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1])))))))/((barlam[1, p5]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5]) + (barlam[1, p6]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
             (-((lam[2, p4] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                   m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                  spba[p7, {m1, p2}, m1])) + (lam[1, p4] - 
                (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                      spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                      spba[p7, {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, 
                       p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                 spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                  spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                  barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
             (-(((-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                       lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) - barlam[2, p3]*(lam[2, et5]*
                      (lam[1, p3] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                        ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p3] - 
                       (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
                  (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 (((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p5]) + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6]))*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - barlam[1, p3]*(lam[2, et5]*
                     (lam[1, p3] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                       ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])))) - lam[1, et5]*(lam[2, p3] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                          spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))/((barlam[1, p4]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p4])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))))*
                 (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                (((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^2) - 
           (10*CK*(barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])^
              5*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
             (-(lam[2, p5]*((lam[1, et5]*(-((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                       lam[1, p5]*lam[2, p6])) - (-(lam[2, p5]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                        ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[2, p5]*(-(barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                          (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                          spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p5]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - (-(lam[2, p6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                        ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[2, p6]*(-(barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                          (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                          spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*
                        (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                        (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + (lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                     barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                   (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))) + lam[1, p5]*((lam[2, et5]*
                  (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                        p6])) - (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                         (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                          spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[1, p5]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - (-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                       ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                         (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                          spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*(-(lam[2, p6]*((lam[1, et5]*
                   (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                         p6])) - (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                       ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                          (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                          spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p5]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - (-(lam[2, p6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                        ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[2, p6]*(-(barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                          (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                          spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                          spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, 
                          p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*
                        (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                        (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                         (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                        (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                         spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))) + (lam[1, p7] + (lam[1, m1]*
                     s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                     barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                   (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]))) + lam[1, p6]*((lam[2, et5]*
                  (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                        p6])) - (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                         (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                          spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[1, p5]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - (-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                       ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                         (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                          spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*((barlam[2, p6]*(barlam[1, p5]*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                        barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]))*(-(barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1])))) - (barlam[1, p6]*(barlam[2, p5]*
                  (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                        barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]))*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1])))))*(-((barlam[2, p5]*
                  (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p5]*
                 (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^2*
             (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                     m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                        spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p6]*
                (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                    m1])/spba[p7, {m1, p2}, m1])))*
             (((barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))) + (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
              ((barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
             (-(((barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                 (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))) + (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                (((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                   (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
              ((barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                    lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                      m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                       spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/(
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                    spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                   barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
            ((-(lam[1, p6]*lam[2, p5]) + lam[1, p5]*lam[2, p6])*
             (-(lam[2, p6]*(lam[1, p5]*((barlam[2, p5]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + lam[1, p6]*((barlam[2, p6]*
                     (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))) + lam[1, p6]*(lam[2, p5]*
                 ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*
                       spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                       {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]))) + lam[2, p6]*((barlam[2, p6]*
                    (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                  (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*
                       spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                       {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1])))))*(-((lam[2, p4] - (lam[2, et6]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                      barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                (lam[1, p3] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))) + 
              (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*(-((barlam[1, p3]*barlam[2, p2]*spa[p2, m1])/
                     spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[2, p3] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7])*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]))*((barlam[1, p4]*barlam[2, p2]*spa[p2, m1])/
                    spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
             (lam[2, p5]*((lam[1, et5]*(-((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                      lam[1, p5]*lam[2, p6])) - (-(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                       ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                         (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                          spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[1, p5]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - (-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                       ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                         (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                          spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])) - lam[1, p5]*((lam[2, et5]*
                  (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                        p6])) - (-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                         (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                          spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[1, p5]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) - (-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                       ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                         (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                          spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p2])/spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*
                          spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1])))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                    barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                  (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                    {m1, p2}, m1])))*((barlam[2, p3]*(-(barlam[1, p5]*
                    (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))) - (barlam[1, p3]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - ((lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))))^2*
             (-((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                   ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                       ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                          {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))) + (barlam[1, p4]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - ((lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                  (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))))^2) - 
           (10*CK*(barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
             (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
             (lam[2, p5]*(lam[1, p4] - (lam[1, et5]*(-(lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                (barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                     {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p5]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*
                     spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                     {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              lam[1, p5]*(lam[2, p4] - (lam[2, et5]*(-(lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                (barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                     {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p5]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*
                     spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                     {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p5]*(lam[1, p3] - (lam[1, et5]*(-(lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                (barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                     {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p5]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*
                     spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                     {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              lam[1, p5]*(lam[2, p3] - (lam[2, et5]*(-(lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                (barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                     {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p5]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*
                     spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                     {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p5])) - ((lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                       ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p3]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1])))))^2*(-((barlam[2, p4]*
                 (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]))))) + (barlam[1, p4]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                        barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]))*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])))))*((barlam[2, p6]*
                (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                        barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]))*(-(barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])))) - (barlam[1, p6]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                        barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]))*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])))))*(-((barlam[2, p6]*
                 (-(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]))))) + (barlam[1, p6]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                        barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]))*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])))))*(-((barlam[2, p5]*
                  (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p5]*
                 (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^5)/
            ((lam[2, p6]*(lam[1, p4] - (lam[1, et5]*(-(lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
              lam[1, p6]*(lam[2, p4] - (lam[2, et5]*(-(lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
             ((lam[2, p4] - (lam[2, et5]*(-(lam[2, p5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[1, p3] - (lam[1, et5]*(-(lam[2, p5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
              (lam[1, p4] - (lam[1, et5]*(-(lam[2, p5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[2, p3] - (lam[2, et5]*(-(lam[2, p5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
             (-(lam[2, p5]*(lam[1, p3] - (lam[1, et5]*(-(lam[2, p5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) + lam[1, p5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   ((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p5])) - (lam[1, et6]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*
                      spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                         lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                      {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])))) + lam[1, p5]*(lam[2, p3] - 
                (lam[2, et5]*(-(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                        barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                     (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                (barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                     {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p5]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*
                     spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                     {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p5]) + ((lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                       ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(-((barlam[2, p5]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p5]*(barlam[2, p5]*
                   (lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5]) + 
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1])))))^2*(-(lam[2, p5]*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                   m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                  spba[p7, {m1, p2}, m1])) + lam[1, p5]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*(
                (barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]))*
             (-(((barlam[2, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                      lam[2, p5]) + ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                       ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))*(-(barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                   (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                    spba[p7, {m1, p2}, m1]))/((lam[1, p5]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[2, p5]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               ((barlam[1, p5]*(lam[1, p5]*lam[2, et5] - lam[1, et5]*
                     lam[2, p5]) + ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                 (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p5]*lam[2, et5] - lam[1, et5]*lam[2, p5])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1])))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2) - 
           (10*CK*(barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
             (barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
             (lam[2, p6]*(lam[1, p4] - (lam[1, et5]*(-(lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                (barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                     {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*
                     spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                     {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              lam[1, p6]*(lam[2, p4] - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                (barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                     {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*
                     spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                     {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (lam[2, p6]*(lam[1, p3] - (lam[1, et5]*(-(lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                (barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                     {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*
                     spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                     {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) - 
              lam[1, p6]*(lam[2, p3] - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                (barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                     {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*
                     spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                     {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p6])) - ((lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                       ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p3]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1])))))^2*(-((barlam[2, p4]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]))))) + (barlam[1, p4]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                        barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]))*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])))))*((barlam[2, p5]*
                (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                        barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]))*(-(barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                    (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])))) - (barlam[1, p5]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                        barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]))*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])))))*(-((barlam[2, p5]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]))))) + (barlam[1, p5]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                        barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1]))*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])))))*(-((barlam[2, p6]*
                  (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                         spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + (barlam[1, p6]*
                 (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                     {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                     m1])/spba[p7, {m1, p2}, m1])))^5)/
            ((lam[2, p5]*(lam[1, p4] - (lam[1, et5]*(-(lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
              lam[1, p5]*(lam[2, p4] - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
             ((lam[2, p4] - (lam[2, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[1, p3] - (lam[1, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))) - 
              (lam[1, p4] - (lam[1, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                lam[2, p3] - (lam[2, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                     ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                         m1])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                      spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                        {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])))))*
             (-(lam[2, p6]*(lam[1, p3] - (lam[1, et5]*(-(lam[2, p6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                        spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1])) + lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1])*((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                        spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                   ((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                    barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - (lam[1, et6]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                        {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                  ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                      p4])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*
                ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*
                      spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                         lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                      {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                    (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                     spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                       spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                    (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                      {m1, p2}, m1])))) + lam[1, p6]*(lam[2, p3] - 
                (lam[2, et5]*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                        barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                    ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, 
                        m1])/spba[p7, {m1, p2}, m1]))*((barlam[2, p4]*
                     (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])) - (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((barlam[1, p4]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p4])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))/
                 ((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))))*(
                (barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + (barlam[1, p2]*
                     spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                     {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])) - 
                (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))) + (barlam[2, p2]*
                     spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p2]*spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, 
                     {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))))*
             (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                       ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]) - lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]))*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))))) + (barlam[1, p6]*(barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                         {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1])*((barlam[1, p7]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1] - (barlam[1, p2]*
                         barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1]))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1])))))^2*(-(lam[2, p6]*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                   m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                  spba[p7, {m1, p2}, m1])) + lam[1, p6]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*(
                (barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1] - (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]))*
             (-(((barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6]) + ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                          barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                        (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                       ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                          {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                          spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                     (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[2, p2]*spa[p2, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                        m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, p2]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))*(-(barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                   (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                    spba[p7, {m1, p2}, m1]))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                       {m1, p2}, m1]))*(-((barlam[2, p6]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                       (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                        spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1])))*(-((barlam[1, p7]*barlam[2, p2]*
                      spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                     barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1]))) + 
               ((barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1])*((barlam[1, p7]*
                         barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1] - 
                       (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])*
                      ((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                         {m1, p2}, m1] - (barlam[1, p2]*barlam[2, p7]*
                         spa[p2, m1])/spba[p7, {m1, p2}, m1]))*
                    (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                          {m1, p2}, m1]))) + (barlam[1, p2]*spa[p2, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*
                          spb[p2, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/
                       spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*
                       spa[p2, m1])/spba[p7, {m1, p2}, m1])))*
                 (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                         m1]))) + (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                        spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
                 (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                      (barlam[1, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                       spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                         spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                      (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                        {m1, p2}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/
                          spba[p7, {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))) + 
                     (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                      spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                        spba[p7, {m1, p2}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p2]*spa[p2, m1])/spba[p7, {m1, p2}, m1]) + 
                     (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/spba[p7, 
                       {m1, p2}, m1])))*(-((barlam[1, p7]*barlam[2, p2]*
                     spa[p2, m1])/spba[p7, {m1, p2}, m1]) + (barlam[1, p2]*
                    barlam[2, p7]*spa[p2, m1])/spba[p7, {m1, p2}, m1])))^2))*
          (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
               m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
             spba[p7, {m1, p2}, m1])^5)/
         (((lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])*
            (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
           (lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])*
            (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
          (-((barlam[2, p7]*(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, 
                      {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                  (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
              ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*(
                -((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                   {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1]))) + (barlam[1, p7]*(barlam[2, p7]*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                     {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1])) - 
               (barlam[2, p2]*spa[p2, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, 
                      p7] + lam[1, p2]*spb[p2, p7]) - lam[1, et6]*
                   (lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7])))/
                spba[p7, {m1, p2}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]) - lam[1, et6]*
                (lam[2, p7] + (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
              (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1])))^2*
          (-((barlam[2, p2]*spa[p2, m1]*(barlam[1, p7]*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                     spba[p7, {m1, p2}, m1])) - (barlam[1, p2]*spa[p2, m1]*
                  (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                       p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p2]*spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
              ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                    {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*(
                -((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, 
                   {m1, p2}, m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                 spba[p7, {m1, p2}, m1])*spba[p7, {m1, p2}, m1])) + 
            (barlam[1, p2]*spa[p2, m1]*(barlam[2, p7]*(lam[2, et6]*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, {m1, p2}, 
                     m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p2])/
                    spba[p7, {m1, p2}, m1])) - (barlam[2, p2]*spa[p2, m1]*
                 (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, 
                      p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*
                     spb[p2, p7])))/spba[p7, {m1, p2}, m1]))/
             ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p2])/spba[p7, 
                   {m1, p2}, m1]) - lam[1, et6]*(lam[2, p7] + 
                 (lam[2, m1]*s[m1, p2])/spba[p7, {m1, p2}, m1]))*
              (-((barlam[1, p7]*barlam[2, p2]*spa[p2, m1])/spba[p7, {m1, p2}, 
                  m1]) + (barlam[1, p2]*barlam[2, p7]*spa[p2, m1])/
                spba[p7, {m1, p2}, m1])*spba[p7, {m1, p2}, m1]))^2)))/
      ((-(lam[1, p2]*lam[2, m1]) + lam[1, m1]*lam[2, p2])^2*s[m1, p2]*
       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p2]*spb[p2, p7])) + 
         lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p2]*spb[p2, p7]))^2) + 
     ((-(lam[2, m1]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
         lam[1, m1]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))^6*
       (((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])^5*
          ((-10*CK*(barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                p7])*(-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))^
              5*(-((barlam[2, p4]*(-((((barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[1, p2]*lam[2, et5] - 
                      (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) - barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]))) + (barlam[1, p4]*
                (-((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))/(
                (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])))*((barlam[2, p7]*
                (-((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[1, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))/(
                (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])) - (barlam[1, p7]*
                (-((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))/(
                (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])))*(-((barlam[2, p7]*
                 (-((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                       lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) - barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]))) + (barlam[1, p7]*
                (-((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))/(
                (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])))*
             (((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p5]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p5])*lam[1, p6]*lam[2, p2] - 
                   (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2]*lam[2, p6]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))) - lam[1, p6]*((barlam[2, p6]*
                  (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p5]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p5])*lam[1, p6]*lam[2, p2] - 
                   (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2]*lam[2, p6]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))))*(((barlam[2, p6]*(-(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                   barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])) - (barlam[1, p6]*
                  (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2])))*lam[2, p6]*(
                lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p5])*lam[1, p6]*lam[2, p2] - 
                   (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2]*lam[2, p6])*((barlam[2, p3]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              lam[1, p6]*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p5])*lam[1, p6]*lam[2, p2] - 
                   (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2]*lam[2, p6])*((barlam[2, p3]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                 m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                {m1, p3}, m1])*((barlam[2, p3]*(-((((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                       lam[2, et5] - (barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[1, et5]*lam[2, p2])*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p6]))*spa[p3, m1])/
                ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*spba[p7, {m1, p3}, m1]) - 
               (barlam[1, p3]*(-((((barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[1, p2]*lam[2, et5] - 
                      (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))*
                 spa[p3, m1])/((-((barlam[2, p6]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])))*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6])*spba[p7, {m1, p3}, m1]))^2)/
            (((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                1, p6]*lam[2, p2] - (barlam[1, p5]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p5])*lam[1, p2]*lam[2, p6])*
             (-((barlam[2, p6]*((((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2]*lam[2, et5] - 
                      (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                 ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) + (barlam[1, p6]*
                 ((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) + barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*((((barlam[1, p5]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                      lam[2, et5] - (barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, et5]*lam[2, p2])*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])) - ((-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                 ((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) + barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*
             (-(((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*lam[2, p6]*(lam[1, m1]*
                  spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) - (barlam[1, p4]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p6]*lam[2, p2] - (barlam[1, p5]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                     lam[2, p6]))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p6]*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p5]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p5])*lam[1, p6]*lam[2, p2] - 
                   (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2]*lam[2, p6]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))))*(-((lam[2, m1]*spb[m1, p7] + 
                 lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                   (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) - (barlam[1, p4]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p6]*lam[2, p2] - (barlam[1, p5]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                     lam[2, p6]))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p4] - 
                 (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p6]*lam[2, p2] - 
                    (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2]*lam[2, p6])*((barlam[2, p3]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p5]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p5])*lam[1, p6]*lam[2, p2] - 
                   (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2]*lam[2, p6]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1])))*(lam[2, p4] - (lam[2, et6]*
                  (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1])) - (lam[2, et5]*((barlam[1, p5]*barlam[2, 
                       p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p6]*
                    lam[2, p2] - (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p5])*lam[1, p2]*lam[2, p6])*
                  ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-((lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                    lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p6]*lam[2, p2] - 
                    (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2]*lam[2, p6])*((barlam[2, p3]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p5])*lam[1, p6]*lam[2, p2] - 
                   (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2]*lam[2, p6])*((barlam[2, p3]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])^
              5*((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                         lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
              (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                         lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
              (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                         lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]))*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[1, p4]*
                    (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                    barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]))) + ((-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                   lam[2, p2])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6])))^2*((-(barlam[1, p6]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p6])*lam[2, p6]*(lam[1, m1]*
                 spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))) - 
              (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))))*
             ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[2, p6]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[1, p2] - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))) - 
              (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[1, p6]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[2, p2] - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))))*
             (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                 m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                {m1, p3}, m1])*((barlam[2, p3]*(-(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                 barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]))*spa[p3, m1])/((-(barlam[1, p5]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                  lam[2, et6] - lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, 
                 m1]) - (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                  barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                  lam[2, p2])*spba[p7, {m1, p3}, m1]))*
             ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[1, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*spa[p3, m1]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                         lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                spba[p7, {m1, p3}, m1])))/
            (((barlam[2, p4]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
               (barlam[1, p4]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[2, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
               (barlam[1, p6]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[2, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                      lam[2, p2]) + lam[1, p2]*lam[2, p5])*((barlam[1, p5]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                    (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*lam[2, 
                      p2]) + lam[1, p2]*lam[2, p5])*((barlam[1, p5]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p6])*lam[2, p6]*((barlam[1, p5]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p5])*lam[1, p2] - 
                 (lam[1, et5]*(-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]) - 
                    (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]))))) + 
              (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[1, p6]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[2, p2] - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]))))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[1, p2] - (lam[1, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]))))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[2, p2] - (lam[2, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) - (barlam[1, p4]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                   (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]) - 
                    (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                   m1])) + (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                  m1]))) - (10*CK*(barlam[1, p6]*barlam[2, p4] - 
              barlam[1, p4]*barlam[2, p6])*(barlam[1, p7]*barlam[2, p4] - 
               barlam[1, p4]*barlam[2, p7])^2*(-(barlam[1, p7]*barlam[2, 
                 p6]) + barlam[1, p6]*barlam[2, p7])*
             ((barlam[2, p4]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                         lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))) - (barlam[1, p4]*(barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))))*(-((barlam[2, p4]*(barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                    barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) + (barlam[1, p4]*(barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                       (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))))*((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))) - (barlam[1, p6]*(barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))))*(-(lam[2, p6]*(lam[1, p4] + (lam[1, et5]*
                   (-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                       lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*((lam[2, p4] - 
                        (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, p4] - (lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - (lam[1, et6]*
                   (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p4] + 
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(-(lam[2, p6]*(lam[1, p4] - 
                         (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                      lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*((lam[2, p4] - (lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - (lam[2, et6]*
                  (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))))*((lam[2, p4] + (lam[2, et5]*
                  (-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                      lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*((lam[2, p4] - (lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - (lam[2, et6]*
                  (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]) - (lam[1, p4] + (lam[1, et5]*
                  (-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                      lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*((lam[2, p4] - (lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - (lam[1, et6]*
                  (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 spba[p7, {m1, p3}, m1]))^5)/
            ((((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[1, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))) - ((-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]))*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))))^2*
             (-(lam[2, p6]*((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                    barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, 
                      p4]) + barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
              lam[1, p6]*((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                  {m1, p3}, m1]) - lam[1, p6]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((lam[2, p4] + (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*
                         (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                         (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*((lam[2, p4] - 
                        (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, p4] - (lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - (lam[2, et6]*
                   (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + (lam[1, p4] + 
                (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(-(lam[2, p6]*(lam[1, p4] - 
                         (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                      lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*((lam[2, p4] - (lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - (lam[1, et6]*
                  (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*spa[p3, m1]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/(((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))*spba[p7, {m1, p3}, m1]) - 
               (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[2, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/(((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))*spba[p7, {m1, p3}, m1]))^
              2) - (10*CK*(-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
               barlam[2, p7])*(-((barlam[2, p6]*(-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                  lam[2, et6] - lam[1, et6]*lam[2, p2])))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))^
              2*(-(lam[2, p6]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p5])*lam[1, p2] + (lam[1, et5]*
                   (-((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                         ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                         (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p6]*
                        lam[2, p2] - (barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[1, p2]*lam[2, 
                         p6])) - (-((barlam[2, p7]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                      (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])))*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-((barlam[2, p6]*
                        (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                       (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                   (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                       (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
              lam[1, p6]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[2, p2] + (lam[2, et5]*
                  (-((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                        (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])))*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p6]*
                       lam[2, p2] - (barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[1, p2]*lam[2, 
                        p6])) - (-((barlam[2, p7]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                     (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, 
                        p6]) + barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))))*((barlam[2, p6]*
                ((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))) - (barlam[1, p6]*
                ((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*(((-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                ((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                   (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) - ((-(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                ((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                   (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*((((barlam[1, p5]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                      lam[2, et5] - (barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, et5]*lam[2, p2])*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))) + 
              ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]))*((((barlam[1, p5]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p5])*lam[1, p2]*lam[2, et5] - 
                    (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                   (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*(((barlam[1, p5]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (lam[2, et5]*(-((-((barlam[2, p6]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                      (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])))*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p6]*
                       lam[2, p2] - (barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[1, p2]*lam[2, 
                        p6])) - (-((barlam[2, p7]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                     (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, 
                        p6]) + barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[1, p2] + (lam[1, et5]*(-((-((barlam[2, p6]*
                         (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                        (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])))*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p6]*
                       lam[2, p2] - (barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[1, p2]*lam[2, 
                        p6])) - (-((barlam[2, p7]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                     (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, 
                        p6]) + barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                spba[p7, {m1, p3}, m1])^5)/
            ((-((barlam[2, p4]*(-((((barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[1, p2]*lam[2, 
                         et5] - (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p5])*lam[1, et5]*lam[2, p2])*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
                   barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6]) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))/
                 ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))) + (barlam[1, p4]*
                 (-((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                       lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((-((barlam[2, p6]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + (-((barlam[2, p7]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))^2*(-(lam[2, p6]*(lam[1, p6]*
                  ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) + ((barlam[2, p7]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p7]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]))) + lam[1, p6]*(
                ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*lam[2, p6] + 
                ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p4] - 
                (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p4] - 
                (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                  {m1, p3}, m1]) - lam[1, p6]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-(((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[2, p2] + (lam[2, et5]*(-((-((barlam[2, p6]*
                          (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                         ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                         (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p6]*
                        lam[2, p2] - (barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[1, p2]*lam[2, 
                         p6])) - (-((barlam[2, p7]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                      (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])))*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-((barlam[2, p6]*
                        (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                       (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                   (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                       (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                   m1])) + ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[1, p2] + (lam[1, et5]*
                  (-((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                        (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])))*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p6]*
                       lam[2, p2] - (barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[1, p2]*lam[2, 
                        p6])) - (-((barlam[2, p7]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                     (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, 
                        p6]) + barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p3]*spa[p3, m1]*(-((((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                        lam[2, et5] - (barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[1, et5]*lam[2, p2])*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
                   barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6]) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))/
                 (((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                       (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                   (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                       (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                  spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                 (-((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                       lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/(((-((barlam[2, p6]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + (-((barlam[2, p7]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))*spba[p7, {m1, p3}, m1]))^
              2) - (10*CK*(barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                2, p6])*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))^
              5*(-((barlam[2, p4]*(-((((barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[1, p2]*lam[2, et5] - 
                      (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1])))) + (barlam[1, p4]*
                (-((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))))*((barlam[2, p6]*
                (-((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))) - (barlam[1, p6]*
                (-((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))))*(-((barlam[2, p6]*
                 (-((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                       lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1])))) + (barlam[1, p6]*
                (-((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))))*(-(((barlam[2, p7]*(-(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) - (barlam[1, p7]*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                  spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                    lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) - (barlam[1, p4]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (barlam[1, p5]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p5]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p5])*lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-(((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[2, p4] - (lam[2, et6]*
                   (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - (lam[2, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (barlam[1, p5]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p3, m1])/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p5])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                 m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                {m1, p3}, m1])*((barlam[2, p3]*spa[p3, m1]*
                 (-((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                       lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
               (barlam[1, p3]*spa[p3, m1]*(-((((barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[1, p2]*lam[2, et5] - 
                      (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]))^2)/
            ((-((barlam[2, p7]*((((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2]*lam[2, et5] - 
                      (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) + (barlam[1, p7]*
                 ((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))^2*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*((((barlam[1, p5]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                      lam[2, et5] - (barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, et5]*lam[2, p2])*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                    barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                 (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))) - ((-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                 ((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))^2*(lam[2, p6]*(lam[1, p4] - 
                (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p5])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*lam[2, 
                      p2]) + lam[1, p2]*lam[2, p5])*((barlam[1, p5]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p5])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) - (barlam[1, p4]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (barlam[1, p5]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p4] - 
                 (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p5]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p5])*lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(
                lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p5])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                  {m1, p3}, m1]) - (barlam[1, p5]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p5])*lam[1, p2]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p5]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p5])*lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p5]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p5])*lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                  m1]))) - (10*CK*(barlam[1, p7]*barlam[2, p4] - barlam[1, 
                 p4]*barlam[2, p7])^5*((barlam[2, p6]*(-(barlam[1, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]))) - (barlam[1, p6]*(-(barlam[2, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]))))*(-((barlam[2, p6]*(-(barlam[1, p4]*
                    (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]))))*(-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                  (-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(barlam[1, p7]*barlam[2, 
                     p4] - barlam[1, p4]*barlam[2, p7])*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2])*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
               ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[2, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))^2*(-((-(barlam[1, p7]*barlam[2, 
                    p4]) + barlam[1, p4]*barlam[2, p7])*(lam[2, m1]*
                  spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) - (barlam[1, p4]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                   ((lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p4] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p3, m1])/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p3}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*(
                lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((lam[2, p4] - (lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p3, m1])/((-(barlam[1, p5]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                     spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p7])*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p5])*lam[2, p2] - (lam[2, et5]*
                   ((lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p4] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]) - 
                    (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                   m1])) + (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                 barlam[2, p7])*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[1, p2] - (lam[1, et5]*
                  ((lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p4] - 
                     (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                         lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                 m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                {m1, p3}, m1])*((barlam[2, p3]*(-(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                 barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]))*spa[p3, m1])/((-(barlam[1, p5]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                  lam[2, et6] - lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, 
                 m1]) - (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                  barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                  lam[2, p2])*spba[p7, {m1, p3}, m1]))*
             ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]))*spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                spa[p3, m1]*(-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]))*spba[p7, {m1, p3}, m1])))/
            (((barlam[2, p4]*(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))) - (barlam[1, p4]*(barlam[2, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))))^2*(-((barlam[2, p7]*(barlam[1, p4]*
                    (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) + (barlam[1, p7]*(barlam[2, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))))^2*(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                  (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((lam[2, p4] - (lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p3, m1])/((-(barlam[1, p5]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                     spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1])))) - 
              lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((lam[2, p4] - (lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p3, m1])/((-(barlam[1, p5]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                     spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1])))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((lam[2, p4] - (lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p3, m1])/((-(barlam[1, p5]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                     spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1]))))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[1, p2] - (lam[1, et5]*((lam[2, p4] - (lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((lam[2, p4] - (lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p3, m1])/((-(barlam[1, p5]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                     spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1]))))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[2, p2] - (lam[2, et5]*((lam[2, p4] - (lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))))*
             ((lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[2, p2] - (lam[2, et5]*((lam[2, p4] - (lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]))))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[1, p2] - (lam[1, et5]*((lam[2, p4] - (lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                  m1]))) - (10*CK*((barlam[2, p4]*(-(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                 barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p2])) - (barlam[1, p4]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                  lam[2, et6] - lam[1, et6]*lam[2, p2])))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
             (lam[2, p6]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[1, p2] - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 (((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*((barlam[1, p6]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
              lam[1, p6]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[2, p2] - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 (((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*((barlam[1, p6]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
             (lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*lam[2, 
                      p2]) + lam[1, p2]*lam[2, p5])*((barlam[1, p5]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 (((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*((barlam[1, p6]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
              lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*lam[2, 
                      p2]) + lam[1, p2]*lam[2, p5])*((barlam[1, p5]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 (((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*((barlam[1, p6]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                    spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2*
             ((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
              (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]))) + 
              ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]))*(-(barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                spba[p7, {m1, p3}, m1])^5)/
            ((-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[2, p2] - (lam[2, et5]*(-(lam[2, p6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 (((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*(lam[1, p4] - 
                (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 (((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) - ((barlam[1, p5]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] - 
                (lam[1, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 (((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*(lam[2, p4] - 
                (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 (((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))))*
             (-(((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[2, p2] - (lam[2, et5]*(-(lam[2, p6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[1, p4]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  (((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - (barlam[1, p4]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[1, p2] - (lam[1, et5]*(-(lam[2, p6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 (((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*
                      lam[2, p2]) + lam[1, p2]*lam[2, p5])*((barlam[1, p5]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                    (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[1, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                       lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                   ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]) - 
                    (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                  (((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - (barlam[1, p4]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])))*((barlam[1, p6]*barlam[2, p3]*
                   spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                   barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) + 
              lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*lam[2, 
                      p2]) + lam[1, p2]*lam[2, p5])*((barlam[1, p5]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p3, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 (((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*((barlam[1, p6]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) - (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                    spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               (barlam[1, p6]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2*
             (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) - (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                    spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])*
                  spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) - (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])*spba[p7, {m1, p3}, m1]))^
              2) - (10*CK*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
              (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5])))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
             (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
             (-(((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[2, p2] - (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                        p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  (((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - (barlam[1, p4]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])) + ((barlam[1, p5]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p5])*lam[1, p2] - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 (((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
             (-((lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                    lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                        p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p3, m1])/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                  (((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - (barlam[1, p4]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])) + (lam[1, p4] - 
                (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p3, m1])/((-(barlam[1, p5]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                     spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 (((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                    spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               (barlam[1, p4]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2*
             ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
              (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]))) + 
              ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]))*(-(barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                spba[p7, {m1, p3}, m1])^5)/
            ((lam[2, p6]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[1, p2] - (lam[1, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 (((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) - lam[1, p6]*((barlam[1, p5]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] - 
                (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 (((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*(((barlam[1, p5]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p5])*lam[2, p2] - 
                (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 (((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))*(lam[1, p4] - (lam[1, et6]*
                  (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1])) - (lam[1, et5]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                       lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                         lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                     lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                       (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p3, m1])/((-(barlam[1, p5]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                     spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 (((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) - ((barlam[1, p5]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p5])*lam[1, p2] - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 (((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))*(lam[2, p4] - (lam[2, et6]*
                  (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1])) - (lam[2, et5]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                       lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                         lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                     lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                       (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p3, m1])/((-(barlam[1, p5]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                     spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 (((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*((lam[2, m1]*spb[m1, p7] + 
                lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                  (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((lam[2, p4] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p3, m1])/((-(barlam[1, p5]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                     spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 (((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p4] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]))*spa[p3, m1])/((-(barlam[1, p5]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                     spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p3, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 (((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p7]*(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                    spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               (barlam[1, p7]*(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2*
             (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])*spba[p7, {m1, p3}, 
                   m1])) + (barlam[1, p3]*spa[p3, m1]*(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])*spba[p7, {m1, p3}, m1]))^
              2) - (10*CK*(-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
               barlam[2, p7])*(-((barlam[2, p4]*(-(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                   barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]))) + (barlam[1, p4]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et6] - lam[1, et6]*lam[2, p2])))^5*
             (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                 (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                          ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                      lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))/((lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))))*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))))*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))))*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                     spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
              (barlam[1, p6]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                     spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                 m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                {m1, p3}, m1])*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                 spa[p3, m1])/spba[p7, {m1, p3}, m1])^2*
             ((barlam[2, p3]*spa[p3, m1]*(barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/(
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                 m1]) - (barlam[1, p3]*spa[p3, m1]*(barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])) - (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/(
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                 m1]))*(-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) - (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                (((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, 
                  {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/(((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                 m1])))/(((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                 barlam[2, p5])*lam[2, p2]*(lam[1, p4] - (lam[1, et6]*
                  (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))) - (barlam[1, p5]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p5])*lam[1, p2]*(lam[2, p4] - 
                (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-(lam[2, p6]*(lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                  ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) + lam[1, p6]*(
                lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                 ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1])))*(lam[2, p6]*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                  {m1, p3}, m1]))*(-((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                  spb[p3, p7] + (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*
                      (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                          ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                      lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))/((lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))))*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p6])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p4]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
               ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[2, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))^2)))/
         ((-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
          (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                   lam[2, et6] - lam[1, et6]*lam[2, p5])))/
              ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
               (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
            (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                  lam[2, et6] - lam[1, et6]*lam[2, p5])))/
             ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
              (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))^2*
          ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                  lam[2, et6] - lam[1, et6]*lam[2, p5])))/
             ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
              (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
            (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                  lam[2, et6] - lam[1, et6]*lam[2, p5])))/
             ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
              (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))^2) + 
        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])^5*
          ((-10*CK*(barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                p7])*(-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
               (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))^5*
             (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - (((-(barlam[1, p6]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))))) + (barlam[1, p4]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - (((-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                    (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p6])*(-(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p2]*
                   (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))))*
             ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - (((-(barlam[1, p6]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6]*
                     lam[2, et5] - (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                   (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]))) + (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))) - (barlam[1, p7]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - (((-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                    (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p6])*(-(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p2]*
                   (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - (((-(barlam[1, p6]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))))) + (barlam[1, p7]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - (((-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                    (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p6])*(-(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p2]*
                   (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))))*
             (lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p6])*((barlam[2, p4]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                   (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              lam[1, p2]*((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p6])*((barlam[2, p4]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                   (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                   lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p6])*((barlam[2, p3]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p3}, m1])))/((lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              lam[1, p2]*((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                   lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p6])*((barlam[2, p3]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p3}, m1])))/((lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                 m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                {m1, p3}, m1])*((barlam[2, p3]*(-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  (((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                         p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                         barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p6])*(-(barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))*spa[p3, m1])/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))*spba[p7, {m1, p3}, m1]) - 
               (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - (((-(barlam[1, p6]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 spa[p3, m1])/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                   lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (barlam[1, p2]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 spba[p7, {m1, p3}, m1]))^2)/
            ((-((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                   p6])*lam[1, p6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                   p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p2]*lam[2, p6])*
             (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + (((-(barlam[1, p6]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6]*
                       lam[2, et5] - (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p2]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))))) + (barlam[1, p2]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + (((-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))))^2*
             (((-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                         p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                         barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p6])*(-(barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))))/((barlam[1, p6]*barlam[2, 
                    p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])*(lam[1, p6]*
                   lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))) - ((-(barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]))*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (((-(barlam[1, p6]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))))^2*
             (-(lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) - (barlam[1, p2]*
                   (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                      p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p6])*lam[1, p2]*lam[2, p6])*((barlam[2, p4]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                    (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p2]*((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p6])*((barlam[2, p4]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                   (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                      p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p6])*lam[1, p2]*lam[2, p6])*((barlam[2, p4]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                    (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p4] - 
                 (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - (lam[1, et5]*(-((-(barlam[1, p6]*
                         barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                      lam[1, p6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p2]*
                     lam[2, p6])*((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1]) - (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1])))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p6])*((barlam[2, p4]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                   (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p4] - 
                (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                       barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p6])*((barlam[2, p3]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p3}, m1])))/((lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                    lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p6])*lam[1, p2]*lam[2, p6])*((barlam[2, p3]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                      (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p3}, m1])))/((lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                    lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p6])*((barlam[2, p3]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p3}, m1])))/((lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p4])^5*((barlam[2, p7]*(-(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                 barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                       (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                         lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p4]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                  lam[2, et5] - lam[1, et5]*lam[2, p2])) - (barlam[1, p7]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                         lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p4]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                  lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                    p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[2, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                         lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             (-(((-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p4]*
                    (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                    barlam[2, p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]))) + ((-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p4]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p4])*(barlam[1, p6]*
                   barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))^2*
             ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*lam[
                2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  (-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])))) - 
              (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*lam[
                1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  (-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])))))*
             ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*lam[
                2, p2]*((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p6])*lam[1, p6] - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])))) - 
              (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*lam[
                1, p2]*((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p6])*lam[2, p6] - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])))))*
             (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                 m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                {m1, p3}, m1])*((barlam[2, p3]*(-(barlam[1, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]) - 
              (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*spa[p3, m1]*
                (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                         lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p4]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                  lam[2, et5] - lam[1, et5]*lam[2, p2])*spba[p7, {m1, p3}, 
                 m1]) - (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                 barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                       (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                         lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p4]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                  lam[2, et5] - lam[1, et5]*lam[2, p2])*spba[p7, {m1, p3}, 
                 m1])))/((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[1, p4]*
                    (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p2]))) + (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[2, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))^
              2*((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
               (barlam[1, p4]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[2, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))^
              2*(-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                     lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                    (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p2]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                   lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                lam[2, p2]*((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                    barlam[2, p6])*lam[1, p6] - (lam[1, et5]*
                   (-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]) - 
                    (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]))))) + 
              (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*lam[
                1, p2]*((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p6])*lam[2, p6] - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  (-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]))))*(
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[1, p6] - (lam[1, et5]*(-(lam[2, p2]*
                     (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  (-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]))))*(
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[2, p6] - (lam[2, et5]*(-(lam[2, p2]*
                     (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                      p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                      (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                   (-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]) - 
                    (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                   m1])) + (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  (-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                  m1]))) - (10*CK*(-(barlam[1, p4]*barlam[2, p2]) + 
               barlam[1, p2]*barlam[2, p4])^2*(barlam[1, p7]*barlam[2, p2] - 
              barlam[1, p2]*barlam[2, p7])*(barlam[1, p7]*barlam[2, p4] - 
              barlam[1, p4]*barlam[2, p7])*((barlam[2, p4]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                       (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                         lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p4]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*(-((barlam[2, p4]*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
              (barlam[1, p4]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*((barlam[2, p7]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                       (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                         lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*(-(lam[2, p2]*(lam[1, p4] + 
                 (lam[1, et5]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(-(lam[2, p2]*
                         (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                         (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                    (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p4] - 
                        (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                 (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] + 
                (lam[2, et5]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[2, p2]*
                        (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                        (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p4] - 
                       (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - (lam[2, et6]*
                  (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))))*((lam[2, p4] + (lam[2, et5]*
                  (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(-(lam[2, p2]*(lam[1, p4] - 
                         (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                      lam[1, p2]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))) - (barlam[1, p7]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p7])*(lam[2, p2]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*((lam[2, p4] - (lam[2, et6]*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))) - (lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                   lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p4] + (lam[1, et5]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[2, p2]*
                        (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                        (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p4] - 
                       (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - (lam[1, et6]*
                  (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*
                 (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 spba[p7, {m1, p3}, m1]))^5)/
            ((((-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6])*((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))) - ((-(barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]))*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[2, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6])*((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))))^2*
             ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
               lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
               lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p2]*(lam[1, p4] + (lam[1, et5]*
                  (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(-(lam[2, p2]*(lam[1, p4] - 
                         (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                      lam[1, p2]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))) - (barlam[1, p7]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p7])*(lam[2, p2]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*((lam[2, p4] - (lam[2, et6]*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))) - (lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                   lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              lam[1, p2]*(lam[2, p4] + (lam[2, et5]*
                  (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(-(lam[2, p2]*(lam[1, p4] - 
                         (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                      lam[1, p2]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))) - (barlam[1, p7]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p7])*(lam[2, p2]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*((lam[2, p4] - (lam[2, et6]*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))) - (lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                   lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                   {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 lam[2, p2] + (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                   spba[p7, {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*
                  s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 lam[1, p2] + (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                   spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                  s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/(((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))*spba[p7, {m1, p3}, m1]) - 
               (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[2, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/(((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))*spba[p7, {m1, p3}, m1]))^
              2) - (10*CK*(barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[
                2, p7])*(-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
               (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))^2*
             (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
              (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
             (-(lam[2, p2]*((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                    barlam[2, p6])*lam[1, p6] + (lam[1, et5]*
                   (-((-((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[1, p2]*lam[2, p6])*
                      (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))) + (barlam[1, p2]*
                         (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) - (barlam[1, p7]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p7])*(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - (-((barlam[2, p7]*
                         (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                     ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p2]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
              lam[1, p2]*((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p6])*lam[2, p6] + (lam[2, et5]*
                  (-((-((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[1, p2]*lam[2, p6])*
                     (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p2]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))) - 
                   (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                    ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p2]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))))*((barlam[2, p7]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p6])*(-(barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                  (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))) - (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p6])*(-(barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                  (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))))*(((-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]))*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p6])*(-(barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p2]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))) - ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]))*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p6])*(-(barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p2]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))))*(-(((-(barlam[2, p5]*(lam[1, p5]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + (((-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6])*((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (-((barlam[2, p7]*(-(barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))) + ((-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + (((-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                    (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p6])*(-(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p2]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))))*(((-(barlam[1, p6]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                (lam[2, et5]*(-((-((-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, 
                         p2]) + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[1, p2]*lam[2, p6])*
                     (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p2]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))) - 
                   (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                    ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p2]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]) - ((-(barlam[1, p6]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                (lam[1, et5]*(-((-((-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, 
                         p2]) + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[1, p2]*lam[2, p6])*
                     (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p2]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))) - 
                   (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                    ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p2]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                 barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])^5)/
            ((lam[2, p2]*((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p6])*lam[1, p6] + (lam[1, et5]*
                  (-((-((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[1, p2]*lam[2, p6])*
                     (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p2]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))) - 
                   (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                    ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p2]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))) - lam[1, p2]*((-(barlam[1, p6]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                (lam[2, et5]*(-((-((-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, 
                         p2]) + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[1, p2]*lam[2, p6])*
                     (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p2]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))) - 
                   (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p7]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                    ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p2]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))))*(-((barlam[2, p4]*(-(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                   (((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[
                          2, p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, et5]*lam[2, p6])*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p2]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))) + (barlam[1, p4]*(-(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  (((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                         p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                         barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p6])*(-(barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p2]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))^2*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                 spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                    barlam[2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                   lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(
                lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                   lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p4] - 
                (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))))*(-(lam[2, p2]*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                  {m1, p3}, m1]))*((lam[2, p2]*((barlam[2, p2]*
                    (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                  (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]))) + ((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])) - (barlam[1, p7]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                    m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                  {m1, p3}, m1]) - (lam[1, p2]*((barlam[2, p2]*
                    (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                  (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]))) + ((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])) - (barlam[1, p7]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                    m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                  {m1, p3}, m1]))*(-((barlam[2, p3]*spa[p3, m1]*
                  (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                       lam[2, p2])) - (((-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/(((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                     (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (-((barlam[2, p7]*(-(barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                     (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))*spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                 spa[p3, m1]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - (((-(barlam[1, p6]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/(((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (-((barlam[2, p7]*(-(barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))*spba[p7, {m1, p3}, m1]))^2) - 
           (10*CK*(-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p4])*(-((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
               (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))^5*
             ((barlam[2, p2]*(-((((-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                   (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p2]*(-((((-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                   (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[2, p2]*(-((((-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
              (barlam[1, p2]*(-((((-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                   (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[2, p4]*(-((((-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
              (barlam[1, p4]*(-((((-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                   (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (-(((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])) - (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))*(lam[2, m1]*spb[m1, p7] + 
                 lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*lam[2, et6]*(lam[1, p6]*
                     lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                      (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                   ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (-(barlam[1, p6]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              ((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (-(barlam[1, p6]*barlam[2, 
                        p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-(((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])) - (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))*(lam[2, p4] - (lam[2, et6]*
                   (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - (lam[2, et5]*((-(barlam[1, p6]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                     lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (-(barlam[1, p6]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1]) - (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + ((barlam[2, p7]*
                  (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                     p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                   lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                      barlam[2, p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p3}, m1])))/((lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                 m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                {m1, p3}, m1])*((barlam[2, p3]*spa[p3, m1]*
                 (-((((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*spa[p3, m1]*
                 (-((((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 spba[p7, {m1, p3}, m1]))^2)/
            ((-((barlam[2, p7]*((((-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-((barlam[2, p7]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
               (barlam[1, p7]*((((-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
             (((-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*((((-(barlam[1, p6]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6])*(-((barlam[2, p7]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
               ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*((((-(barlam[1, p6]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6])*(-((barlam[2, p7]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
             (lam[2, p2]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                   lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                      barlam[2, p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p3}, m1])))/((lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              lam[1, p2]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                   lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                      barlam[2, p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p3}, m1])))/((lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                      p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                      (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                   ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (-(barlam[1, p6]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p4] - 
                 (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - (lam[1, et5]*((-(barlam[1, p6]*
                        barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                     lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (-(barlam[1, p6]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1]) - (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])))) + (lam[1, m1]*spb[m1, p7] + 
                lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[1, et6]*(lam[1, p6]*
                    lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (-(barlam[1, p6]*barlam[2, 
                        p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p4] - 
                (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1])) - (lam[2, et5]*((-(barlam[1, p6]*
                       barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                    lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - (-(barlam[1, p6]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p6])*lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
               lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                  {m1, p3}, m1]) - (-(barlam[1, p6]*barlam[2, p5]) + 
                barlam[1, p5]*barlam[2, p6])*lam[1, p6]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (-(barlam[1, p6]*barlam[2, 
                        p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              ((barlam[2, p7]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p7]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (-(barlam[1, p6]*barlam[2, 
                        p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])^
              5*((barlam[2, p2]*(-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))) - barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p2]*(-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                       (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
              (barlam[1, p2]*(-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (-(((-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))*(-(barlam[1, p4]*(lam[2, et5]*
                       (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                        (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(barlam[1, p7]*barlam[2, 
                     p4] - barlam[1, p4]*barlam[2, p7])*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6])*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
               ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[2, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p6])*(barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))^2*(-((-(barlam[1, p7]*barlam[2, 
                    p4]) + barlam[1, p4]*barlam[2, p7])*(lam[2, m1]*
                  spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                      p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                      (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                   ((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1]) - (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p4]) + barlam[1, p4]*barlam[2, p7])*(lam[1, m1]*
                 spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  ((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p4] - 
                     (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1]) - (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))*(-((-(barlam[1, p7]*barlam[2, 
                    p4]) + barlam[1, p4]*barlam[2, p7])*
                ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*lam[2, p6] - (lam[2, et5]*((lam[2, p4] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   ((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]) - 
                    (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                   m1])) + (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                 barlam[2, p7])*((-(barlam[1, p6]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p6])*lam[1, p6] - 
                (lam[1, et5]*((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p4] - 
                     (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                {m1, p3}, m1])*((barlam[2, p3]*(-(barlam[1, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]) - 
              (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*spa[p3, m1]*
                (-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))) - barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*spa[p3, m1]*
                (-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                spba[p7, {m1, p3}, m1])))/
            (((barlam[2, p4]*(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
               (barlam[1, p4]*(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
             (-((barlam[2, p7]*(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                       (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
               (barlam[1, p7]*(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
             (lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  ((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p4] - 
                     (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1]) - (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1])))) - lam[1, p2]*(lam[2, m1]*
                 spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  ((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p4] - 
                     (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1]) - (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1])))))*((lam[2, m1]*spb[m1, p7] + 
                lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[2, et6]*(lam[1, p6]*
                    lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  ((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p4] - 
                     (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1]) - (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1]))))*((-(barlam[1, p6]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p6])*lam[1, p6] - 
                (lam[1, et5]*((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p4] - 
                     (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  ((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p4] - 
                     (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1]) - (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1]))))*((-(barlam[1, p6]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p6])*lam[2, p6] - 
                (lam[2, et5]*((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p4] - 
                     (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])))))*
             ((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                    lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                    lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*(
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[2, p6] - (lam[2, et5]*((lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]))))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*(
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[1, p6] - (lam[1, et5]*((lam[2, p4] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, 
                          p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                  m1]))) - (10*CK*((barlam[2, p4]*(-(barlam[1, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6])))*(-((barlam[2, p7]*
                 (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6])))*(lam[2, p2]*(
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[1, p6] - (lam[1, et5]*(-(lam[2, p2]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])) - (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))))*(-((barlam[1, p3]*
                   barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]) - lam[1, p2]*((-(barlam[1, p6]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p6])*lam[2, p6] - 
                (lam[2, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])) - (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))))*(-((barlam[1, p3]*
                   barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]))*(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*
                  (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1])) - (lam[1, et5]*(-(lam[2, p2]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[2, p3]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1]) - (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1])))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))))*(
                -((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                   {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p4] - 
                (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1])) - (lam[2, et5]*(-(lam[2, p2]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[2, p3]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1]) - (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1])))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))))*(
                -((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                   {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]))*(-((barlam[2, p4]*
                  (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                       lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                    spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2*
             ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                   spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                   barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
              (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                   spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                   barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                   spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                   barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-(((-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]))) + ((-(barlam[1, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]))*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6])*((barlam[1, p3]*barlam[2, p2]*
                   spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                   barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                 m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                spba[p7, {m1, p3}, m1])^5)/
            ((-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                      p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                 lam[2, p6] - (lam[2, et5]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])) - (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))))*(lam[1, p4] - 
                (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1])) - (lam[1, et5]*(-(lam[2, p2]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[2, p3]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1]) - (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1])))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))) - 
              ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                 lam[1, p6] - (lam[1, et5]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])) - (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))))*(lam[2, p4] - 
                (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1])) - (lam[2, et5]*(-(lam[2, p2]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[2, p3]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1]) - (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1])))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))))*
             (-(((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*lam[2, p6] - (lam[2, et5]*(-(lam[2, p2]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[1, p4]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])) - (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                 lam[1, p6] - (lam[1, et5]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])) - (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, 
                      p5] - lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                       p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                    (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[1, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                       lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[2, p3]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1]) - (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1])))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*((barlam[2, p4]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                      (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))))*
                (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p4] - 
                (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1])) - (lam[2, et5]*(-(lam[2, p2]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[2, p3]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1]) - (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1])))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))))*(
                -((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                   {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]))*(-((barlam[2, p2]*(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) - 
                   (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p2]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) - (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1])))^2*(-((barlam[2, p3]*spa[p3, m1]*
                  (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2]) - (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])*spba[p7, {m1, p3}, m1])) + 
               (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) - (barlam[2, p3]*
                    spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                       lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])*
                 spba[p7, {m1, p3}, m1]))^2) - 
           (10*CK*(-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
              (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
             ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
              (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
             (-(((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*lam[2, p6] - (lam[2, et5]*((lam[2, m1]*spb[m1, 
                        p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                        lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  (((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])) - (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])) + ((-(barlam[1, p6]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 (((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])) - (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
             (-((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                    lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   ((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]) - 
                    (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])))/
                  (((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])) - (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])) + (lam[1, p4] - 
                (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1])) - (lam[1, et5]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                       lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                     lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*lam[1, et6]*(lam[1, p6]*
                         lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1]) - (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1])))/(((barlam[2, p4]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*(
                (barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]))*((barlam[2, p2]*
                (-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/(
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])) - (barlam[1, p2]*
                (-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/(
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                    spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               (barlam[1, p4]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2*
             (-(((-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]))) + 
              ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]))*(-(barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                spba[p7, {m1, p3}, m1])^5)/
            ((lam[2, p2]*((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p6])*lam[1, p6] - (lam[1, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 (((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])) - (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) - lam[1, p2]*(
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[2, p6] - (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*lam[2, et6]*(lam[1, p6]*
                         lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 (((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])) - (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*(((-(barlam[1, p6]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p6])*lam[2, p6] - 
                (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 (((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])) - (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))*(lam[1, p4] - (lam[1, et6]*
                  (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1])) - (lam[1, et5]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                       lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                     lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*lam[1, et6]*(lam[1, p6]*
                         lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1]) - (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1])))/(((barlam[2, p4]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
              ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                 lam[1, p6] - (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*lam[2, et6]*(lam[1, p6]*
                         lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 (((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])) - (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))*(lam[2, p4] - (lam[2, et6]*
                  (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1])) - (lam[2, et5]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                       lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                         lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                     lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*lam[1, et6]*(lam[1, p6]*
                         lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1]) - (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1])))/(((barlam[2, p4]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                    lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])))/
                 (((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])) - (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                    lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                        lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])))/
                 (((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])) - (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p7]*(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                    spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               (barlam[1, p7]*(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2*
             (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])*spba[p7, {m1, p3}, 
                   m1])) + (barlam[1, p3]*spa[p3, m1]*(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])*spba[p7, {m1, p3}, m1]))^
              2) - (10*CK*(barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[
                2, p7])*(-((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
               (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))^5*
             (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                 (lam[1, et5]*(-((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))))*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))/((lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                      p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                (lam[2, et5]*(-((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (-(lam[2, p2]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))))*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                (lam[2, et5]*(-((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (-(lam[2, p2]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))))*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                (lam[1, et5]*(-((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (-(lam[2, p2]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))))*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
              (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                 m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                spba[p7, {m1, p3}, m1])^2*(-((barlam[1, p7]*barlam[2, p3]*
                 spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])*
             ((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/(
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                 m1]) - (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])) - (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                         lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/(
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                 m1]))*(-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) - (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                (((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, 
                  {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                 m1])))/((lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                 spb[p3, p7] + (lam[1, et5]*(-((barlam[1, p7]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p7])*(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - (-(lam[2, p2]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))))*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                (lam[2, et5]*(-((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (-(lam[2, p2]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))))*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
               lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                   lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
               lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[1, p6]*lam[2, p5] - 
                   lam[1, p5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                   {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                 ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*
                  s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                 ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                  s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p4]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2*
             (((-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
               ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p5] - 
                          lam[1, p5]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))^2)))/
         ((lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
          ((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                  lam[2, et6] - lam[1, et6]*lam[2, p6])))/
             ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
              (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
            (barlam[1, p5]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                  lam[2, et6] - lam[1, et6]*lam[2, p6])))/
             ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
              (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))^2*
          (-((barlam[2, p6]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                   lam[2, et6] - lam[1, et6]*lam[2, p6])))/
              ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*(
                lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
            (barlam[1, p6]*(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                  lam[2, et6] - lam[1, et6]*lam[2, p6])))/
             ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
              (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))^2) + 
        ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])^5*
          ((-10*CK*(barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                p6])*(-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))) + 
              (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - ((-(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))/((barlam[1, p7]*barlam[2, 
                      p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                 (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
             ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - ((-(barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))/((barlam[1, p7]*barlam[2, 
                      p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                 (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) - 
              (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - ((-(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))/((barlam[1, p7]*barlam[2, 
                      p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                 (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
             (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - ((-(barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))) + 
              (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - ((-(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))/((barlam[1, p7]*barlam[2, 
                      p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                 (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
             (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
               (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^5*
             (lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              lam[1, p2]*((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[1, p4] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*spa[p3, m1]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              lam[1, p2]*((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[2, p4] - (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*spa[p3, m1]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                 m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                {m1, p3}, m1])*((barlam[2, p3]*spa[p3, m1]*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - ((-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                 spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*spa[p3, m1]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - ((-(barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                 spba[p7, {m1, p3}, m1]))^2)/
            ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + ((-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*lam[2, et5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))) + (barlam[1, p2]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + ((-(barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))^2*
             (-(((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2]) + ((-(barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                     ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
               ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + ((-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p5] - barlam[1, p5]*barlam[2, p7])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
             (-(lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - (barlam[1, p2]*
                   (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                 (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p2]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p2]*((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*spa[p3, m1]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*spa[p3, m1]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                 (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p2]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p4] - 
                 (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*lam[2, p2]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*spa[p3, m1]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                    (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1])))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[1, p4]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p4] - 
                (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*spa[p3, m1]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                   p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p5]) + barlam[1, p5]*barlam[2, p7])*lam[1, p2]*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                  m1]))) - (10*CK*(-(barlam[1, p4]*barlam[2, p2]) + 
              barlam[1, p2]*barlam[2, p4])*((barlam[2, p2]*
                (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - ((-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                  lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (barlam[1, p6]*
                   (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) - 
              (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - ((-(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))/((barlam[1, p7]*barlam[2, 
                      p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])))))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                 (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
             (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - ((-(barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))) + 
              (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - ((-(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))/((barlam[1, p7]*barlam[2, 
                      p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])))))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                 (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
             (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - ((-(barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))) + 
              (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - ((-(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))/((barlam[1, p7]*barlam[2, 
                      p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])))))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                 (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
             (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
               (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^5*
             (lam[2, p6]*((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              lam[1, p6]*((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p6]*((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[1, p4] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*spa[p3, m1]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              lam[1, p6]*((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[2, p4] - (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*spa[p3, m1]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                 m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                {m1, p3}, m1])*((barlam[2, p3]*spa[p3, m1]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - ((-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                 spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*spa[p3, m1]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - ((-(barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                 spba[p7, {m1, p3}, m1]))^2)/
            ((-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + ((-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*lam[2, et5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))) + (barlam[1, p6]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + ((-(barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))^2*
             (-(((barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6]) + ((-(barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                     ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
               ((barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + ((-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p5] - barlam[1, p5]*barlam[2, p7])*(lam[1, p6]*
                   lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
             (-(lam[2, p6]*((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - (barlam[1, p6]*
                   (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[1, p6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p6]*((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p2]*(lam[1, p4] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*spa[p3, m1]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              lam[1, p2]*(lam[2, p4] - (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*spa[p3, m1]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[1, p6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p4] - 
                 (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*spa[p3, m1]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                    (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1])))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p4] - 
                (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*spa[p3, m1]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                   p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p5]) + barlam[1, p5]*barlam[2, p7])*lam[1, p6]*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                  m1]))) - (10*CK*(-(barlam[1, p6]*barlam[2, p2]) + 
              barlam[1, p2]*barlam[2, p6])*((barlam[2, p2]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                   lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) - 
              (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                   lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
             (-(lam[2, p2]*((lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - 
                    (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                     (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                     (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                    (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + (-(barlam[1, p7]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]))) + lam[1, p2]*(
                (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1])))*(-(lam[2, p6]*((lam[1, et5]*
                   (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                        lam[2, p6])) - (-((barlam[2, p2]*(-(barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                      (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                     (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                    (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + (-(barlam[1, p7]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]))) + lam[1, p6]*(
                (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1])))*(-((barlam[2, p2]*(-(barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                  barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                  barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]))))*(-((barlam[2, p6]*(-(barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                   barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) + (barlam[1, p6]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                     spba[p7, {m1, p3}, m1]))))^2*
             (((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + ((-(barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))/((barlam[1, p7]*barlam[2, 
                      p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p7])*((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))) - ((barlam[1, p2]*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[1, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))) + (lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))*(lam[2, et6]*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                    spba[p7, {m1, p3}, m1]))))*
             (-(((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + ((-(barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                 (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p5] - barlam[1, p5]*barlam[2, p7])*
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
              ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + ((-(barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))/((barlam[1, p7]*barlam[2, 
                      p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p7])*((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))))*(-((barlam[1, p4]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                 barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])^5)/
            ((lam[1, p6]*lam[2, p2] - lam[1, p2]*lam[2, p6])*
             (-(lam[2, p2]*(lam[1, p2]*((barlam[2, p2]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - (barlam[1, p2]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*((barlam[2, p6]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))) + lam[1, p2]*(
                lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - (barlam[1, p2]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                lam[2, p6]*((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - (barlam[1, p6]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
             (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                   ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                     ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))) + (barlam[1, p4]*(-(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) - ((-(barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))) + (lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))^2*
             (lam[2, p6]*((lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1])) - lam[1, p6]*((lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - (-((barlam[2, p2]*(-(barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                     (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1])))*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                 spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                    barlam[2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(
                lam[1, p4] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p4] - 
                (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                   ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                     ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))/(((lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*
                        (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                    (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
                  spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - ((-(barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                (((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
                 spba[p7, {m1, p3}, m1]))^2) - 
           (10*CK*(-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p4])^5*((barlam[2, p6]*(-(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                 barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                       (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
              (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - barlam[2, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p4]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                  lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p4]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2]))) + (barlam[1, p6]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p4]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                  lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))*(-(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                   lam[2, p2])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))) - ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))*(-(barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                   lam[2, p2])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))))^2*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                 barlam[2, p4])*lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[1, et6]*(lam[2, p5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(lam[2, p2]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[2, p3]*spa[p3, m1]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                      m1])))) - (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                 barlam[2, p4])*lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[2, et6]*(lam[2, p5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(lam[2, p2]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[2, p3]*spa[p3, m1]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))))*
             ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*lam[
                2, p2]*((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                   spba[p7, {m1, p3}, m1]) - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, p4] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                      m1])))) - (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                 barlam[2, p4])*lam[1, p2]*((-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, p4] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))))*
             (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                 m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                {m1, p3}, m1])*((barlam[2, p3]*spa[p3, m1]*
                (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p4]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                  lam[2, et5] - lam[1, et5]*lam[2, p2])*spba[p7, {m1, p3}, 
                 m1]) - (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                 barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                       (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*spa[p3, m1]*
                (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
              (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                spba[p7, {m1, p3}, m1])))/
            ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p4]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]))) + (barlam[1, p2]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p4]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])))^2*
             ((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p4]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])) - (barlam[1, p4]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p4]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])))^2*
             (-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*(lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                    (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(lam[2, p2]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[2, p3]*spa[p3, m1]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                      m1])))) - lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[2, et6]*(lam[2, p5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(lam[2, p2]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[2, p3]*spa[p3, m1]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))))*
             (-((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                lam[2, p2]*((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                    barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                    spba[p7, {m1, p3}, m1]) - (lam[1, et5]*
                   (-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p2]*(lam[2, p4] - (lam[2, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*spa[p3, m1]*
                      (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]))))) + 
              (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*lam[
                1, p2]*((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                   spba[p7, {m1, p3}, m1]) - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, p4] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(lam[2, p2]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[2, p3]*spa[p3, m1]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]))))*(
                (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1]) - (lam[1, et5]*(-(lam[2, p2]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                      m1])))) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                 spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                    barlam[2, p5])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(lam[2, p2]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[2, p3]*spa[p3, m1]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]))))*(
                (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1]) - (lam[2, et5]*(-(lam[2, p2]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                      m1])))))) - (10*CK*(barlam[1, p6]*barlam[2, p4] - 
               barlam[1, p4]*barlam[2, p6])^5*((barlam[2, p2]*
                (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((barlam[1, p6]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])) - (barlam[1, p2]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((barlam[1, p6]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])))*(-((barlam[2, p2]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]))) + (barlam[1, p2]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((barlam[1, p6]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])))*
             (((-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))*(-(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
               ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))*(-(barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
             ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[2, p3]*spa[p3, m1]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                      m1])))) - (-(barlam[1, p6]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p6])*lam[1, p6]*(lam[2, m1]*
                 spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[2, p3]*spa[p3, m1]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))))*
             ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[2, p6]*((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                   spba[p7, {m1, p3}, m1]) - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                      m1])))) - (-(barlam[1, p6]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p6])*lam[1, p6]*(
                (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1]) - (lam[2, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))))*
             ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                {m1, p3}, m1])*((barlam[2, p3]*spa[p3, m1]*
                (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((barlam[1, p6]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*spba[p7, {m1, p3}, m1]) - 
              (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[2, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*spa[p3, m1]*
                (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
              (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                spba[p7, {m1, p3}, m1])))/
            (((barlam[2, p4]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])) - (barlam[1, p4]*(barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) + (barlam[1, p6]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*(-(lam[2, p6]*(lam[1, p4] - 
                 (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[2, p3]*spa[p3, m1]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                      m1])))) - lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[2, et6]*(lam[2, p5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[2, p3]*spa[p3, m1]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))))*
             (-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p6])*lam[2, p6]*((-(barlam[1, p7]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, et5]*
                   (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*spa[p3, m1]*
                      (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]))))) + 
              (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[1, p6]*((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                   spba[p7, {m1, p3}, m1]) - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, p4] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[2, p3]*spa[p3, m1]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]))))*(
                (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1]) - (lam[1, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                      m1])))) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                 spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                    barlam[2, p5])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[2, p3]*spa[p3, m1]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]))))*(
                (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1]) - (lam[2, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                      m1])))))) - (10*CK*(-(barlam[1, p4]*barlam[2, p2]) + 
              barlam[1, p2]*barlam[2, p4])*(-(barlam[1, p6]*barlam[2, p2]) + 
              barlam[1, p2]*barlam[2, p6])*(barlam[1, p6]*barlam[2, p4] - 
               barlam[1, p4]*barlam[2, p6])^2*((barlam[2, p2]*
                (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p4]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
              (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             ((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
              (barlam[1, p4]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (-((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
              (barlam[1, p4]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p4]*
                  (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (-(lam[2, p2]*(lam[1, p4] + (lam[1, et5]*
                   (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                        lam[2, p6])) - (-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[2, p2]*
                        (lam[1, p4] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                        (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) - (barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p4] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                        (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p4]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p6])) - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p2]*(lam[2, p4] + (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - (-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(-(lam[2, p2]*(lam[1, p4] - 
                        (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                       (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*(lam[1, p4] - 
                        (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                       (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p4]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-(lam[2, p6]*(lam[1, p4] + (lam[1, et5]*
                   (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                        lam[2, p6])) - (-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[2, p2]*
                        (lam[1, p4] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                        (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) - (barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p4] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                        (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p4]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p6])) - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p6]*(lam[2, p4] + (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - (-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(-(lam[2, p2]*(lam[1, p4] - 
                        (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                       (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*(lam[1, p4] - 
                        (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                       (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p4]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*spa[p3, m1]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                     spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]))^5)/
            ((lam[1, p6]*lam[2, p2] - lam[1, p2]*lam[2, p6])*
             (-(((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                  lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*lam[1, p6])*lam[2, p2]) + 
              lam[1, p2]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6]))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                       lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) - barlam[2, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6]))*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))) + ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) - barlam[1, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p5] - barlam[1, p5]*barlam[2, p7])*
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]))*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))))^2*(lam[2, p6]*(lam[1, p4] + (lam[1, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - (-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(-(lam[2, p2]*(lam[1, p4] - 
                        (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                       (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*(lam[1, p4] - 
                        (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                       (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p4]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              lam[1, p6]*(lam[2, p4] + (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - (-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(-(lam[2, p2]*(lam[1, p4] - 
                        (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                       (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*(lam[1, p4] - 
                        (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                       (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p4]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                   p7])*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*(
                lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                  barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                (((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]))*spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                 spa[p3, m1]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) - barlam[2, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                (((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]))*spba[p7, {m1, p3}, m1]))^2) - 
           (10*CK*((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
              (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p2]*((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                   spba[p7, {m1, p3}, m1]) - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))*(-((barlam[1, p3]*
                   barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]) - lam[1, p2]*((-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))*(-((barlam[1, p3]*
                   barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]))*(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*
                  (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))*(-((barlam[1, p3]*
                   barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]) - lam[1, p2]*(lam[2, p4] - (lam[2, et6]*
                  (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))*(-((barlam[1, p3]*
                   barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]))*(-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                   (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))) - lam[1, et5]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1])))))/spba[p7, {m1, p3}, 
                     m1]))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p4]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2*
             ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                   spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                   barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
              (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                   spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                   barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                   spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                   barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-(((-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))*(-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))*(-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((barlam[1, p7]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*((barlam[1, p3]*barlam[2, p2]*
                   spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                   barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                 m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                spba[p7, {m1, p3}, m1])^5)/
            ((-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p6]*((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                   spba[p7, {m1, p3}, m1]) - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))) - lam[1, p6]*(
                (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1]) - (lam[2, et5]*(-(lam[2, p2]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))))*
             (((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                 (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                    m1]) - (lam[2, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                        lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))*(lam[1, p4] - 
                (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))) - 
              ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                 (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                    m1]) - (lam[1, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                        lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))*(lam[2, p4] - 
                (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))))*
             (-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*(lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                    (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - (lam[1, et5]*(-(lam[2, p2]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                   ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*spa[p3, m1]*
                      (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
                (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p4] - 
                (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))*(-((barlam[1, p3]*
                   barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]))*(-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) - (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                    spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) - (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2*
             (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) - (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                    spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])*
                  spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) - (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])*
                 spba[p7, {m1, p3}, m1]))^2) - 
           (10*CK*(-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
              (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p6]*((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                   spba[p7, {m1, p3}, m1]) - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))*((barlam[1, p6]*
                  barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]) - lam[1, p6]*((-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))*((barlam[1, p6]*
                  barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]))*(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*
                  (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))*((barlam[1, p6]*
                  barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]) - lam[1, p6]*(lam[2, p4] - (lam[2, et6]*
                  (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))*((barlam[1, p6]*
                  barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]))*((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                 (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
              (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                    spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2*
             (-(((-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))*(-(barlam[1, p6]*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*(-((barlam[1, p6]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))*(-(barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((barlam[1, p7]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*(-((barlam[1, p6]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                spba[p7, {m1, p3}, m1])^5)/
            ((-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p2]*((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                   spba[p7, {m1, p3}, m1]) - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))) - lam[1, p2]*(
                (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1]) - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))))*
             (((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                 (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                    m1]) - (lam[2, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                        lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))*(lam[1, p4] - 
                (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))) - 
              ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                 (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                    m1]) - (lam[1, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                        lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))*(lam[2, p4] - 
                (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))))*
             (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                    (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - (lam[1, et5]*(-(lam[2, p6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                   ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*spa[p3, m1]*
                      (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
                ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p4] - 
                (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))*((barlam[1, p6]*
                  barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]))*(-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) - (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                    spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               (barlam[1, p6]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2*
             (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) - (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                    spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])*
                  spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) - (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])*
                 spba[p7, {m1, p3}, m1]))^2) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p6])*(-((barlam[2, p4]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
               (barlam[1, p4]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^5*
             (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                 (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - 
                    (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                          ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                      lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                     ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[1, et6]*(lam[2, p5]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                      lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                       et5] - lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1])) - ((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*lam[1, et6]*(lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1])))) + lam[1, p6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[2, et6]*(lam[2, p5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                 (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - 
                    (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                          ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                      lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                     ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[1, et6]*(lam[2, p5]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                      lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                       et5] - lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1])) - ((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*lam[1, et6]*(lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1])))) + lam[1, p6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[2, et6]*(lam[2, p5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) - (barlam[1, p3]*
                   spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])) - (barlam[1, p2]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) - (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])))*
             ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                {m1, p3}, m1])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                 spa[p3, m1])/spba[p7, {m1, p3}, m1])^2*
             ((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[1, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                 (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                 m1]) - (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) - (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                 m1]))*(-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) - (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, 
                  {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) - (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                 m1])))/((lam[1, p6]*lam[2, p2] - lam[1, p2]*lam[2, p6])*
             (lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1])))) + lam[1, p6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[1, et6]*(lam[2, p5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1])))) + lam[1, p6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[2, et6]*(lam[2, p5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-(lam[2, p2]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              lam[1, p2]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                   p7])*(lam[2, p4] - (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*(
                lam[1, p4] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) + (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                    spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p4]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2*
             (((-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))*(-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
               ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))*(-(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))^2)))/
         (((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                    spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, 
                 p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                   m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1]))) - (barlam[1, p5]*(barlam[2, p5]*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
               barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                   s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                   m1]))))^2*(-((barlam[2, p7]*(barlam[1, p5]*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                 barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                 (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                    m1])))) + (barlam[1, p7]*(barlam[2, p5]*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
               barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                   s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                   m1]))))^2*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
              spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
             (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])^5*
          ((-10*CK*(-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                    (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                   (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))^
              5*(-((barlam[2, p5]*(-((((barlam[1, p4]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p4])*lam[1, p2]*lam[2, 
                         et5] - (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p4])*lam[1, et5]*lam[2, p2])*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
                   barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])))/((-((barlam[2, p6]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]))) + (barlam[1, p5]*
                 (-((((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2]*lam[2, et5] - (barlam[1, p4]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                       lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*((barlam[2, p7]*
                (-((((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2]*lam[2, et5] - (barlam[1, p4]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[1, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))/(
                (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])) - (barlam[1, p7]*
                (-((((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2]*lam[2, et5] - (barlam[1, p4]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))/(
                (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])))*(-((barlam[2, p7]*
                 (-((((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2]*lam[2, et5] - (barlam[1, p4]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                       lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) - barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]))) + (barlam[1, p7]*
                (-((((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2]*lam[2, et5] - (barlam[1, p4]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))/(
                (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])))*
             (((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*
                      lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                    (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p4]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p4])*lam[1, p6]*lam[2, p2] - 
                   (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p2]*lam[2, p6]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*((barlam[1, p5]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))) - lam[1, p6]*((barlam[2, p6]*
                  (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*
                      lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p4]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p4])*lam[1, p6]*lam[2, p2] - 
                   (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p2]*lam[2, p6]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*((barlam[1, p5]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))))*(((barlam[2, p6]*(-(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                   barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])) - (barlam[1, p6]*
                  (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2])))*lam[2, p6]*(
                lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p6]*lam[2, p2] - (barlam[1, p4]*barlam[2, 
                       p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2]*
                    lam[2, p6])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]))*spa[p3, m1])/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) - lam[1, p6]*(
                (barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*
                      lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                    (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p6]*lam[2, p2] - (barlam[1, p4]*barlam[2, 
                       p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2]*
                    lam[2, p6])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]))*spa[p3, m1])/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                {m1, p3}, m1])*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                spa[p3, m1])/spba[p7, {m1, p3}, m1])*
             ((barlam[2, p3]*(-((((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[1, p2]*lam[2, et5] - 
                     (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[1, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))*
                spa[p3, m1])/((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p4])))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                  lam[2, p6])*spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                (-((((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2]*lam[2, et5] - (barlam[1, p4]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))*
                spa[p3, m1])/((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p4])))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                  lam[2, p6])*spba[p7, {m1, p3}, m1])))/
            (((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*lam[
                1, p6]*lam[2, p2] - (barlam[1, p4]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p4])*lam[1, p2]*lam[2, p6])*
             (-((barlam[2, p6]*((((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[1, p2]*lam[2, et5] - 
                      (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                 ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) + (barlam[1, p6]*
                 ((((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2]*lam[2, et5] - (barlam[1, p4]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) + barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4]))*((((barlam[1, p4]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2]*
                      lam[2, et5] - (barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[1, et5]*lam[2, p2])*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p4])))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])))/((-(barlam[1, p4]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                   lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])) - ((-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                   (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                 ((((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2]*lam[2, et5] - (barlam[1, p4]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) + barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*
             (-(((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*lam[2, p6]*(lam[1, p5] - 
                 (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p6]*lam[2, p2] - (barlam[1, p4]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2]*
                     lam[2, p6])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*spba[p7, {m1, p3}, m1])) + 
                    (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                      spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])))) + lam[1, p6]*(
                (barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*
                      lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                    (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p6]*lam[2, p2] - (barlam[1, p4]*barlam[2, 
                       p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2]*
                    lam[2, p6])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]))*spa[p3, m1])/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p4]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p4])*lam[1, p6]*lam[2, p2] - 
                   (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p2]*lam[2, p6]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*((barlam[1, p5]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1])))*(lam[1, p5] - (lam[1, et6]*
                  (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p6]*lam[2, p2] - (barlam[1, p4]*barlam[2, 
                       p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2]*
                    lam[2, p6])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]))*spa[p3, m1])/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p4]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p4])*lam[1, p6]*lam[2, p2] - 
                   (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p2]*lam[2, p6]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*((barlam[1, p5]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1])))*(lam[2, p5] - (lam[2, et6]*
                  (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p6]*lam[2, p2] - (barlam[1, p4]*barlam[2, 
                       p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2]*
                    lam[2, p6])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]))*spa[p3, m1])/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[2, et5]*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                        barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) + (barlam[1, p5]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p6]*lam[2, p2] - (barlam[1, p4]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2]*
                     lam[2, p6]))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p4]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p4])*lam[1, p6]*lam[2, p2] - 
                   (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p2]*lam[2, p6]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*((barlam[1, p5]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])^
              5*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*
                     lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                  (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
             ((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - barlam[1, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                         lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
              (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - barlam[2, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                         lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
              (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - barlam[2, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                         lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4]))*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[1, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                   lam[2, p2])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6]))) + ((-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                  (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                         lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p4])*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                  barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                  lam[2, p2])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                  lam[2, p6])))*((-(barlam[1, p6]*barlam[2, p5]) + 
                barlam[1, p5]*barlam[2, p6])*lam[2, p6]*(lam[1, m1]*
                 spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(-(lam[2, p6]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                      spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                     spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))) - 
              (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
               lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(-(lam[2, p6]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                      spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                     spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))))*
             ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
               lam[2, p6]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p4])*lam[1, p2] - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                     spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))) - 
              (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
               lam[1, p6]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p4])*lam[2, p2] - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                     spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))))*
             (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*
                     lam[2, et6] - lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p4]))*spa[p3, m1])/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*spa[p3, m1]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*spa[p3, m1]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 spba[p7, {m1, p3}, m1]))^2)/
            (((barlam[2, p5]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
               (barlam[1, p5]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[2, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
               (barlam[1, p6]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[2, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                      lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])))) + lam[1, p6]*(
                lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             (-((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                   p6])*lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                  spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                    lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[1, et5]*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                        barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) + (barlam[1, p5]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                   (-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p6]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                       spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, 
                        m1])) + (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]))*spa[p3, m1])/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p3}, m1]))))) + (-(barlam[1, p6]*
                  barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(-(lam[2, p6]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                      spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                     spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[2, et5]*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                        barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) + (barlam[1, p5]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                   (-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p6]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                       spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, 
                        m1])) + (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]))*spa[p3, m1])/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, 
                     p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] - 
                 (lam[1, et5]*(-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*
                         (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p6]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*spba[p7, {m1, p3}, m1])) + 
                    (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                      spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]))))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(-(lam[2, p6]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                      spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                     spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]))))*(
                (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 lam[2, p2] - (lam[2, et5]*(-(lam[2, p6]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                     spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))))*
             (-(((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                  lam[2, p2] - (lam[2, et5]*(-(lam[2, p6]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p6]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*spba[p7, {m1, p3}, m1])) + 
                    (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                      spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                   m1])) + ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p4])*lam[1, p2] - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                     spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                  m1]))) - (10*CK*(barlam[1, p6]*barlam[2, p5] - 
              barlam[1, p5]*barlam[2, p6])*(barlam[1, p7]*barlam[2, p5] - 
               barlam[1, p5]*barlam[2, p7])^2*(-(barlam[1, p7]*barlam[2, 
                 p6]) + barlam[1, p6]*barlam[2, p7])*
             ((barlam[2, p5]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[1, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                         lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))) - (barlam[1, p5]*(barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p5]*
                  (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))))*(-((barlam[2, p5]*(barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                    barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) + (barlam[1, p5]*(barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))))*((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p5]*
                  (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))) - (barlam[1, p6]*(barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p5]*
                  (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))))*(-(lam[2, p6]*(lam[1, p5] + (lam[1, et5]*
                   (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                       lam[1, p6]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*((lam[2, p5] - 
                        (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, p5] - (lam[1, et6]*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - (lam[1, et6]*
                   (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])))) + lam[1, p6]*(
                lam[2, p5] + (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p5] - 
                        (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*((lam[2, p5] - (lam[2, et6]*
                         (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - (lam[2, et6]*
                  (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             ((lam[2, p5] + (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p5] - 
                        (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*((lam[2, p5] - (lam[2, et6]*
                         (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - (lam[2, et6]*
                  (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p5] + (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p5] - 
                        (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*((lam[2, p5] - (lam[2, et6]*
                         (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - (lam[1, et6]*
                  (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*
                     lam[2, et6] - lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 spba[p7, {m1, p3}, m1]))^5)/
            ((((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4]))*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[1, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))) - ((-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                  barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4]))*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - barlam[2, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))))^2*
             (-(lam[2, p6]*((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                    barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, 
                      p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
              lam[1, p6]*((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*lam[
                2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*lam[
                1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                  {m1, p3}, m1]) - lam[1, p6]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((lam[2, p5] + (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(-(lam[2, p6]*
                         (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p5] - 
                         (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*((lam[2, p5] - 
                        (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, p5] - (lam[1, et6]*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - (lam[2, et6]*
                   (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (lam[1, p5] + (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p5] - 
                        (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*((lam[2, p5] - (lam[2, et6]*
                         (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - (lam[1, et6]*
                  (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[1, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/(((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))*spba[p7, {m1, p3}, m1]) - 
               (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[2, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/(((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))*spba[p7, {m1, p3}, m1]))^
              2) - (10*CK*(-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
               barlam[2, p7])*(-((barlam[2, p6]*(-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                  barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                  lam[2, et6] - lam[1, et6]*lam[2, p2])))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*
                      lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                   (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))^
              2*(-(lam[2, p6]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p4])*lam[1, p2] + (lam[1, et5]*
                   (-((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                         ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                         (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))*((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p6]*
                        lam[2, p2] - (barlam[1, p4]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p4])*lam[1, p2]*lam[2, 
                         p6])) - (-((barlam[2, p7]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                      (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])))*((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (barlam[1, p4]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p4])*lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-((barlam[2, p6]*
                        (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                       (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                   (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                       (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
              lam[1, p6]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p4])*lam[2, p2] + (lam[2, et5]*
                  (-((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                        (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])))*((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p6]*
                       lam[2, p2] - (barlam[1, p4]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p4])*lam[1, p2]*lam[2, 
                        p6])) - (-((barlam[2, p7]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                     (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])))*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, 
                        p6]) + barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))))*((barlam[2, p6]*
                ((((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2]*lam[2, et5] - (barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))) - (barlam[1, p6]*
                ((((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2]*lam[2, et5] - (barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*(((-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                  (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                ((((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2]*lam[2, et5] - (barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                   (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) - ((-(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                  (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                ((((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2]*lam[2, et5] - (barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                   (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4]))*((((barlam[1, p4]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2]*
                      lam[2, et5] - (barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[1, et5]*lam[2, p2])*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p4])))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))) + 
              ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p4]))*((((barlam[1, p4]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p4])*lam[1, p2]*lam[2, et5] - 
                    (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                   (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*(((barlam[1, p4]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                (lam[2, et5]*(-((-((barlam[2, p6]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                      (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])))*((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p6]*
                       lam[2, p2] - (barlam[1, p4]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p4])*lam[1, p2]*lam[2, 
                        p6])) - (-((barlam[2, p7]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                     (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])))*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, 
                        p6]) + barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 lam[1, p2] + (lam[1, et5]*(-((-((barlam[2, p6]*
                         (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                        (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])))*((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p6]*
                       lam[2, p2] - (barlam[1, p4]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p4])*lam[1, p2]*lam[2, 
                        p6])) - (-((barlam[2, p7]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                     (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])))*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, 
                        p6]) + barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                 m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/
                spba[p7, {m1, p3}, m1])^5)/
            (((barlam[2, p5]*(-((((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[1, p2]*lam[2, et5] - 
                      (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) - barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((-((barlam[2, p6]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + (-((barlam[2, p7]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))) - (barlam[1, p5]*
                 (-((((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2]*lam[2, et5] - (barlam[1, p4]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                       lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((-((barlam[2, p6]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + (-((barlam[2, p7]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))^2*(-(lam[2, p6]*(lam[1, p6]*
                  ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) + ((barlam[2, p7]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p7]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]))) + lam[1, p6]*(
                ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*lam[2, p6] + 
                ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p5] - 
                 (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p5] - 
                (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                  {m1, p3}, m1]) - lam[1, p6]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-(((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                  lam[2, p2] + (lam[2, et5]*(-((-((barlam[2, p6]*
                          (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                         ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                         (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))*((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p6]*
                        lam[2, p2] - (barlam[1, p4]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p4])*lam[1, p2]*lam[2, 
                         p6])) - (-((barlam[2, p7]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                      (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])))*((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (barlam[1, p4]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p4])*lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-((barlam[2, p6]*
                        (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                       (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                   (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                       (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                   m1])) + ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p4])*lam[1, p2] + (lam[1, et5]*
                  (-((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                        (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])))*((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p6]*
                       lam[2, p2] - (barlam[1, p4]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p4])*lam[1, p2]*lam[2, 
                        p6])) - (-((barlam[2, p7]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                     (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])))*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, 
                        p6]) + barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (-((barlam[2, p7]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((barlam[2, p3]*spa[p3, m1]*(-((((barlam[1, p4]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p4])*lam[1, p2]*lam[2, et5] - 
                      (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) - barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/(((-((barlam[2, p6]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + (-((barlam[2, p7]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))*spba[p7, {m1, p3}, m1]) - 
               (barlam[1, p3]*spa[p3, m1]*(-((((barlam[1, p4]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p4])*lam[1, p2]*lam[2, et5] - 
                      (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/(((-((barlam[2, p6]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + (-((barlam[2, p7]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))*spba[p7, {m1, p3}, m1]))^
              2) - (10*CK*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                    (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                   (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))^
              5*(-((barlam[2, p5]*(-((((barlam[1, p4]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p4])*lam[1, p2]*lam[2, 
                         et5] - (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p4])*lam[1, et5]*lam[2, p2])*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-((barlam[2, p7]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) + (barlam[1, p5]*
                 (-((((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2]*lam[2, et5] - (barlam[1, p4]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                       lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))^2*((barlam[2, p6]*
                (-((((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2]*lam[2, et5] - (barlam[1, p4]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))) - (barlam[1, p6]*
                (-((((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2]*lam[2, et5] - (barlam[1, p4]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))))*(-((barlam[2, p6]*
                 (-((((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2]*lam[2, et5] - (barlam[1, p4]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                       lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1])))) + (barlam[1, p6]*
                (-((((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2]*lam[2, et5] - (barlam[1, p4]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))))*(-(((barlam[2, p7]*(-(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) - (barlam[1, p7]*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p4])))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                  spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                    lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[2, et5]*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                        barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) + (barlam[1, p5]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (barlam[1, p4]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*
                      lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                    (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p4]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p4])*lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-(((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[2, p5] - (lam[2, et6]*
                   (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (barlam[1, p4]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                        barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]))*spa[p3, m1])/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*
                      lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                    (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (barlam[1, p4]*barlam[2, 
                       p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]))*spa[p3, m1])/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                {m1, p3}, m1])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                spa[p3, m1])/spba[p7, {m1, p3}, m1])*
             ((barlam[2, p3]*spa[p3, m1]*(-((((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[1, p2]*lam[2, et5] - 
                     (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
              (barlam[1, p3]*spa[p3, m1]*(-((((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[1, p2]*lam[2, et5] - 
                     (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
            ((-((barlam[2, p7]*((((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[1, p2]*lam[2, et5] - 
                      (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) + (barlam[1, p7]*
                 ((((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2]*lam[2, et5] - (barlam[1, p4]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))^2*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4]))*((((barlam[1, p4]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2]*
                      lam[2, et5] - (barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[1, et5]*lam[2, p2])*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p4])))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                    barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                 (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))) - ((-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                   (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                 ((((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2]*lam[2, et5] - (barlam[1, p4]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))^2*(lam[2, p6]*(lam[1, m1]*
                 spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p4]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p4])*lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p4]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p4])*lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p4]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p4])*lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(
                lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (barlam[1, p4]*barlam[2, 
                       p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]))*spa[p3, m1])/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p4]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p4])*lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(
                lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (barlam[1, p4]*barlam[2, 
                       p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]))*spa[p3, m1])/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*lam[
                2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                  {m1, p3}, m1]) - (barlam[1, p4]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p4])*lam[1, p2]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*
                      lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                    (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (barlam[1, p4]*barlam[2, 
                       p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]))*spa[p3, m1])/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*
                      lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                    (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (barlam[1, p4]*barlam[2, 
                       p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]))*spa[p3, m1])/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])^
              5*(-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*
                     lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                  (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
             ((barlam[2, p6]*(-(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]))) - (barlam[1, p6]*(-(barlam[2, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]))))*(-((barlam[2, p6]*(-(barlam[1, p5]*
                    (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]))))*(-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*
                     lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                 (-(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                         (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1])))) + ((-(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                  (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                (-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p4])*(barlam[1, p7]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p7])*(lam[1, p2]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p2])*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                 barlam[1, p5]*barlam[2, p7])*(lam[2, m1]*spb[m1, p7] + 
                 lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                   (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                   (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))*((lam[2, p5] - (lam[2, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                        barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]))*spa[p3, m1])/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p3}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*(
                lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]))*spa[p3, m1])/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                   p7])*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p4])*lam[2, p2] - (lam[2, et5]*
                   ((lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                       spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, 
                        m1])) + (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]))*spa[p3, m1])/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p3}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*(
                (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 lam[1, p2] - (lam[1, et5]*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                      spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                     spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*
                     lam[2, et6] - lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p4]))*spa[p3, m1])/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*spa[p3, m1]*
                 (-(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                         (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))*spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                 spa[p3, m1]*(-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))*spba[p7, {m1, p3}, m1]))^2)/
            (((barlam[2, p5]*(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))) - (barlam[1, p5]*(barlam[2, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))))^2*(-((barlam[2, p7]*(barlam[1, p5]*
                    (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) + (barlam[1, p7]*(barlam[2, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))))^2*(lam[2, p6]*((barlam[1, p4]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p4])*lam[1, p2] - 
                (lam[1, et5]*((lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                      spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                     spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))) - 
              lam[1, p6]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p4])*lam[2, p2] - (lam[2, et5]*
                  ((lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p5] - 
                     (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                         lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                      spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                     spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[2, et5]*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                        barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) + (barlam[1, p5]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                   ((lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                        barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]))*spa[p3, m1])/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p3}, m1]))))*
                ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                  lam[1, p2] - (lam[1, et5]*((lam[2, p5] - (lam[2, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                       spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, 
                        m1])) + (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]))*spa[p3, m1])/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p3}, m1]))))) + (lam[1, m1]*spb[m1, p7] + 
                lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                  (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]))*spa[p3, m1])/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1]))))*(
                (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 lam[2, p2] - (lam[2, et5]*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                      spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                     spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))))*
             ((lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*(
                lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]))*spa[p3, m1])/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1]))))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*(
                lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]))*spa[p3, m1])/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))*spa[p3, m1])/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p3}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
             (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*
                     lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p2]))) + (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                  (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
             (lam[2, p6]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p4])*lam[1, p2] - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/
                 ((-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*((barlam[1, p6]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
              lam[1, p6]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p4])*lam[2, p2] - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/
                 ((-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*((barlam[1, p6]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
             (lam[2, p6]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p4]*lam[2, 
                      p2]) + lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                      spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                     spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 ((-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*((barlam[1, p6]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
              lam[1, p6]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*lam[2, 
                      p2]) + lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                      spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                     spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 ((-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*((barlam[1, p6]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             ((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
              (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4]))*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                   (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4]))*(-(barlam[2, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])))^2*
             (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                spba[p7, {m1, p3}, m1])^5)/
            ((-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-(((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                  lam[2, p2] - (lam[2, et5]*(-(lam[2, p6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])))*(lam[1, p5] - (lam[1, et6]*
                   (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4]))/((lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                   (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                       spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, 
                        m1])) + (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]))*spa[p3, m1])/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p3}, m1])))/((-((barlam[2, p5]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])))) + ((barlam[1, p4]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p4])*lam[1, p2] - 
                (lam[1, et5]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/
                 ((-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*(lam[2, p5] - 
                (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                      spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                     spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 ((-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))))*(-((lam[2, p5] - 
                 (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4]))/((lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                   (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                       spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, 
                        m1])) + (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]))*spa[p3, m1])/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p3}, m1])))/((-((barlam[2, p5]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + (lam[1, p5] - 
                (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                      spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                     spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 ((-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-(lam[2, p6]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p4])*lam[1, p2] - (lam[1, et5]*
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4]))/((lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((-((barlam[2, p5]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])))*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                   spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*(
                (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 lam[2, p2] - (lam[2, et5]*(-(lam[2, p6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))*((barlam[1, p6]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) - (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/spba[p7, 
                     {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p6]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) - (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])))^2*
             (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) - (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/spba[p7, 
                     {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])*spba[p7, {m1, p3}, 
                   m1])) + (barlam[1, p3]*spa[p3, m1]*(barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])*spba[p7, {m1, p3}, m1]))^
              2) - (10*CK*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                2, p6])*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                   (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p2]))) + (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                  (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
             (-(((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                  lam[2, p2] - (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                        p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4]))/((lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])) + ((barlam[1, p4]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p4])*lam[1, p2] - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
             (-((lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                    lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                       spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, 
                        m1])) + (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]))*spa[p3, m1])/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p3}, m1])))/((-((barlam[2, p5]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])) + (lam[1, p5] - 
                (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                      spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                     spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 ((-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              (barlam[1, p5]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
              (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4]))*(-(barlam[1, p7]*(lam[2, et5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                   (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4]))*(-(barlam[2, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])))^2*
             (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                spba[p7, {m1, p3}, m1])^5)/((lam[2, p6]*(lam[1, p5] - 
                (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                      spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                     spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 ((-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) - lam[1, p6]*(lam[2, p5] - 
                (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                      spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                     spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 ((-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*(-(((barlam[1, p4]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p4])*lam[2, p2] - 
                 (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4]))/((lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                        p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4]))/((lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[1, p5] - 
                 (lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                       spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, 
                        m1])) + (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]))*spa[p3, m1])/((-(barlam[1, p4]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p3}, m1])))/((-((barlam[2, p5]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))) + 
              ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 lam[1, p2] - (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                       (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))*(lam[2, p5] - (lam[2, et6]*
                  (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                      spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))*
                     spa[p3, m1])/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p3}, m1])))/
                 ((-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*((lam[2, m1]*spb[m1, p7] + 
                lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                  (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 lam[2, p2] - (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                       (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
              ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 lam[1, p2] - (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                       (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p7]*(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               (barlam[1, p7]*(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2*
             (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])*spba[p7, {m1, p3}, 
                   m1])) + (barlam[1, p3]*spa[p3, m1]*(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])*spba[p7, {m1, p3}, m1]))^
              2) - (10*CK*(-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
               barlam[2, p7])*(-((barlam[2, p5]*(-(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                   barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])))/((-(barlam[1, p4]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]))) + (barlam[1, p5]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])))/((-(barlam[1, p4]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                   lam[2, et6] - lam[1, et6]*lam[2, p2])))^5*
             (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                 (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                          ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                      lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))/((lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                     spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
              (barlam[1, p6]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                     spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                 m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                {m1, p3}, m1])*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                 spa[p3, m1])/spba[p7, {m1, p3}, m1])^2*
             ((barlam[2, p3]*spa[p3, m1]*(barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/(
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                 m1]) - (barlam[1, p3]*spa[p3, m1]*(barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])) - (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/(
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                 m1]))*(-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) - (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                (((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, 
                  {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/(((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                 m1])))/(((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                 barlam[2, p4])*lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                  (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                 barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2]*(
                lam[2, p5] - (lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p4])*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             (-(lam[2, p6]*(lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                  ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) + lam[1, p6]*(
                lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                 ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1])))*(lam[2, p6]*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                  {m1, p3}, m1]))*(-((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                  spb[p3, p7] + (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*
                      (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                          ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                      lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))/((lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p6])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p5]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4]))*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
               ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4]))*(-(barlam[2, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p4]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))^2)))/
         ((-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])*
          (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                   lam[2, et6] - lam[1, et6]*lam[2, p4])))/
              ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
               (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
            (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                  lam[2, et6] - lam[1, et6]*lam[2, p4])))/
             ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
              (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))^2*
          ((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                  lam[2, et6] - lam[1, et6]*lam[2, p4])))/
             ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
              (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
            (barlam[1, p4]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                  lam[2, et6] - lam[1, et6]*lam[2, p4])))/
             ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
              (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))^2) + 
        ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])^5*
          ((-10*CK*(-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
               (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))^5*
             (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - (((-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                       lam[2, et5] - (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))))) + (barlam[1, p5]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - (((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))))^2*((barlam[2, p7]*
                (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - (((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                    (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p6])*(-(barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p2]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))) - 
              (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - (((-(barlam[1, p6]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                     lam[2, et5] - (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - (((-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))))) + (barlam[1, p7]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - (((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                    (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p6])*(-(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p2]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))))*
             (lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p6])*(-((barlam[2, p5]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              lam[1, p2]*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p6])*(-((barlam[2, p5]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p6])*(-((barlam[2, p3]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p3}, m1])))/((lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])*((barlam[1, p5]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))) - lam[1, p2]*((barlam[2, p2]*
                  (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                     p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p5] - (lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p6])*(-((barlam[2, p3]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p3}, m1])))/((lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])*((barlam[1, p5]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p3]*
                spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1])*
             (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                 m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                {m1, p3}, m1])*((barlam[2, p3]*(-(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                 (((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p6])*(-(barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))*spa[p3, m1])/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))*spba[p7, {m1, p3}, m1]) - 
              (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - (((-(barlam[1, p6]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                     lam[2, et5] - (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                spa[p3, m1])/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                  lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p2]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                spba[p7, {m1, p3}, m1])))/
            ((-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p6])*lam[1, p6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                   p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p2]*lam[2, p6])*
             (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + (((-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                       lam[2, et5] - (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))))) + (barlam[1, p2]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + (((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))))^2*
             (((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                         p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p6])*(-(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))))/((barlam[1, p6]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])*(lam[1, p6]*
                   lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))) - ((-(barlam[1, p4]*
                    (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]))*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (((-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))))^2*
             (-(lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) - (barlam[1, p2]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                    lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                   (-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p6])*lam[1, p2]*lam[2, p6])*(-((barlam[2, p3]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])*spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p3}, m1])))/((lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])*((barlam[1, p5]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                    (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])))) + lam[1, p2]*((barlam[2, p2]*
                  (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                     p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p5] - (lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p6])*(-((barlam[2, p3]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p3}, m1])))/((lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])*((barlam[1, p5]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))))*((lam[2, m1]*spb[m1, p7] + 
                lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[2, et6]*(lam[1, p6]*
                    lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p6])*(-((barlam[2, p5]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p5] - 
                (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p6])*(-((barlam[2, p3]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p3}, m1])))/((lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])*((barlam[1, p5]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))) - (lam[1, m1]*spb[m1, p7] + 
                lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[1, et6]*(lam[1, p6]*
                    lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p6])*(-((barlam[2, p5]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p5] - 
                (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p6])*(-((barlam[2, p3]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p3}, m1])))/((lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])*((barlam[1, p5]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))))*(-((lam[2, m1]*spb[m1, p7] + 
                 lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*lam[2, et6]*(lam[1, p6]*
                     lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                   (-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p6])*lam[1, p2]*lam[2, p6])*(-((barlam[2, p5]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p6])*(-((barlam[2, p5]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p5])^5*(-((barlam[2, p7]*(-(barlam[1, p4]*
                    (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6])))*((barlam[2, p7]*
                (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                         lam[2, p4] - lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
              (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                    p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[2, p5]*
                  (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[1, p6]*
                         lam[2, p4] - lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                         lam[2, p4] - lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             (-(((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                   lam[2, p2])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6]))) + ((-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                         lam[2, p4] - lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                  barlam[2, p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                  lam[2, p2])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                  lam[2, p6])))*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                 barlam[2, p5])*lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[1, et6]*(lam[1, p6]*
                    lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p3]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1])) + (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1])))) - (barlam[1, p5]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p5])*lam[1, p2]*(lam[2, m1]*
                 spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p3]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1])) + (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1])))))*((barlam[1, p5]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p5])*lam[2, p2]*(
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[1, p6] - (lam[1, et5]*(-(lam[2, p2]*
                     (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p3]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p3}, m1])))) - 
              (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                1, p2]*((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[2, p6] - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])))))*
             (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*
                  barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*spa[p3, m1]*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*spa[p3, m1]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 spba[p7, {m1, p3}, m1]))^2)/
            ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p2]))) + (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[2, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))^
              2*((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
               (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[2, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))^
              2*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(lam[1, p6]*
                     lam[2, p4] - lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                      p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[1, et5]*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))) + (barlam[1, p5]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                   (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, 
                        m1])) + (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1]))))) + (barlam[1, p5]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p5])*lam[1, p2]*(lam[2, m1]*
                 spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p3]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1])) + (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1])))))*(-((lam[2, m1]*spb[m1, p7] + 
                 lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*lam[2, et6]*(lam[1, p6]*
                     lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])))*(-(lam[2, p2]*(lam[1, p5] - 
                       (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, 
                        m1])) + (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1]))))*((-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*lam[1, p6] - 
                 (lam[1, et5]*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p3]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])*spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p3}, m1]))))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p3]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1])) + (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1]))))*((-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[2, p6] - 
                (lam[2, et5]*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])))))*
             (-(((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*lam[2, p6] - (lam[2, et5]*(-(lam[2, p2]*
                      (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p3]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])*spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p3}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                 lam[1, p6] - (lam[1, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                  m1]))) - (10*CK*(-(barlam[1, p5]*barlam[2, p2]) + 
               barlam[1, p2]*barlam[2, p5])^2*(barlam[1, p7]*barlam[2, p2] - 
              barlam[1, p2]*barlam[2, p7])*(barlam[1, p7]*barlam[2, p5] - 
              barlam[1, p5]*barlam[2, p7])*((barlam[2, p5]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                         lam[2, p4] - lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                         lam[2, p4] - lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*(-((barlam[2, p5]*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) + (barlam[1, p5]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                         lam[2, p4] - lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*((barlam[2, p7]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                         lam[2, p4] - lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                         lam[2, p4] - lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*(-(lam[2, p2]*(lam[1, p5] + 
                 (lam[1, et5]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(-(lam[2, p2]*
                         (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                         (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                    (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*((lam[2, p5] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p5] - 
                        (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                 (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])))) + lam[1, p2]*(
                lam[2, p5] + (lam[2, et5]*(-((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(-(lam[2, p2]*
                        (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                        (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p5] - 
                       (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - (lam[2, et6]*
                  (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             ((lam[2, p5] + (lam[2, et5]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[2, p2]*
                        (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                        (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p5] - 
                       (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - (lam[2, et6]*
                  (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p5] + (lam[1, et5]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[2, p2]*
                        (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                        (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p5] - 
                       (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - (lam[1, et6]*
                  (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                 (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 spba[p7, {m1, p3}, m1]))^5)/
            ((((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6])*((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))) - ((-(barlam[1, p4]*
                    (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]))*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6])*((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))))^2*
             ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) - 
              (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p2]*(lam[1, p5] + (lam[1, et5]*
                  (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(-(lam[2, p2]*(lam[1, p5] - 
                         (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                      lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p5] - 
                       (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - (lam[1, et6]*
                  (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) - lam[1, p2]*(
                lam[2, p5] + (lam[2, et5]*(-((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(-(lam[2, p2]*
                        (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                        (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p5] - 
                       (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - (lam[2, et6]*
                  (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                   {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[2, p2] + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                   spba[p7, {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*
                  s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[1, p2] + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                   spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                  s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/(((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))*spba[p7, {m1, p3}, m1]) - 
               (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[2, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/(((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))*spba[p7, {m1, p3}, m1]))^
              2) - (10*CK*(barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[
                2, p7])*(-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
               (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))^2*
             (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
              (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
             (-(lam[2, p2]*((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                    barlam[2, p6])*lam[1, p6] + (lam[1, et5]*
                   (-((-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p2]*lam[2, p6])*
                      (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                         ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))) + (barlam[1, p2]*
                         (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) - (barlam[1, p7]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p7])*(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - (-((barlam[2, p7]*
                         (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
              lam[1, p2]*((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[2, p6] + (lam[2, et5]*
                  (-((-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p2]*lam[2, p6])*
                     (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))) - 
                   (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))))*((barlam[2, p7]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p6])*(-(barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                  (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))) - (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p6])*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                  (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))))*(((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]))*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p6])*(-(barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))) - ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]))*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                        barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p6])*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))))*(-(((-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + (((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6])*((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (-((barlam[2, p7]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))) + ((-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + (((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                    (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p6])*(-(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))))*(((-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                (lam[2, et5]*(-((-((-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, 
                         p2]) + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p2]*lam[2, p6])*
                     (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))) - 
                   (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]) - ((-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                (lam[1, et5]*(-((-((-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, 
                         p2]) + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p2]*lam[2, p6])*
                     (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))) - 
                   (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                 spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                 barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1])^5)/
            ((lam[2, p2]*((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[1, p6] + (lam[1, et5]*
                  (-((-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6]*lam[2, p2]) + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p2]*lam[2, p6])*
                     (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))) - 
                   (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))) - lam[1, p2]*((-(barlam[1, p6]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                (lam[2, et5]*(-((-((-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, 
                         p2]) + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p2]*lam[2, p6])*
                     (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))) - 
                   (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))))*((barlam[2, p5]*(-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  (((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                         p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p6])*(-(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))) - (barlam[1, p5]*(-(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  (((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                         p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p6])*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                   (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))^2*(-((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                  spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                    lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                    lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p5] - 
                (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                   {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])) - (barlam[1, p2]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                ((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6])) - (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p2]*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])) - (barlam[1, p2]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                ((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6])) - (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  (((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                         p6])*lam[1, p6]*lam[2, et5] - (-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p6])*(-(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))*spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                 spa[p3, m1]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - (((-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/(((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (-((barlam[2, p7]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))*spba[p7, {m1, p3}, m1]))^2) - 
           (10*CK*(-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
               (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))^5*
             ((barlam[2, p2]*(-((((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p2]*(-((((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[2, p2]*(-((((-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
              (barlam[1, p2]*(-((((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[2, p5]*(-((((-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, 
                         et5] - (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, 
                          p4]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
               (barlam[1, p5]*(-((((-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
             (-(((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                  ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])) - (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))*(lam[2, m1]*spb[m1, p7] + 
                 lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*lam[2, et6]*(lam[1, p6]*
                     lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])))*((-(barlam[1, p6]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              ((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*((-(barlam[1, p6]*barlam[2, 
                        p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                      barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-(((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                  ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])) - (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))*(lam[2, p5] - (lam[2, et6]*
                   (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                   ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (-(barlam[1, p6]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                        {m1, p3}, m1])) + (barlam[1, p3]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                   m1])) + ((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (-(barlam[1, p6]*barlam[2, 
                        p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1])) + (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                {m1, p3}, m1])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
               spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                spa[p3, m1])/spba[p7, {m1, p3}, m1])*
             ((barlam[2, p3]*spa[p3, m1]*(-((((-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*spa[p3, m1]*
                (-((((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                spba[p7, {m1, p3}, m1])))/
            ((-((barlam[2, p7]*((((-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
               (barlam[1, p7]*((((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6]*lam[2, et5] - 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
             (((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*((((-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6])*(-((barlam[2, p7]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
               ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*((((-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                      lam[2, et5] - (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, et5]*lam[2, p6])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                   lam[2, p6])*(-((barlam[2, p7]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))) + (barlam[1, p7]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                      barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
             (lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*((-(barlam[1, p6]*barlam[2, 
                        p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                      barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) - lam[1, p2]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*((-(barlam[1, p6]*barlam[2, 
                        p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                      barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*((-(barlam[1, p6]*barlam[2, 
                        p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                      barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p5] - 
                (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (-(barlam[1, p6]*barlam[2, 
                        p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1])) + (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*((-(barlam[1, p6]*barlam[2, 
                        p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                      barlam[2, p6])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p5] - 
                (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (-(barlam[1, p6]*barlam[2, 
                        p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1])) + (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                  {m1, p3}, m1]) - (-(barlam[1, p6]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p6])*lam[1, p6]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p5] - (lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (-(barlam[1, p6]*barlam[2, 
                        p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1])) + (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              ((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (-(barlam[1, p6]*barlam[2, 
                        p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1])) + (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                      {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                  m1]))) - (10*CK*(barlam[1, p7]*barlam[2, p5] - barlam[1, 
                 p5]*barlam[2, p7])^5*(-((barlam[2, p2]*(-(barlam[1, p4]*
                    (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]))) + (barlam[1, p2]*
                (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6])))*((barlam[2, p2]*
                (-(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]))) - (barlam[1, p2]*(-(barlam[2, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]))))*(-((barlam[2, p2]*(-(barlam[1, p5]*
                    (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]))))*(-(((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                 (-(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*(barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1])))) + ((-(barlam[1, p4]*(lam[1, p4]*
                     lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                (-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                  barlam[2, p6])*(barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                  barlam[2, p7])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                  lam[2, p6])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]))))*(-((-(barlam[1, p7]*barlam[2, p5]) + 
                 barlam[1, p5]*barlam[2, p7])*(lam[2, m1]*spb[m1, p7] + 
                 lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*lam[2, et6]*(lam[1, p6]*
                     lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])))*((lam[2, p5] - (lam[2, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                        {m1, p3}, m1])) + (barlam[1, p3]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, m1]*
                 spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*((lam[2, p5] - (lam[2, et6]*
                       (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                   p7])*((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                    barlam[2, p6])*lam[2, p6] - (lam[2, et5]*
                   ((lam[2, p5] - (lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p5] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, 
                        m1])) + (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p5]) + barlam[1, p5]*barlam[2, p7])*(
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[1, p6] - (lam[1, et5]*((lam[2, p5] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*
                  barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*spa[p3, m1]*
                 (-(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))*spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                 spa[p3, m1]*(-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                       (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))*spba[p7, {m1, p3}, m1]))^2)/
            (((barlam[2, p5]*(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))) - (barlam[1, p5]*(barlam[2, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))))^2*(-((barlam[2, p7]*(barlam[1, p5]*
                    (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) + (barlam[1, p7]*(barlam[2, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))))^2*(lam[2, p2]*((-(barlam[1, p6]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] - 
                (lam[1, et5]*((lam[2, p5] - (lam[2, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p5] - 
                     (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])))) - 
              lam[1, p2]*((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[2, p6] - (lam[2, et5]*
                  ((lam[2, p5] - (lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p5] - 
                     (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                      p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[2, et5]*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))) + (barlam[1, p5]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                   ((lam[2, p5] - (lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, p5] - 
                      (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                        {m1, p3}, m1])) + (barlam[1, p3]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1]))))*((-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*lam[1, p6] - 
                 (lam[1, et5]*((lam[2, p5] - (lam[2, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, 
                        m1])) + (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1]))))) + (lam[1, m1]*spb[m1, p7] + 
                lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[1, et6]*(lam[1, p6]*
                    lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*((lam[2, p5] - (lam[2, et6]*
                       (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]))))*(
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[2, p6] - (lam[2, et5]*((lam[2, p5] - 
                     (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                         lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])))))*
             ((lam[2, p5] - (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                    lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                    lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*(
                lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*((lam[2, p5] - (lam[2, et6]*
                       (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]))))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*(
                lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*((lam[2, p5] - (lam[2, et6]*
                       (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, 
                          p4] - lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                  m1]))) - (10*CK*(barlam[1, p7]*barlam[2, p5] - 
              barlam[1, p5]*barlam[2, p7])*(-((barlam[2, p5]*
                 (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]))) + (barlam[1, p5]*
                (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6])))*(lam[2, p2]*(
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[1, p6] - (lam[1, et5]*(-(lam[2, p2]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))))*(-((barlam[1, p3]*
                   barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]) - lam[1, p2]*((-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[2, p6] - 
                (lam[2, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))))*(-((barlam[1, p3]*
                   barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]))*(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                  (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[2, p3]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p3}, m1])))/((lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))))*(-((barlam[1, p3]*
                   barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]) - lam[1, p2]*(lam[2, p5] - (lam[2, et6]*
                  (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[2, p3]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p3}, m1])))/((lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))))*(-((barlam[1, p3]*
                   barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]))*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]))) + (barlam[1, p5]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                   spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                   barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                   spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                   barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
              (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                   spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                   barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                   spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                   barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-(((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                   (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) + 
               ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1])))^2*((barlam[1, p3]*barlam[2, p2]*
                 spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                 barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])^5)/
            ((-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                      p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             (-(((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*lam[2, p6] - (lam[2, et5]*(-(lam[2, p2]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])))))*(lam[1, p5] - 
                 (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[2, p3]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])*spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p3}, m1])))/((lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])))))) + 
              ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                 lam[1, p6] - (lam[1, et5]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))))*(lam[2, p5] - 
                (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[2, p3]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p3}, m1])))/((lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]))))))*
             (-((lam[2, p5] - (lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                    lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[2, p3]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])*spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p3}, m1])))/((lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                    lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[2, p3]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])*spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p3, m1])/
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6])*spba[p7, {m1, p3}, m1])))/((lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-(lam[2, p2]*((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                    barlam[2, p6])*lam[1, p6] - (lam[1, et5]*
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])))))*(-((barlam[1, p3]*
                    barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1])) + lam[1, p2]*((-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[2, p6] - 
                (lam[2, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))))*(-((barlam[1, p3]*
                   barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]))*(-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) - (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/spba[p7, 
                     {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p2]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) - (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1])))^2*(-((barlam[2, p3]*spa[p3, m1]*
                  (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2]) - (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])*spba[p7, {m1, p3}, m1])) + 
               (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) - (barlam[2, p3]*
                    spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                       lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])*
                 spba[p7, {m1, p3}, m1]))^2) - 
           (10*CK*(-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p5])*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                      lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
              (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*
             (-(((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*lam[2, p6] - (lam[2, et5]*((lam[2, m1]*spb[m1, 
                        p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                        lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])) + ((-(barlam[1, p6]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/
                 ((-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
             (-((lam[2, p5] - (lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                    lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, 
                        m1])) + (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1])))/((-((barlam[2, p5]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                   spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                   barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) + 
              (lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                    lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])))/
                 ((-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
             ((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
              (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              (barlam[1, p5]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-(((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))*(-(barlam[1, p7]*(lam[2, et5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                   (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[2, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])))^2*
             (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                spba[p7, {m1, p3}, m1])^5)/((lam[2, p2]*(lam[1, p5] - 
                (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])))/
                 ((-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) - lam[1, p2]*(lam[2, p5] - 
                (lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])))/
                 ((-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*
             (-(((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*lam[2, p6] - (lam[2, et5]*((lam[2, m1]*spb[m1, 
                        p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                        lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[1, p5] - 
                 (lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, 
                        m1])) + (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p3, m1])/((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])*spba[p7, 
                       {m1, p3}, m1])))/((-((barlam[2, p5]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
                    (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))) + ((-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*lam[1, p6] - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/
                 ((-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))*(lam[2, p5] - (lam[2, et6]*
                  (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                     ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p3, m1])/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*spba[p7, {m1, p3}, m1])))/
                 ((-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*((lam[2, m1]*spb[m1, p7] + 
                lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[2, et6]*(lam[1, p6]*
                    lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                 lam[2, p6] - (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*lam[2, et6]*(lam[1, p6]*
                         lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/
                 ((-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
              ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                 lam[1, p6] - (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*lam[2, et6]*(lam[1, p6]*
                         lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                        lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/
                 ((-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p7]*(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               (barlam[1, p7]*(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2*
             (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])*spba[p7, {m1, p3}, 
                   m1])) + (barlam[1, p3]*spa[p3, m1]*(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])*spba[p7, {m1, p3}, m1]))^
              2) - (10*CK*(barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[
                2, p7])*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
               (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))^5*
             (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                 (lam[1, et5]*(-((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))))*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))/((lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                      p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                (lam[2, et5]*(-((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (-(lam[2, p2]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))))*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                (lam[2, et5]*(-((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (-(lam[2, p2]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))))*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                (lam[1, et5]*(-((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (-(lam[2, p2]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))))*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
              (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                 m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                spba[p7, {m1, p3}, m1])^2*(-((barlam[1, p7]*barlam[2, p3]*
                 spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])*
             ((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/(
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                 m1]) - (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])) - (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                         lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/(
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                 m1]))*(-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) - (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                (((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, 
                  {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                 m1])))/((lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                 spb[p3, p7] + (lam[1, et5]*(-((barlam[1, p7]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p7])*(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - (-(lam[2, p2]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))))*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) - lam[1, p2]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                (lam[2, et5]*(-((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (-(lam[2, p2]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))))*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                     p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[2, p6]*(lam[1, p5] - (lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) - 
              (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[1, p6]*(lam[2, p5] - (lam[2, et6]*(lam[1, p6]*lam[2, p4] - 
                   lam[1, p4]*lam[2, p6])*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                   {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                 ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*
                  s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                 ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                  s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p5]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2*
             (((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
               ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[1, p6]*lam[2, p4] - 
                          lam[1, p4]*lam[2, p6]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))))/spba[p7, {m1, p3}, m1]))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))^2)))/
         ((lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6])*
          ((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                  lam[2, et6] - lam[1, et6]*lam[2, p6])))/
             ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
              (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
            (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                  lam[2, et6] - lam[1, et6]*lam[2, p6])))/
             ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
              (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))^2*
          (-((barlam[2, p6]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                   lam[2, et6] - lam[1, et6]*lam[2, p6])))/
              ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*(
                lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) + 
            (barlam[1, p6]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                  lam[2, et6] - lam[1, et6]*lam[2, p6])))/
             ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
              (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))^2) + 
        ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])^5*
          ((-10*CK*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                        et5] - lam[1, et5]*lam[2, p2])) - 
                   ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                     ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))) + (barlam[1, p5]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - ((-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))^2*
             ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - ((-(barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))/((barlam[1, p7]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                 (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) - 
              (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - ((-(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))/((barlam[1, p7]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                 (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
             (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - ((-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))) + 
              (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - ((-(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))/((barlam[1, p7]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                 (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
             (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
               (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^5*
             (lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                (lam[1, et5]*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              lam[1, p2]*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                (lam[2, et5]*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[1, p5] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*(-((barlam[2, p3]*spa[p3, m1]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) - lam[1, p2]*(
                (barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[2, p5] - (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*(-((barlam[2, p3]*spa[p3, m1]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                {m1, p3}, m1])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                spa[p3, m1])/spba[p7, {m1, p3}, m1])*
             ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                 ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                  lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (barlam[1, p2]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*spa[p3, m1]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - ((-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                  lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (barlam[1, p2]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                spba[p7, {m1, p3}, m1])))/
            ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + ((-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*lam[2, et5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))) + (barlam[1, p2]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + ((-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))^2*
             (-(((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2]) + ((-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                     ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
               ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + ((-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                 (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p7])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
             (lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                (lam[1, et5]*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                (lam[2, et5]*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-(lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - (barlam[1, p2]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                (lam[1, p5] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                   (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[2, p3]*spa[p3, m1]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                    (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1])))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*((barlam[1, p5]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p2]*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[2, p5] - (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*(-((barlam[2, p3]*spa[p3, m1]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                (lam[2, et5]*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p5] - 
                (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*(-((barlam[2, p3]*spa[p3, m1]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                (lam[1, et5]*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p5] - 
                (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*(-((barlam[2, p3]*spa[p3, m1]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p4]) + barlam[1, p4]*barlam[2, p7])*lam[1, p2]*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                  m1]))) - (10*CK*((barlam[2, p2]*(-(barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                 ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                  lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (barlam[1, p6]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) - 
              (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - ((-(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))/((barlam[1, p7]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])))))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                 (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
             (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - ((-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))) + 
              (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - ((-(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))/((barlam[1, p7]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])))))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                 (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
             (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p6])) - ((-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*lam[2, et5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))) + (barlam[1, p5]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - ((-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))^2*
             (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
               (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^5*
             (lam[2, p6]*((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p7])*lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) - lam[1, p6]*(
                (barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p7])*lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p6]*((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[1, p5] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*(-((barlam[2, p3]*spa[p3, m1]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) - lam[1, p6]*(
                (barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[2, p5] - (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*(-((barlam[2, p3]*spa[p3, m1]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                {m1, p3}, m1])*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
               spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                spa[p3, m1])/spba[p7, {m1, p3}, m1])*
             ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                 ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                  lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (barlam[1, p6]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*spa[p3, m1]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - ((-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                  lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (barlam[1, p6]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                spba[p7, {m1, p3}, m1])))/
            ((-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + ((-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*lam[2, et5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))) + (barlam[1, p6]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + ((-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))^2*
             (-(((barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6]) + ((-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                     ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
               ((barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + ((-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                 (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p7])*(lam[1, p6]*
                   lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
             (lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p7])*lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) - lam[1, p2]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p7])*lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             (-(lam[2, p6]*((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - (barlam[1, p6]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                (lam[1, p5] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                   (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[2, p3]*spa[p3, m1]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                    (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1])))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*((barlam[1, p5]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p6]*((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[2, p5] - (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*(-((barlam[2, p3]*spa[p3, m1]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p7])*lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p5] - 
                (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*(-((barlam[2, p3]*spa[p3, m1]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p7])*lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p5] - 
                (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*(-((barlam[2, p3]*spa[p3, m1]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p4]) + barlam[1, p4]*barlam[2, p7])*lam[1, p6]*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                  m1]))) - (10*CK*(-(barlam[1, p6]*barlam[2, p2]) + 
              barlam[1, p2]*barlam[2, p6])*((barlam[2, p2]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                   lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) - 
              (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                   lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
             (-(lam[2, p2]*((lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - 
                    (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                     (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                     (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                    (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + (-(barlam[1, p7]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]))) + lam[1, p2]*(
                (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1])))*(-(lam[2, p6]*((lam[1, et5]*
                   (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                        lam[2, p6])) - (-((barlam[2, p2]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                      (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                     (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                    (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + (-(barlam[1, p7]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]))) + lam[1, p6]*(
                (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1])))*(-((barlam[2, p2]*(-(barlam[1, p4]*
                    (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                  barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1])))) + (barlam[1, p2]*(-(barlam[2, p4]*
                   (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                  barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]))))*(-((barlam[2, p6]*(-(barlam[1, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                   barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) + (barlam[1, p6]*
                 (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                     spba[p7, {m1, p3}, m1]))))^2*
             (((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + ((-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))/((barlam[1, p7]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p7])*((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))) - ((barlam[1, p2]*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[1, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p4]) + barlam[1, p4]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))) + (lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))*(lam[2, et6]*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                    spba[p7, {m1, p3}, m1]))))*
             (-(((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + ((-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                 (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p7])*
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
              ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + ((-(barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))/((barlam[1, p7]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p7])*((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p3]*
                 spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                 barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1])^5)/
            ((lam[1, p6]*lam[2, p2] - lam[1, p2]*lam[2, p6])*
             (-(lam[2, p2]*(lam[1, p2]*((barlam[2, p2]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*((barlam[2, p6]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p6]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))) + lam[1, p2]*(
                lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - (barlam[1, p2]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                lam[2, p6]*((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - (barlam[1, p6]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
             ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                  ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))) + (lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))) - (barlam[1, p5]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - ((-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))) + (lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))^2*
             (lam[2, p6]*((lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1])) - lam[1, p6]*((lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - (-((barlam[2, p2]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                     (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p7])*lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + (-(barlam[1, p7]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[
                          2, p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, p6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1])))*(-((lam[2, m1]*spb[m1, p7] + 
                 lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*lam[2, et6]*(lam[2, p4]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p5] - 
                 (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p5] - 
                (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                  ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                (((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
                 spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*spa[p3, m1]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - ((-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                (((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
                 spba[p7, {m1, p3}, m1]))^2) - 
           (10*CK*(-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p5])*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[
                2, p6])*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                barlam[2, p6])^2*((barlam[2, p2]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
              (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p5]*
                  (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p5]*
                  (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
              (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p5]*
                  (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (-((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
              (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p5]*
                  (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (-(lam[2, p2]*(lam[1, p5] + (lam[1, et5]*
                   (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                        lam[2, p6])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[2, p2]*
                        (lam[1, p5] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                        (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) - (barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p5] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p5] - 
                        (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p6])) - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])))) + lam[1, p2]*(
                lam[2, p5] + (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                        lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p6]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             (-(lam[2, p6]*(lam[1, p5] + (lam[1, et5]*
                   (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                        lam[2, p6])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[2, p2]*
                        (lam[1, p5] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                        (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) - (barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p5] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p5] - 
                        (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p6])) - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])))) + lam[1, p6]*(
                lam[2, p5] + (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                        lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p6]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                      lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*spa[p3, m1]*
                 (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                     spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]))^5)/
            ((lam[1, p6]*lam[2, p2] - lam[1, p2]*lam[2, p6])*
             (-(((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p6])*lam[1, p6])*lam[2, p2]) + 
              lam[1, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p6])*lam[2, p6]))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                       lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) - barlam[2, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6]))*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))) + ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) - barlam[1, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
                 (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p7])*
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]))*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))))^2*(lam[2, p6]*(lam[1, p5] + (lam[1, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(-(lam[2, p2]*(lam[1, p5] - 
                        (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                       (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(-(lam[2, p6]*(lam[1, p5] - 
                        (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p5] - 
                       (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) - lam[1, p6]*(
                lam[2, p5] + (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                        lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p6]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p7])*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*(
                lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                  barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                (((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]))*spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*
                 spa[p3, m1]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) - barlam[2, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                (((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]))*spba[p7, {m1, p3}, m1]))^2) - 
           (10*CK*(-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p5])^5*((barlam[2, p6]*(-(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                 barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
              (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                  lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2]))) + (barlam[1, p6]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                  lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
              (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))*(-(barlam[1, p4]*(lam[1, p4]*
                     lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                  barlam[2, p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                  lam[2, p2])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]))) - ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))*(-(barlam[2, p4]*(lam[1, p4]*
                     lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                  barlam[2, p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                  lam[2, p2])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]))))*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                 barlam[2, p5])*lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[1, et6]*(lam[2, p4]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p3]*spa[p3, m1]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                      m1])))) - (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                 barlam[2, p5])*lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[2, et6]*(lam[2, p4]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p3]*spa[p3, m1]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))))*
             ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                2, p2]*((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                   spba[p7, {m1, p3}, m1]) - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p3]*
                      spa[p3, m1]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                      m1])))) - (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                 barlam[2, p5])*lam[1, p2]*((-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p3]*
                      spa[p3, m1]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))))*
             ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*spa[p3, m1]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])*spba[p7, {m1, p3}, 
                  m1]))^2*(-((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p4]*
                    (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                  barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))*spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*
                spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                spba[p7, {m1, p3}, m1])))/
            ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]))) + (barlam[1, p2]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])))^2*
             ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])) - (barlam[1, p5]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])))^2*
             (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(lam[2, p4]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[1, et5]*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                    (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(lam[2, p2]*(lam[1, p5] - 
                       (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p3]*spa[p3, m1]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                    (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1]))))) + (barlam[1, p5]*
                 barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p3]*spa[p3, m1]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))))*
             (lam[2, p6]*((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                   spba[p7, {m1, p3}, m1]) - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p3]*
                      spa[p3, m1]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                      m1])))) - lam[1, p6]*((-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p3]*
                      spa[p3, m1]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[2, et5]*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                    (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(lam[2, p2]*(lam[1, p5] - 
                       (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p3]*spa[p3, m1]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                    (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1]))))*((-(barlam[1, p7]*barlam[2, 
                      p4]) + barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 (lam[1, et5]*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p3]*
                       spa[p3, m1]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                    (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1]))))) + (lam[1, m1]*spb[m1, p7] + 
                lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[1, et6]*(lam[2, p4]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p3]*spa[p3, m1]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]))))*(
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1]) - (lam[2, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))))) - 
           (10*CK*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])^
              5*((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - barlam[1, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((barlam[1, p6]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])) - (barlam[1, p2]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((barlam[1, p6]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])))*(-((barlam[2, p2]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]))) + (barlam[1, p2]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((barlam[1, p6]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])))*(-((barlam[2, p2]*
                 (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                     spba[p7, {m1, p3}, m1])))) + (barlam[1, p2]*
                (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))))*(((-(barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[2, p5]*
                  (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
                (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p6])*(barlam[1, p7]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))) - ((-(barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[1, p5]*
                  (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
                (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p6])*(barlam[1, p7]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))))*((-(barlam[1, p6]*barlam[2, p5]) + 
                barlam[1, p5]*barlam[2, p6])*lam[2, p6]*(lam[1, m1]*
                 spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(lam[2, p6]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*spa[p3, m1]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                      m1])))) - (-(barlam[1, p6]*barlam[2, p5]) + 
                barlam[1, p5]*barlam[2, p6])*lam[1, p6]*(lam[2, m1]*
                 spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(lam[2, p6]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*spa[p3, m1]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))))*
             ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
               lam[2, p6]*((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                   spba[p7, {m1, p3}, m1]) - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*
                      spa[p3, m1]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                      m1])))) - (-(barlam[1, p6]*barlam[2, p5]) + 
                barlam[1, p5]*barlam[2, p6])*lam[1, p6]*(
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1]) - (lam[2, et5]*(-(lam[2, p6]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))))*
             ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])) - barlam[1, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*spa[p3, m1]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*spba[p7, {m1, p3}, m1]))^2*
             (-((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                      lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
            (((barlam[2, p5]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])) - (barlam[1, p5]*(barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) + (barlam[1, p6]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))/((barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*(-(lam[2, p6]*(lam[1, p5] - 
                 (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])))) + lam[1, p6]*(
                lam[2, p5] - (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             (-((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                   p6])*lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                  spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p5])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[1, et5]*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                    (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(lam[2, p6]*(lam[1, p5] - 
                       (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*spa[p3, m1]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                    (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1]))))) + (-(barlam[1, p6]*
                  barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(lam[2, p6]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*spa[p3, m1]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))))*
             (lam[2, p2]*((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                   spba[p7, {m1, p3}, m1]) - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*
                      spa[p3, m1]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                      m1])))) - lam[1, p2]*((-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*
                      spa[p3, m1]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (lam[2, et5]*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                    (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(lam[2, p6]*(lam[1, p5] - 
                       (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*spa[p3, m1]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                    (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1]))))*((-(barlam[1, p7]*barlam[2, 
                      p4]) + barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 (lam[1, et5]*(-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p6]*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*
                       spa[p3, m1]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                    (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1]))))) + (lam[1, m1]*spb[m1, p7] + 
                lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[1, et6]*(lam[2, p4]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(lam[2, p6]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p3]*spa[p3, m1]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]))))*(
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1]) - (lam[2, et5]*(-(lam[2, p6]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))))) - 
           (10*CK*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
             (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
              (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p2]*((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                   spba[p7, {m1, p3}, m1]) - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p5]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))*(-((barlam[1, p3]*
                   barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]) - lam[1, p2]*((-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p5]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))*(-((barlam[1, p3]*
                   barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]))*(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                  (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))*(-((barlam[1, p3]*
                   barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]) - lam[1, p2]*(lam[2, p5] - (lam[2, et6]*
                  (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))*(-((barlam[1, p3]*
                   barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]))*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]))) + (barlam[1, p5]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                   spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                   barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                   spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                   barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
              (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                   spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                   barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                   spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                   barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-(((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                  (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                       lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/spba[p7, 
                     {m1, p3}, m1]))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))*(-(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1])))^2*((barlam[1, p3]*barlam[2, p2]*
                 spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                 barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])^5)/
            ((-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p6]*(lam[1, p5] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))) - lam[1, p6]*(
                lam[2, p5] - (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))))*
             (-(((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - (lam[2, et5]*(-(lam[2, p2]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p5]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
                (lam[1, p5] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                   (-((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))))) + ((-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p5]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))*(lam[2, p5] - 
                (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))))*
             (-(lam[2, p2]*((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                    barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                    spba[p7, {m1, p3}, m1]) - (lam[1, et5]*
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p5]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
                (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*(
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1]) - (lam[2, et5]*(-(lam[2, p2]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p5]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))*(-((barlam[1, p3]*
                   barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]))*(-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) - (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/spba[p7, 
                     {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p2]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) - (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1])))^2*(-((barlam[2, p3]*spa[p3, m1]*
                  (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2]) - (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                          lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])*spba[p7, {m1, p3}, m1])) + 
               (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) - (barlam[2, p3]*
                    spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                       lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])*
                 spba[p7, {m1, p3}, m1]))^2) - 
           (10*CK*(-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p5])*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                      lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
              (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p6]*((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                   spba[p7, {m1, p3}, m1]) - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p5]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))*((barlam[1, p6]*
                  barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]) - lam[1, p6]*((-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p5]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))*((barlam[1, p6]*
                  barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]))*(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*
                  (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))*((barlam[1, p6]*
                  barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]) - lam[1, p6]*(lam[2, p5] - (lam[2, et6]*
                  (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))*((barlam[1, p6]*
                  barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]))*((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                 (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
              (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-(((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                  (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                       lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/spba[p7, 
                     {m1, p3}, m1]))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p6]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))*(-(barlam[2, p6]*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) + 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])))^2*
             (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                spba[p7, {m1, p3}, m1])^5)/
            ((-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[1, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))) - lam[1, p2]*(
                lam[2, p5] - (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))))*
             (-(((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - (lam[2, et5]*(-(lam[2, p6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p5]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
                (lam[1, p5] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])) - (lam[1, et5]*
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                   (-((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))))) + ((-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p5]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))*(lam[2, p5] - 
                (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))))*
             (-(lam[2, p6]*((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                    barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                    spba[p7, {m1, p3}, m1]) - (lam[1, et5]*
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p5]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
                ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])) + lam[1, p6]*(
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1]) - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                         barlam[2, p5])*lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p6])*(-((barlam[2, p5]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p5]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))))*((barlam[1, p6]*
                  barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]))*(-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) - (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/spba[p7, 
                     {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p6]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) - (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])))^2*
             (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) - (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/spba[p7, 
                     {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])*spba[p7, {m1, p3}, 
                   m1])) + (barlam[1, p3]*spa[p3, m1]*(barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])*spba[p7, {m1, p3}, m1]))^
              2) - (10*CK*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
               barlam[2, p6])*(-((barlam[2, p5]*(-(barlam[1, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                   barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) + (barlam[1, p5]*
                 (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                     spba[p7, {m1, p3}, m1]))))^5*(-(lam[2, p2]*
                (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                 (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - 
                    (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                          ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                      lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                     ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[1, et6]*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                      lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                       et5] - lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1])) - ((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*lam[1, et6]*(lam[2, p4]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])))) + lam[1, p2]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[2, et6]*(lam[2, p4]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                 (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - 
                    (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                          ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                      lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                     ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[1, et6]*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                      lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                       et5] - lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1])) - ((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*lam[1, et6]*(lam[2, p4]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])))) + lam[1, p6]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[2, et6]*(lam[2, p4]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) - (barlam[1, p3]*
                   spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])) - (barlam[1, p2]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) - (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])))*
             ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                {m1, p3}, m1])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                 spa[p3, m1])/spba[p7, {m1, p3}, m1])^2*
             ((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[1, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                 (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                 m1]) - (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) - (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                 m1]))*(-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) - (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/
                (((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
              (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                        (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                 m1])))/((lam[1, p6]*lam[2, p2] - lam[1, p2]*lam[2, p6])*
             (lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[1, et6]*(lam[2, p4]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7] - ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*lam[2, et6]*(lam[2, p4]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*(-((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - ((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*lam[2, et6]*(lam[2, p4]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-(lam[2, p2]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              lam[1, p2]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p7])*(lam[2, p5] - (lam[2, et6]*(lam[2, p4]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*(
                lam[1, p5] - (lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) + (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7] - ((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                          (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/spba[p7, 
                     {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p5]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2*
             (((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))*(-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] - 
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*lam[1, et6]*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p3]*spb[p3, p7] - ((barlam[1, p5]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                         lam[2, et6]*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/spba[p7, {m1, p3}, m1]))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))) - ((-(barlam[1, p4]*(lam[1, p4]*
                      lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[1, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] - ((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*lam[2, et6]*
                         (lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))^2)))/
         (((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p4]) + barlam[1, p7]*(lam[2, et6]*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                    spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, 
                 p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                   m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*(barlam[2, p4]*
                (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
               barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                   s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                   m1]))))^2*(-((barlam[2, p7]*(barlam[1, p4]*
                 (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                 barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                 (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                    m1])))) + (barlam[1, p7]*(barlam[2, p4]*
                (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
               barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]))))/((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                   s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                   m1]))))^2*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
              spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
             (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])^5*
          ((-10*CK*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p6])^5*(-((barlam[2, p7]*(-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]))) + (barlam[1, p7]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))/((-(barlam[1, p6]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                  lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[
                2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                  (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[
                1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*lam[2, et5]*
                  (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[
                2, p2]*(lam[1, p7] - (lam[1, et5]*(-(lam[1, p6]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[
                1, p2]*(lam[2, p7] - (lam[2, et5]*(-(lam[1, p6]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                     spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
              (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                     spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))*(barlam[1, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])) - (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])) - (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]))*(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) - (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])))) + ((-(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                  spba[p7, {m1, p3}, m1]))/((-(barlam[1, p6]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                 m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                {m1, p3}, m1])*((barlam[2, p3]*(-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]))*spa[p3, m1])/((-(barlam[1, p6]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])*spba[p7, {m1, p3}, 
                  m1]) - (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))*
                 spa[p3, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*spba[p7, {m1, p3}, m1]))^2)/
            ((-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
             (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p2]))) + (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))^
              2*((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
               (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))^
              2*(-((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                   p6])*lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                  spb[p3, p7] + (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*
                      (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                        barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1])) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                    barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                   (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[
                1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*lam[2, et5]*
                  (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             ((lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[1, p7] - (lam[1, et5]*
                  (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[1, p7]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1])) + (lam[1, m1]*s[m1, p3])/spba[p7, 
                  {m1, p3}, m1]) - (lam[1, p2]*(-((barlam[1, p3]*barlam[2, 
                      p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                    barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                 ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]))*(lam[2, p7] - (lam[2, et5]*
                  (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[1, p7]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1])) + (lam[2, m1]*s[m1, p3])/spba[p7, 
                  {m1, p3}, m1]))*(-((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                  spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*
                      (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                        barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1])) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                    barlam[1, p6]*barlam[2, p7])*lam[2, et5]*
                   (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] - 
                 (lam[1, et5]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p6])*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                  (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] - 
                (lam[2, et5]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6])*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p7])*((lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                 ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]))*(lam[1, m1]*spb[m1, p7] + 
                lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*lam[1, et5]*(lam[2, p6]*
                    (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - lam[1, p6]*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(
                -((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                    spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                 spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                        lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[2, p6]*
                    (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - lam[1, p6]*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(
                -((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                    spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             ((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - ((lam[2, et5]*(lam[1, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                  (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1])))*((barlam[2, p6]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
              (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - ((lam[2, et5]*(lam[1, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                  (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1])))*((barlam[2, p6]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
             (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) + 
              (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - ((lam[2, et5]*(lam[1, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                  (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1])))*((barlam[2, p6]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
             (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) + 
              (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - ((lam[2, et5]*(lam[1, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                  (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1])))*((barlam[2, p6]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
             ((lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(-((barlam[2, p6]*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, 
                       m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                    spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] - 
                (lam[1, et5]*(lam[2, p6]*(lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, p6]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[2, et5]*
                    (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(-((barlam[2, p6]*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, 
                       m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                    spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] - 
                (lam[2, et5]*(lam[2, p6]*(lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, p6]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[2, et5]*
                    (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - (barlam[1, p6]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))^5*
             (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                 m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                {m1, p3}, m1])*((barlam[2, p3]*spa[p3, m1]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))*spba[p7, 
                  {m1, p3}, m1]) - (barlam[1, p3]*spa[p3, m1]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))*spba[p7, 
                  {m1, p3}, m1]))^2)/((lam[2, p6]*(lam[1, p2]*
                 (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])) - lam[1, p6]*(lam[2, p2]*
                 (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*(-((lam[2, p2]*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, 
                      p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                    spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                 (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                        barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1])) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                    barlam[1, p6]*barlam[2, p7])*lam[1, et5]*(lam[2, p6]*
                     (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, p6]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))/((lam[2, et5]*(lam[1, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(-((barlam[1, p7]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                (-((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                 (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                 spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                        lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[2, p6]*
                    (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - lam[1, p6]*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(
                -((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                    spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             ((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
               (barlam[1, p6]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))))^2*
             (lam[2, p2]*(lam[1, p7] - (lam[1, et5]*(lam[2, p6]*
                    (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - lam[1, p6]*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[2, et5]*
                    (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              lam[1, p2]*(lam[2, p7] - (lam[2, et5]*(lam[2, p6]*
                    (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - lam[1, p6]*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[2, et5]*
                    (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                 (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                        barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1])) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                    barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[2, p6]*
                     (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, p6]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))/((lam[2, et5]*(lam[1, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(-((barlam[1, p7]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                (lam[1, p7] - (lam[1, et5]*(lam[2, p6]*(lam[1, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, p6]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*((barlam[1, p6]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*lam[1, et5]*(lam[2, p6]*
                    (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - lam[1, p6]*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] - 
                (lam[2, et5]*(lam[2, p6]*(lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, p6]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((lam[2, et5]*
                    (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (((barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p2]*
                     (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                   (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])))*
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))*((barlam[2, p6]*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
               ((barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p2]*
                     (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                   (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])))*
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))*((barlam[2, p6]*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))))^2) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p6])^2*(-(lam[2, p2]*(lam[1, p6] + 
                 (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (lam[2, p2]*
                       (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, p2]*(lam[2, p2]*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) - (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - (lam[2, p6]*(lam[1, p2]*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, p6]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p6]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) - (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((-(barlam[1, p6]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                   (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p6]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))) + lam[1, p2]*(lam[2, p6] + 
                (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (lam[2, p2]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, p2]*(lam[2, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - (lam[2, p6]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, p6]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p6]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((-(barlam[1, p6]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p6]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))*((lam[2, p6] + 
                (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (lam[2, p2]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, p2]*(lam[2, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - (lam[2, p6]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, p6]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p6]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((-(barlam[1, p6]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p6]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))*(lam[1, p2]*
                 (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])) - (lam[1, p6] + (lam[1, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - (lam[2, p2]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, p2]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - (lam[2, p6]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, p6]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p6]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((-(barlam[1, p6]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p6]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))*(lam[2, p2]*
                 (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*((barlam[2, p6]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
              (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
             (-((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) + 
              (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
             ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                     spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
              (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                     spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                     spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
              (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                     spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-(((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1]))/(((-(barlam[1, p6]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p6]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*(lam[1, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                  spba[p7, {m1, p3}, m1]))/(((-(barlam[1, p6]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                spba[p7, {m1, p3}, m1])^5)/((lam[2, p2]*(lam[1, p6] + 
                (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (lam[2, p2]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, p2]*(lam[2, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - (lam[2, p6]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, p6]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p6]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((-(barlam[1, p6]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p6]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))) - lam[1, p2]*(lam[2, p6] + 
                (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (lam[2, p2]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, p2]*(lam[2, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - (lam[2, p6]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, p6]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p6]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((-(barlam[1, p6]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p6]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))))*(-(lam[2, p2]*
                (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                  ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) + lam[1, p2]*(
                lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*(((barlam[1, p6]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                   ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                   ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))*(-((barlam[2, p6]*
                     (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                  (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*(
                lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])) - ((barlam[1, p6]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                   ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                   ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))*(-((barlam[2, p6]*
                     (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                  (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*(
                lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*(-((barlam[2, p7]*(-(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                   barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6]) - ((lam[2, et5]*(lam[1, p2]*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p6]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))) + (barlam[1, p7]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))))^2*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))*(-((barlam[2, p3]*spa[p3, m1]*
                  (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                       lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) - ((lam[2, et5]*(lam[1, p2]*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 (((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p6]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*spba[p7, {m1, p3}, m1])) + 
               (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                  ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                (((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p6]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*spba[p7, {m1, p3}, m1]))^2) - 
           (10*CK*(-((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                 (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                        barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1])) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                    barlam[1, p6]*barlam[2, p7])*lam[2, et5]*
                   (-((lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + (lam[1, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p2]*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                  ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))*(-((barlam[2, p7]*
                    (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                 (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                  (-((lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p2]*
                 (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(-((barlam[2, p7]*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, 
                       m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                    spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             ((lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[1, p6] - (lam[1, et5]*
                  (-((lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                       p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(-((barlam[2, p7]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                    spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[2, p6] - (lam[2, et5]*
                  (-((lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                       p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(-((barlam[2, p7]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                    spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             ((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - ((lam[2, et5]*
                     (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                  (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1])))*((barlam[2, p7]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
              (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - ((lam[2, et5]*
                     (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                  (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1])))*((barlam[2, p7]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
             (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - ((lam[2, et5]*
                      (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) + 
              (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - ((lam[2, et5]*
                     (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                  (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1])))*((barlam[2, p7]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
             (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - ((lam[2, et5]*
                       (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) + 
               (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - ((lam[2, et5]*
                      (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))))^2*
             ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))^5*
             ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                {m1, p3}, m1])*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
               spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                spa[p3, m1])/spba[p7, {m1, p3}, m1])*
             ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                  (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1])))*((barlam[2, p7]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))*spba[p7, 
                 {m1, p3}, m1]) - (barlam[1, p3]*spa[p3, m1]*
                (-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))) - ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                  (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1])))*((barlam[2, p7]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))*spba[p7, 
                 {m1, p3}, m1])))/((lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                  (-((lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) - lam[1, p2]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*lam[2, et5]*
                  (-((lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*lam[2, et5]*
                  (-((lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p6] - 
                (lam[1, et5]*(-((lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1])) + (lam[1, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                  (-((lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p6] - 
                (lam[2, et5]*(-((lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1])) + (lam[1, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             (-((lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                  ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))*(lam[1, p6] - 
                 (lam[1, et5]*(-((lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + (lam[1, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])))*
                (-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                 (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[2, p6] - (lam[2, et5]*
                  (-((lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                       p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(-((barlam[2, p7]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                    spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             ((barlam[2, p7]*(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])) + ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
               (barlam[1, p7]*(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])) + ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))))^2*
             (-((lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                  ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))*
             (((barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p2]*
                     (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                   (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])))*
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))*((barlam[2, p7]*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
               ((barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p2]*
                     (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                   (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])))*
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))*((barlam[2, p7]*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))))^2) - 
           (10*CK*(-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p7])^2*((barlam[2, p7]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])) + ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
              (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
             (-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                  ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) + 
              (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
             (-(lam[2, p2]*(lam[1, p7] + (lam[1, et5]*
                   (-((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                       lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - (lam[2, p2]*
                       (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, p2]*(lam[2, p2]*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) - (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - (-((lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                          ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + (lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                         ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[2, p7]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) - (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) - (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((-(barlam[1, p7]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p7])*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                   (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (lam[2, p2]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, p2]*(lam[2, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - (-((lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + (lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))*((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((-(barlam[1, p7]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p7])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))*
             (-((lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                  ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))*(lam[1, p7] + 
                 (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (lam[2, p2]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, p2]*(lam[2, p2]*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) - (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - (-((lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                          ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + (lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                         ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[2, p7]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) - (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) - (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((-(barlam[1, p7]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p7])*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                   (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + (lam[1, p2]*
                 (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[2, p7] + (lam[2, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (lam[2, p2]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, p2]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - (-((lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + (lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))*((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((-(barlam[1, p7]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p7])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))*((barlam[2, p2]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])) - (barlam[1, p2]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                     spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                     spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
              (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                     spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-(((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])) + ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1]))/(((-(barlam[1, p7]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p7])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) + ((lam[2, et5]*(lam[1, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                  spba[p7, {m1, p3}, m1]))/(((-(barlam[1, p7]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p7])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                spba[p7, {m1, p3}, m1])^5)/
            ((-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                 (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                        barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1])))) + lam[1, p6]*(lam[2, m1]*
                 spb[m1, p7] + lam[2, p3]*spb[p3, p7] + (lam[2, et6]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))))*(-(lam[2, p2]*(lam[1, p2]*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                  ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) + lam[1, p2]*(
                lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*(((barlam[1, p7]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p7])*lam[2, p2] + 
                (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                   ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                   ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))*(-((barlam[2, p7]*
                     (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*(
                lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])) - ((barlam[1, p7]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p7])*lam[1, p2] + 
                (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                   ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                   ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))*(-((barlam[2, p7]*
                     (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*(
                lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*(-((barlam[2, p6]*(-(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                         ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))) + (barlam[1, p6]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])) - ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))))^2*
             (lam[2, p2]*(lam[1, p7] + (lam[1, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (lam[2, p2]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, p2]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - (-((lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + (lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))*((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((-(barlam[1, p7]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p7])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + (lam[1, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (lam[2, p2]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, p2]*(lam[2, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - (-((lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + (lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))*((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((-(barlam[1, p7]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p7])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))*(-((barlam[2, p3]*spa[p3, m1]*
                  (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                       lam[2, p2])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 (((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*spba[p7, {m1, p3}, m1])) + 
               (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                  ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                (((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))*spba[p7, {m1, p3}, m1]))^2) - 
           (10*CK*(-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p7])^5*(-((barlam[2, p6]*(-(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]))) + (barlam[1, p6]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p7]*
                    barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                 (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))^2*
             ((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, p7])*lam[
                2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) - (barlam[1, p7]*
                 barlam[2, p2] - barlam[1, p2]*barlam[2, p7])*lam[1, p2]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             ((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, p7])*lam[
                2, p2]*(lam[1, p6] - (lam[1, et5]*(-(lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) - (barlam[1, p7]*
                 barlam[2, p2] - barlam[1, p2]*barlam[2, p7])*lam[1, p2]*(
                lam[2, p6] - (lam[2, et5]*(-(lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])) - (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])) - (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])))) + ((-(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                  spba[p7, {m1, p3}, m1]))/((-(barlam[1, p7]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                {m1, p3}, m1])*((barlam[2, p3]*spa[p3, m1]*
                (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((-(barlam[1, p7]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*spba[p7, {m1, p3}, m1]) - 
              (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                spba[p7, {m1, p3}, m1]))*(-((barlam[2, p3]*spa[p3, m1]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, 
                  {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                  spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                 m1])))/((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[1, p7]*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p2]))) + (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))^
              2*((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
               (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))^
              2*(-((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                 (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                        barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1])) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                    barlam[1, p6]*barlam[2, p7])*lam[2, et5]*
                   (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p2]*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                  ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p2]*
                 (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*(-((barlam[1, p7]*barlam[2, p2] - 
                 barlam[1, p2]*barlam[2, p7])*lam[2, p2]*(lam[1, p6] - 
                 (lam[1, et5]*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1])))) + 
              (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, p7])*lam[
                1, p2]*(lam[2, p6] - (lam[2, et5]*(-(lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p6] - 
                (lam[1, et5]*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p6] - 
                (lam[2, et5]*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                   {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                p7])*(lam[2, p2]*(lam[1, p6] - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] + (lam[1, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))*
               (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                   {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p6] - 
                (lam[2, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                        (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))*
               (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                   {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]))*(lam[2, p2]*(lam[1, p7] - 
                (lam[1, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                        (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((-(barlam[1, p7]*
                     barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*(
                -((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                   {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] - 
                (lam[2, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                        (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((-(barlam[1, p7]*
                     barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*(
                -((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                   {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]))*((barlam[2, p6]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])) - (barlam[1, p6]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                     spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] + (lam[1, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] + (lam[1, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                   spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                   barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] + (lam[1, et6]*(-((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                    spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] + (lam[1, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2*
             (((barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                  spba[p7, {m1, p3}, m1])*(-(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                 (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                        (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])) - ((barlam[1, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])) - (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7])))/spba[p7, {m1, p3}, m1])*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] + (lam[1, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])))*
             (-(((barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1])*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                         (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]))) + ((barlam[1, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1])*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] + (lam[1, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])))*((barlam[1, p3]*barlam[2, p2]*
                 spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                 barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])^5)/
            ((-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                 (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                        barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*
                 spb[m1, p7] + lam[2, p3]*spb[p3, p7] + (lam[2, et6]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))))*((lam[2, p2]*(-((barlam[1, p3]*
                     barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                    barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                 ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]))*(lam[1, p6] - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] + (lam[1, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p2]))) - (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                 ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]))*(lam[2, p6] - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7] + (lam[1, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p2]))))*((lam[2, p6] - (lam[2, et5]*(-(lam[2, p2]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                      (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))*
               (lam[1, p7] - (lam[1, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                        (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((-(barlam[1, p7]*
                     barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p6] - (lam[1, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                        (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))*
               (lam[2, p7] - (lam[2, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                        (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((-(barlam[1, p7]*
                     barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-(lam[2, p2]*(lam[1, p7] - (lam[1, et5]*(-(lam[2, p2]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                       (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                    lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                   ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((-(barlam[1, p7]*
                      barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] - 
                (lam[2, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                        (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((-(barlam[1, p7]*
                     barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*(
                -((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                   {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]))*(-((barlam[2, p2]*(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) - 
                   (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                          (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                    spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) - (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7] + (lam[1, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2*
             (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) - (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                          (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                    spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])*
                  spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) - (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                       (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])*
                 spba[p7, {m1, p3}, m1]))^2) - 
           (10*CK*(-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                barlam[2, p7])^5*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                 lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                   (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                        lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                     ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                      lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7]))*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - ((lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])) + 
                 (lam[1, et5]*(-((lam[2, p2]*(lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                          ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, p2]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                          ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) - (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) - (-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                          (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[
                          p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*(-((barlam[1, 
                          p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1])))/((lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7] + (lam[2, et6]*
                          (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                     ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                        (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                       (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                          (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                       (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(-((barlam[2, p3]*spa[p3, m1]*
                         (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                          spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                      (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                      (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) - (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                     (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]))))) + 
              lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) + (lam[2, et5]*
                  (-((lam[2, p2]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, p2]*(lam[2, p2]*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) - (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) - (-(lam[2, p2]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                          (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                       (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                         (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(-((barlam[2, p3]*spa[p3, m1]*
                        (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                          spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                     (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                     (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(-((barlam[2, p3]*spa[p3, m1]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                    (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) + (lam[2, et5]*
                  (-((lam[2, p2]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, p2]*(lam[2, p2]*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) - (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) - (-(lam[2, p2]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                          (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                       (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                         (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(-((barlam[2, p3]*spa[p3, m1]*
                        (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                          spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                     (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                     (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(-((barlam[2, p3]*spa[p3, m1]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                    (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]))))*(
                lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                 spb[p3, p7] + (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                        lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) + (lam[1, et5]*
                  (-((lam[2, p2]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, p2]*(lam[2, p2]*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) - (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) - (-(lam[2, p2]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                          (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                       (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                         (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(-((barlam[2, p3]*spa[p3, m1]*
                        (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                          spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                     (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                     (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(-((barlam[2, p3]*spa[p3, m1]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                    (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]))))*(
                lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*((barlam[2, p2]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])) - (barlam[1, p2]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                     spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (((barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                  spba[p7, {m1, p3}, m1])*(barlam[1, p2]*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                        (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                    (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))) - 
              ((barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                  spba[p7, {m1, p3}, m1])*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                        (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                    (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))))*
             ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                 m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                spba[p7, {m1, p3}, m1])^2*(-((barlam[2, p3]*spa[p3, m1]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, 
                  {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                  spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, {m1, p3}, 
                 m1]))*((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                        (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))*
                spba[p7, {m1, p3}, m1]) - (barlam[1, p3]*spa[p3, m1]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                        (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))*
                spba[p7, {m1, p3}, m1]))*(-((barlam[2, p3]*spa[p3, m1]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                         (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                    (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))*
                 spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                        (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))*
                spba[p7, {m1, p3}, m1])))/((lam[2, p2]*(lam[1, m1]*
                 spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) + (lam[1, et5]*
                  (-((lam[2, p2]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, p2]*(lam[2, p2]*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) - (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) - (-(lam[2, p2]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                          (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                       (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                         (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(-((barlam[2, p3]*spa[p3, m1]*
                        (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                          spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                     (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                     (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(-((barlam[2, p3]*spa[p3, m1]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                    (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))) - 
              lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) + (lam[2, et5]*
                  (-((lam[2, p2]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, p2]*(lam[2, p2]*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) - (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) - (-(lam[2, p2]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                          (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                       (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                         (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                      (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(-((barlam[2, p3]*spa[p3, m1]*
                        (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                          spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                     (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[2, et5]*
                     (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(-((barlam[2, p3]*spa[p3, m1]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                    (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))))*
             (-(lam[2, p2]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                  ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) + lam[1, p2]*(
                lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*(-((lam[2, p2]*(-((barlam[1, p3]*
                      barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, 
                      p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                    spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]))*((barlam[2, p3]*
                     spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/(((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                   (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))) + 
              (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[2, p2]*(-((barlam[1, p3]*barlam[2, 
                      p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (lam[2, p2]*(-((barlam[1, p3]*barlam[2, 
                        p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, 
                       p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                     spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                 ((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/(((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, 
                     {m1, p3}, m1]) - (barlam[1, p3]*spa[p3, m1]*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, 
                     {m1, p3}, m1]))))*(-(lam[2, p6]*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                  {m1, p3}, m1]))*(-((barlam[2, p6]*(-(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                   ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                          (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                    spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                    (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))) + 
               (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) + 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                         (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]))))^2*
             ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) + 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                         (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]))) - 
               (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) + 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                         (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                 (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]))))^2) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p6])*(-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[
                2, p7])*((lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                 ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]))*(lam[1, p6] - (lam[1, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                     (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                     (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*(
                (barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                   barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                      lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 (((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                   barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                      lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 (((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) - 
              (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[2, p6] - (lam[2, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                     (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                     (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*(
                (barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                   barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                      lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 (((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                   barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                      lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 (((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))*
             ((lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[1, p7] - (lam[1, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                     (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                     (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((-(barlam[1, p7]*
                     barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*(
                (barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                   barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                      lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 (((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                   barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                      lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 (((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) - 
              (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                 ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[2, p7] - (lam[2, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                     (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                     (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((-(barlam[1, p7]*
                     barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*(
                (barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                   barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                      lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 (((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                   barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                      lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 (((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))*
             ((barlam[2, p2]*(-(((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                 (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                        (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p2]*
                    (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                  (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1])))*
                (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/(((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, 
                     {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, 
                    {m1, p3}, m1]))) - (barlam[1, p2]*
                (-(((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                        (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p2]*
                    (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                  (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1])))*
                (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/(((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, 
                     {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, 
                    {m1, p3}, m1]))))*(-((barlam[2, p2]*
                 (-(((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                         (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p2]*
                     (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                   (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])))*
                 (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                  (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/(((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, 
                     {m1, p3}, m1])))) + (barlam[1, p2]*
                (-(((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                        (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p2]*
                    (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                  (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1])))*
                (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/(((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, 
                     {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, 
                    {m1, p3}, m1]))))*(-((barlam[2, p6]*
                 (-(((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                         (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p2]*
                     (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                   (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])))*
                 (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                  (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/(((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, 
                     {m1, p3}, m1])))) + (barlam[1, p6]*
                (-(((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                 (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                        (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p2]*
                    (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                  (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1])))*
                (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/(((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, 
                     {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, 
                    {m1, p3}, m1]))))*(-((barlam[2, p7]*
                  (-(((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                          (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7] + (lam[1, et6]*(-((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                    spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))) + 
               (barlam[1, p7]*(-(((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                         ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                         (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p2]*
                     (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                   (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])))*
                 (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                  (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/(((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, 
                     {m1, p3}, m1]))))^2*(-((barlam[2, p3]*spa[p3, m1]*
                  (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                    spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                    (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, 
                   {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, 
                  {m1, p3}, m1]))^5)/(((lam[2, m1]*spb[m1, p7] + 
                lam[2, p3]*spb[p3, p7] + (lam[2, et6]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])))*(lam[1, p2]*(-((barlam[1, p3]*
                     barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                    barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                 ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1])) - (lam[1, m1]*spb[m1, p7] + 
                lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - (-(lam[2, p6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                     lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                         p7]))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])))*(lam[2, p2]*(-((barlam[1, p3]*
                     barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                    barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                 ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1])))*(lam[2, p2]*(lam[1, p6] - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                         (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                     (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) - 
              lam[1, p2]*(lam[2, p6] - (lam[2, et5]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p3]*spb[p3, p7] + (lam[2, et6]*
                       (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                     (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))))))*
             ((lam[2, p6] - (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7] + (lam[2, et6]*
                       (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                     (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*(
                lam[1, p7] - (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7] + (lam[2, et6]*
                       (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                     (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((-(barlam[1, p7]*
                     barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p6] - (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7] + (lam[2, et6]*
                       (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                     (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[
                          2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*(
                lam[2, p7] - (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7] + (lam[2, et6]*
                       (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                     (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((-(barlam[1, p7]*
                     barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                  ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))*(lam[1, p7] - 
                 (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                      (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                     (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                   ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((-(barlam[1, p7]*
                      barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                ((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/(((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, 
                    {m1, p3}, m1]) - (barlam[1, p3]*spa[p3, m1]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, 
                    {m1, p3}, m1]))) + (lam[1, p2]*(-((barlam[1, p3]*
                     barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                    barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                 ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]))*(lam[2, p7] - (lam[2, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7] + 
                     (lam[2, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7] + 
                     (lam[1, et6]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((-(barlam[1, p7]*
                     barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*(
                (barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                   barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                      lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 (((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]) - 
                (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                   barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                      lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 (((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))*
             (-(((barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                    spba[p7, {m1, p3}, m1])*(((lam[2, et5]*(lam[1, p2]*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                         ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                          (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                    spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[2, p3]*spa[p3, m1]*
                      (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])))) + 
               ((barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1])*(((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                         (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p2]*
                     (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                   (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])))*
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))*(-((barlam[2, p3]*spa[p3, m1]*
                     (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                  (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/(((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, 
                     {m1, p3}, m1]))))^2*(-((barlam[2, p3]*spa[p3, m1]*
                  (((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                         (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                          (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                         spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                    spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                   (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]))*
                  spba[p7, {m1, p3}, m1])) + (barlam[1, p3]*spa[p3, m1]*
                 (((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + lam[1, p6]*((barlam[1, p6]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[2, p6]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, 
                          p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                          barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                     (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7] + (lam[1, et6]*
                         (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])) - (-(barlam[1, p7]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7] + (lam[2, et6]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - (-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                   spba[p7, {m1, p3}, m1]))/((lam[2, et5]*(lam[1, p2]*
                     (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + lam[1, p6]*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                   (lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])))*
                 (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*spba[p7, {m1, p3}, m1])) + 
                  (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/(((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                      (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*spba[p7, 
                     {m1, p3}, m1]))*spba[p7, {m1, p3}, m1]))^2)))/
         ((lam[1, p5]*lam[2, p4] - lam[1, p4]*lam[2, p5])*
          ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) - 
               barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1])) + (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                  lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                      p7])))/spba[p7, {m1, p3}, m1]))/
             ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*(
                (barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                   spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                  barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
              (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*(
                -((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                   {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1])) - (barlam[1, p4]*
              (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                   lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6]) - barlam[2, p7]*(lam[2, et6]*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                    spba[p7, {m1, p3}, m1])) + (barlam[2, p3]*spa[p3, m1]*
                 (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                      p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                     spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
             ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*(
                (barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                   spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                  barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
              (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*(
                -((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                   {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1])))^2*
          (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) - 
                barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1])) + (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*
                    (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                   lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7])))/spba[p7, {m1, p3}, m1]))/
              ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
               (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1]))) + 
            (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) - 
               barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                  lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                      p7])))/spba[p7, {m1, p3}, m1]))/
             ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*(
                (barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]) + (lam[1, p6]*lam[2, et6] - 
                lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                   spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                  barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
              (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*(
                -((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                   {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1])))^2) + 
        (((-10*CK*(-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                p6])*(-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p7])^5*(-((barlam[2, p4]*(-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((-(barlam[1, p7]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]))) + (barlam[1, p4]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((-(barlam[1, p7]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])))*(-((barlam[2, p6]*
                  (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                       lam[2, p2])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))^
              2*((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                    lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))) - (barlam[1, p4]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p4]*
                  (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((-(barlam[1, p7]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((-(barlam[1, p4]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) - ((-(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                  barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))) + 
              ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p4]*
                  (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((-(barlam[1, p7]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((-(barlam[1, p4]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*((barlam[1, p7]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p7])*lam[2, p2]*(lam[1, p6] - 
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  lam[1, et5]*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]))) - (barlam[1, p7]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p7])*lam[1, p2]*(lam[2, p6] - 
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  lam[2, et5]*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]))))*((barlam[1, p7]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p7])*lam[2, p2]*(lam[1, p4] + 
                (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p4])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]))) - (barlam[1, p7]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p7])*lam[1, p2]*(lam[2, p4] + 
                (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p4])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])))))/
            ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p2]))) + (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))^
              2*((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
               (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))^
              2*(-((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                   p7])*lam[2, p2]*(lam[1, p6] - ((barlam[1, p7]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p7])*lam[1, et5]*
                   (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                  ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2])))) + (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                 barlam[2, p7])*lam[1, p2]*(lam[2, p6] - 
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  lam[2, et5]*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]))))*(-((lam[1, p4] + 
                 (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - 
                    (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                        p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                       lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                    barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                   (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                  ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2])))*(lam[2, p6] - ((barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*lam[2, et5]*
                   (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                  ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2])))) + (lam[1, p6] - ((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))*
               (lam[2, p4] + (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*
                        lam[2, p2]) + lam[1, p2]*lam[2, p4])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]))))*(-((lam[2, p4] + 
                 (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - 
                    (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                        p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                       lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                    barlam[1, p6]*barlam[2, p7])*lam[2, et5]*
                   (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                  ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2])))*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, 
                      p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))) + (lam[1, p4] + (lam[1, et6]*
                  (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p4])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, p4] - 
                     lam[1, p4]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])))*((barlam[1, p4]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                   {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p4])^2*(-(barlam[1, p7]*barlam[2, p6]) + 
               barlam[1, p6]*barlam[2, p7])^5*((barlam[2, p4]*
                (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p4]*(lam[2, et5]*(lam[1, p4] + 
                     (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] + 
                     (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + ((lam[2, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                ((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))) - (barlam[1, p4]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + (lam[1, et6]*
                       (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] + 
                     (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + ((lam[2, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                ((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))))*(-((barlam[2, p4]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[1, p4]*(lam[2, et5]*(lam[1, p4] + 
                      (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] + 
                      (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + ((lam[2, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p4]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))) + (barlam[1, p4]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + 
                     (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] + 
                     (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + ((lam[2, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                ((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))))*(-(lam[2, p2]*(lam[1, p4] + 
                 (lam[1, et5]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(-(lam[2, p2]*
                         (lam[1, p4] + (lam[1, et6]*(-((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p4])) - (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))))) + lam[1, p2]*
                        (lam[2, p4] + (lam[2, et6]*(-((-(barlam[1, p4]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p4])*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p4])) - (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))) - ((barlam[2, p2]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, p2]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                         lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p2]*
                       ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - ((barlam[2, p4]*
                        (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                      (barlam[1, p4]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                     ((lam[2, p4] + (lam[2, et6]*(-((-(barlam[1, p4]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p4])*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p4])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                       ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (lam[1, p4] + 
                        (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                         ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))*((barlam[1, p4]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                        (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))/((-(barlam[1, p4]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                   ((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, et5]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))) + (lam[1, et6]*
                   (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                        lam[2, p4])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                     (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))) + lam[1, p2]*(
                lam[2, p4] + (lam[2, et5]*(-((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(-(lam[2, p2]*
                        (lam[1, p4] + (lam[1, et6]*(-((-(barlam[1, p4]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p4])*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p4])) - (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p4] + (lam[2, et6]*
                          (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                         ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))) - 
                   ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, p2]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p2]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - ((barlam[2, p4]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                       (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))*((lam[2, p4] + 
                       (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (lam[1, p4] + (lam[1, et6]*
                         (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))/((-(barlam[1, p4]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  ((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p4]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p4])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))))*((barlam[2, p2]*
                (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                    lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*((barlam[2, p4]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p4]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                    lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*(-(((barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[2, p4]*
                   (lam[2, et5]*(lam[1, p4] + (lam[1, et6]*
                        (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] + 
                      (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + ((lam[2, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                  barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + ((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p4]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))) + 
              ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p4]*(lam[2, et5]*(lam[1, p4] + 
                     (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] + 
                     (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + ((lam[2, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p4]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             ((lam[2, p4] + (lam[2, et5]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[2, p2]*
                        (lam[1, p4] + (lam[1, et6]*(-((-(barlam[1, p4]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p4])*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p4])) - (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p4] + (lam[2, et6]*
                          (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                         ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))) - 
                   ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, p2]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p2]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - ((barlam[2, p4]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                       (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))*((lam[2, p4] + 
                       (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (lam[1, p4] + (lam[1, et6]*
                         (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))/((-(barlam[1, p4]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  ((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p4]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p4])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])) - (lam[1, p4] + 
                (lam[1, et5]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[2, p2]*
                        (lam[1, p4] + (lam[1, et6]*(-((-(barlam[1, p4]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p4])*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p4])) - (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p4] + (lam[2, et6]*
                          (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                         ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))) - 
                   ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, p2]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p2]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - ((barlam[2, p4]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                       (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))*((lam[2, p4] + 
                       (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (lam[1, p4] + (lam[1, et6]*
                         (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))/((-(barlam[1, p4]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  ((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p4]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p4])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
            ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] + (lam[1, et6]*(-((-(barlam[1, p4]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p4])*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p4])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                     lam[1, et5]*(lam[2, p4] + (lam[2, et6]*
                         (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) - ((lam[2, et5]*
                       ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                       ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + ((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p4]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
               (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[2, p4]*(lam[2, et5]*
                     (lam[1, p4] + (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])) - 
                         (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] + (lam[2, et6]*
                        (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) - ((lam[2, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p4]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))^2*
             ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] + (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])) - 
                         (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] + (lam[2, et6]*
                        (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) - ((lam[2, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p4]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) - (barlam[1, p7]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + 
                      (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] + 
                      (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) - ((lam[2, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p4]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))^2*
             (lam[2, p2]*(lam[1, p4] + (lam[1, et5]*
                  (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(-(lam[2, p2]*(lam[1, p4] + 
                         (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                          ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p4] + (lam[2, et6]*
                          (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                         ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))) - 
                   ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, p2]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p2]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - ((barlam[2, p4]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                       (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))*((lam[2, p4] + 
                       (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (lam[1, p4] + (lam[1, et6]*
                         (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))/((-(barlam[1, p4]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  ((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p4]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p4])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))) - lam[1, p2]*(lam[2, p4] + 
                (lam[2, et5]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[2, p2]*
                        (lam[1, p4] + (lam[1, et6]*(-((-(barlam[1, p4]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p4])*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p4])) - (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p4] + (lam[2, et6]*
                          (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                         ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))) - 
                   ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, p2]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p2]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - ((barlam[2, p4]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                       (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))*((lam[2, p4] + 
                       (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (lam[1, p4] + (lam[1, et6]*
                         (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))/((-(barlam[1, p4]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  ((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p4]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p4])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))))*
             (-(lam[2, p2]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, 
                      p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))) + lam[1, p2]*((barlam[1, p4]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             (((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 lam[2, p2] + (-((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                  (barlam[1, p4]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                  (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1])))*(
                (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
              ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 lam[1, p2] + (-((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                  (barlam[1, p4]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                  (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1])))*(
                (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                   {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p6])^2*(barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                barlam[2, p7])^5*(-(lam[2, p2]*(lam[1, p6] + 
                 (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - 
                    ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                      (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                     (lam[2, p2]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                         lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      lam[1, p2]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                      (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                     (lam[2, p6]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                         lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      lam[1, p6]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, et5]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))) + lam[1, p2]*(
                lam[2, p6] + (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                        lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                   ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, p2]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p2]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - ((barlam[2, p6]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - (barlam[1, p6]*
                       (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))*(lam[2, p6]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p6]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
             ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))) - (barlam[1, p6]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + ((lam[2, et5]*((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                       lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))))*(-((barlam[2, p6]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))) + (barlam[1, p6]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))))*((barlam[2, p2]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                    lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*((barlam[2, p6]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                    lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*(-(((barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                  barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))) + 
              ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             ((lam[2, p6] + (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, p2]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p2]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - ((barlam[2, p6]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - (barlam[1, p6]*
                       (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))*(lam[2, p6]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p6]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*(
                (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
              (lam[1, p6] + (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, p2]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p2]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - ((barlam[2, p6]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - (barlam[1, p6]*
                       (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))*(lam[2, p6]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p6]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*(
                (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
            ((lam[2, p2]*(lam[1, p6] + (lam[1, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - ((barlam[2, p2]*(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, p2]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p2]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - ((barlam[2, p6]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - (barlam[1, p6]*
                       (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))*(lam[2, p6]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p6]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) - 
              lam[1, p2]*(lam[2, p6] + (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - ((barlam[2, p2]*(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, p2]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p2]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - ((barlam[2, p6]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - (barlam[1, p6]*
                       (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))*(lam[2, p6]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p6]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
             ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                  ((lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) - (barlam[1, p4]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - ((lam[2, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))^2*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                   ((lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                         lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                     (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))/((-(barlam[1, p6]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
               (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                  ((lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))^2*
             (-(lam[2, p2]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, 
                      p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))) + lam[1, p2]*((barlam[1, p4]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             (((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[2, p2] + (-((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                  (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                  (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1])))*(
                (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
              ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[1, p2] + (-((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                  (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                  (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1])))*(
                (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             ((lam[2, p4] + (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p4])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p4] + (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p4])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p4])*(-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[
                2, p6])*((barlam[2, p2]*(-(((lam[2, et5]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))) - barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                    lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) - (barlam[1, p2]*
                (-(((lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                    lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*(-((barlam[2, p2]*
                 (-(((lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                         lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                     (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))))) + (barlam[1, p2]*
                (-(((lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                    lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*(-((barlam[2, p4]*
                 (-(((lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                         lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                     (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))))) + (barlam[1, p4]*
                (-(((lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                    lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*(-((barlam[2, p6]*
                  (-(((lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                         (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                          lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                         (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/(((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))) + (barlam[1, p6]*
                 (-(((lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                         lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                     (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))))^2*((barlam[2, p7]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
               (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                     lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))^5*
             (-((-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p7]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, p6] - 
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   lam[2, et5]*(-(((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) + ((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[2, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))*
                ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                  lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))) + (-((barlam[2, p7]*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (barlam[1, p7]*
                  (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[1, p6] - 
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  lam[1, et5]*(-(((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))))*((barlam[1, p4]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             (-((-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p7]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, p4] + 
                 (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - 
                    (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                        p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                       lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                    barlam[1, p6]*barlam[2, p7])*lam[2, et5]*
                   (-(((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                  ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*(lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                       lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))*
                ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                  lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))) + (-((barlam[2, p7]*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (barlam[1, p7]*
                  (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[1, p4] + 
                (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p4])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*lam[1, et5]*(-(((barlam[1, p4]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1])) + 
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))))*((barlam[1, p4]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
            (((barlam[2, p7]*(((lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                        lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))) - (barlam[1, p7]*
                 (((lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))))^2*
             (((((lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))*((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))) - 
               ((((lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))*((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))))^2*
             (lam[2, p2]*(lam[1, p4] + (lam[1, et6]*
                  (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p4])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, p4] - 
                     lam[1, p4]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*lam[1, et5]*(-(((barlam[1, p4]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1])) + 
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))) - lam[1, p2]*(lam[2, p4] + 
                (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p4])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*lam[2, et5]*(-(((barlam[1, p4]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1])) + 
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))))*(-((lam[1, p4] + (lam[1, et6]*
                   (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                        lam[2, p4])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                     (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - 
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                      p7])*lam[1, et5]*(-(((barlam[1, p4]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + 
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                  ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*(lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                       lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))*(lam[2, p6] - 
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   lam[2, et5]*(-(((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) + ((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[2, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))) + (lam[1, p6] - 
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  lam[1, et5]*(-(((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))))*(lam[2, p4] + (lam[2, et6]*
                  (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p4])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, p4] - 
                     lam[1, p4]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*lam[2, et5]*(-(((barlam[1, p4]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1])) + 
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))))*((-((barlam[2, p7]*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (barlam[1, p7]*
                  (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[2, p6] - 
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  lam[2, et5]*(-(((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))))*((barlam[1, p4]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
              (-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))) + (barlam[1, p7]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[1, p6] - 
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  lam[1, et5]*(-(((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))))*((barlam[1, p4]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             (-(((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                  lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                 (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + ((barlam[1, p4]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p6])^5*(barlam[1, p7]*barlam[2, p4] - 
              barlam[1, p4]*barlam[2, p7])*(-((barlam[2, p4]*
                  (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                       lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])))/((-(barlam[1, p6]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]))) + (barlam[1, p4]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])))/((-(barlam[1, p6]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])))^2*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                    p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[
                2, p2]*(lam[1, p4] - ((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                  (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p4])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))) - (barlam[1, p6]*
                 barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2]*(
                lam[2, p4] - ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                    barlam[2, p7])*lam[2, et5]*(-(lam[1, p6]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p6]))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) + (lam[2, et6]*
                  (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p4])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, p4] - 
                     lam[1, p4]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))))*((barlam[2, p7]*
                (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                    lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*(((-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))*
                (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
              ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p4]*
                  (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((-(barlam[1, p4]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]))*(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p4]*
                   (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p6]*
                    barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                 (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))) + 
              ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p4]*
                  (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((-(barlam[1, p4]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*((barlam[1, p6]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p6])*lam[2, p2]*(lam[1, p7] - 
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*lam[1, et5]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) + (lam[1, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]) - (barlam[1, p6]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p6])*lam[1, p2]*(
                -(((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*lam[2, et5]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p6]))/((barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]))) + lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
            ((-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
             (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p2]))) + (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))^
              2*((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
               (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))^
              2*(-((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                   p6])*lam[2, p2]*(lam[1, p4] - ((-(barlam[1, p7]*barlam[2, 
                       p6]) + barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                   (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2])) + (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*
                      (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])) - 
                    (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                        p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                       lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))) + (barlam[1, p6]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p6])*lam[1, p2]*(lam[2, p4] - 
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*lam[2, et5]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) + (lam[2, et6]*
                  (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p4])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, p4] - 
                     lam[1, p4]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))))*
             (-((lam[2, p4] - ((-(barlam[1, p7]*barlam[2, p6]) + 
                    barlam[1, p6]*barlam[2, p7])*lam[2, et5]*
                   (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2])) + (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*
                      (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, p4])) - 
                    (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                        p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                       lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))*(lam[1, p7] - ((-(barlam[1, p6]*barlam[2, 
                       p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, et5]*
                   (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2])) + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                   m1])) + (lam[1, p4] - ((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                  (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p4])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(
                -(((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*lam[2, et5]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p6]))/((barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]))) + lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*(
                lam[1, p7] - ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                    barlam[2, p6])*lam[1, et5]*(-(lam[1, p6]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p6]))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) + (lam[1, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]) - ((barlam[1, p4]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]))*(
                -(((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*lam[2, et5]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p6]))/((barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]))) + lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p4])^5*(-(barlam[1, p7]*barlam[2, p6]) + 
              barlam[1, p6]*barlam[2, p7])*(-((barlam[2, p6]*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] + 
                      (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] + 
                      (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p4]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2]))) + (barlam[1, p6]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + 
                     (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] + 
                     (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p4]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                  lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] + (lam[1, et6]*(-((-(barlam[1, p4]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p4])*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p4])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                     lam[1, et5]*(lam[2, p4] + (lam[2, et6]*
                         (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p4]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]))) + (barlam[1, p7]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + 
                      (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] + 
                      (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p4]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])))^2*
             ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*lam[
                2, p2]*(lam[1, p6] - ((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, p4] + (lam[1, et6]*
                        (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p4] + 
                     (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]))) - 
              (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*lam[
                1, p2]*(lam[2, p6] - ((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p4] + (lam[1, et6]*
                        (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p4] + 
                     (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]))))*
             ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                    lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + 
                     (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] + 
                     (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))*(barlam[1, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p4]*
                  (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((-(barlam[1, p4]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) - ((-(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p4]*
                  (lam[2, et5]*(lam[1, p4] + (lam[1, et6]*
                       (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] + 
                     (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p4]*
                  (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((-(barlam[1, p4]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + 
                      (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] + 
                      (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))*(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p4]*
                   (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                    barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                 (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))) + 
              ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] + 
                     (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] + 
                     (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p4]*
                  (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((-(barlam[1, p4]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*((barlam[1, p4]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p4])*lam[2, p2]*(lam[1, p7] - 
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p4] + 
                      (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p4] + 
                     (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*lam[
                1, p2]*(lam[2, p7] - ((-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p4] + (lam[1, et6]*
                        (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p4] + 
                     (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
            ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] + (lam[1, et6]*(-((-(barlam[1, p4]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p4])*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p4])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                     lam[1, et5]*(lam[2, p4] + (lam[2, et6]*
                         (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p4]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]))) + (barlam[1, p2]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + 
                      (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] + 
                      (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p4]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])))^2*
             ((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] + (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])) - 
                         (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] + (lam[2, et6]*
                        (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p4]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])) - (barlam[1, p4]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + 
                      (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] + 
                      (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p4]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])))^2*
             (-(lam[2, p2]*(lam[1, p4] + (lam[1, et6]*
                   (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                        lam[2, p4])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                     (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))) + lam[1, p2]*(
                lam[2, p4] + (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*
                        lam[2, p2]) + lam[1, p2]*lam[2, p4])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))))*
             (-((lam[2, p6] - ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p7])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p4] + 
                       (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p4] + 
                      (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                       p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])))*
                ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                  lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))) + (lam[1, p6] - 
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  lam[1, et5]*(-(lam[2, p2]*(lam[1, p4] + (lam[1, et6]*
                        (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p4] + 
                     (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])))*(
                (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                lam[2, p2]*(lam[1, p7] - ((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*lam[1, et5]*
                   (-(lam[2, p2]*(lam[1, p4] + (lam[1, et6]*
                         (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p4] + 
                      (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                       p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*lam[
                1, p2]*(lam[2, p7] - ((-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p4] + (lam[1, et6]*
                        (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p4] + 
                     (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((lam[2, p6] - ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                    barlam[2, p7])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p4] + 
                      (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p4] + 
                     (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])))*(lam[1, p7] - 
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p4] + 
                      (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p4] + 
                     (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p6] - ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                    barlam[2, p7])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p4] + 
                      (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p4] + 
                     (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])))*(lam[2, p7] - 
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p4] + 
                      (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p4] + 
                     (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p7])*(barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                p7])*((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p6])) - 
                 ((lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(((barlam[2, p6]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - (barlam[1, p6]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                    lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) - (barlam[1, p2]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - ((lam[2, et5]*((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                       lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(((barlam[2, p6]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - (barlam[1, p6]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                    lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*(-((barlam[2, p2]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - ((lam[2, et5]*((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                        lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                (((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))))) + (barlam[1, p2]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - ((lam[2, et5]*((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                       lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(((barlam[2, p6]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - (barlam[1, p6]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                    lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*(-((barlam[2, p4]*
                  (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                       lam[2, p6])) - ((lam[2, et5]*((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                        (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                         lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                 (((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))) + (barlam[1, p4]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - ((lam[2, et5]*((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                        lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                (((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))))^2*(-((barlam[2, p7]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - ((lam[2, et5]*((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                        lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                (((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))))) + (barlam[1, p7]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - ((lam[2, et5]*((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                       lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(((barlam[2, p6]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - (barlam[1, p6]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                    lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*((barlam[2, p6]*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                  barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
               (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                     lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))^5*
             (-((-((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, p4] - 
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                      p7])*lam[2, et5]*(lam[2, p6]*((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, p6]*((barlam[1, p4]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                       lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                 (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - 
                    (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                        p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                       lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                 (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
              (-((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))) + (barlam[1, p6]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[1, p4] - 
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*lam[1, et5]*(lam[2, p6]*((barlam[1, p4]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, p6]*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[1, et6]*
                  (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p4])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, p4] - 
                     lam[1, p4]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             ((-((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))) + (barlam[1, p6]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]))*(lam[1, p7] - 
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*lam[1, et5]*(lam[2, p6]*((barlam[1, p4]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, p6]*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[1, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]) - (-((barlam[2, p6]*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (barlam[1, p6]*
                  (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]))*(lam[2, p7] - 
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*lam[2, et5]*(lam[2, p6]*((barlam[1, p4]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, p6]*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1])))/
            (((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                (((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))) - (barlam[1, p6]*(barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                (((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))))^2*
             (((barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + ((lam[2, et5]*((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                        lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                  barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))*((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))) - ((barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                  barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))*((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))))^2*
             (lam[2, p6]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1])) - lam[1, p6]*((barlam[1, p4]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             ((-((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))) + (barlam[1, p6]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[2, p4] - 
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*lam[2, et5]*(lam[2, p6]*((barlam[1, p4]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, p6]*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[2, et6]*
                  (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p4])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, p4] - 
                     lam[1, p4]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
              (-((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))) + (barlam[1, p6]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[1, p4] - 
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*lam[1, et5]*(lam[2, p6]*((barlam[1, p4]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, p6]*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[1, et6]*
                  (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p4])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, p4] - 
                     lam[1, p4]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             (lam[2, p2]*(lam[1, p7] - ((-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*lam[1, et5]*(lam[2, p6]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, p6]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[1, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] - 
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*lam[2, et5]*(lam[2, p6]*((barlam[1, p4]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, p6]*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))*(-((lam[2, p4] - 
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                      p7])*lam[2, et5]*(lam[2, p6]*((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, p6]*((barlam[1, p4]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                       lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                 (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - 
                    (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                        p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                       lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))*(lam[1, p7] - ((-(barlam[1, p6]*barlam[2, 
                       p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, et5]*
                   (lam[2, p6]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, p6]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p7])*(lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                       lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))) + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + (lam[1, p4] - 
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*lam[1, et5]*(lam[2, p6]*((barlam[1, p4]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, p6]*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[1, et6]*
                  (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p4])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, p4] - 
                     lam[1, p4]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[2, p7] - 
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*lam[2, et5]*(lam[2, p6]*((barlam[1, p4]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, p6]*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p6])*(-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[
                2, p7])*((barlam[2, p2]*(-(barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] + (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p4])) - 
                         (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] + (lam[2, et6]*
                        (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))) - ((lam[2, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(((barlam[2, p4]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                    lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) - (barlam[1, p2]*
                (-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + (lam[1, et6]*
                        (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] + 
                      (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))) - ((lam[2, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(((barlam[2, p4]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                    lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*(-((barlam[2, p2]*
                 (-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] + (lam[1, et6]*
                         (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] + 
                       (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))) - ((lam[2, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                (((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))))) + (barlam[1, p2]*
                (-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + (lam[1, et6]*
                        (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] + 
                      (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))) - ((lam[2, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(((barlam[2, p4]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                    lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*(-((barlam[2, p6]*
                 (-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] + (lam[1, et6]*
                         (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] + 
                       (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))) - ((lam[2, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                (((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))))) + (barlam[1, p6]*
                (-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + (lam[1, et6]*
                        (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] + 
                      (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))) - ((lam[2, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(((barlam[2, p4]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - (barlam[1, p4]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                    lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*(-((barlam[2, p7]*
                  (-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] + (lam[1, et6]*
                          (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                         ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))) - lam[1, et5]*
                       (lam[2, p4] + (lam[2, et6]*(-((-(barlam[1, p4]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p4])*
                          (-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p4])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p4]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))) - ((lam[2, et5]*((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                        (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                         lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                 (((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p4]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))) + (barlam[1, p7]*
                 (-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + (lam[1, et6]*
                         (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] + 
                       (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))) - ((lam[2, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                (((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))))^2*((barlam[2, p4]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
               (barlam[1, p4]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                     lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))^5*(-((lam[2, p6] - 
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   lam[2, et5]*((lam[2, p4] + (lam[2, et6]*
                        (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (lam[1, p4] + (lam[1, et6]*
                        (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p7]*barlam[2, 
                       p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))*
                (-((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p4]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, 
                     p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                 (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]))) + (lam[1, p6] - 
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  lam[1, et5]*((lam[2, p4] + (lam[2, et6]*
                       (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (lam[1, p4] + (lam[1, et6]*
                       (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))*(-((barlam[2, p4]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (barlam[1, p4]*
                  (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             ((-((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))) + (barlam[1, p4]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]))*(lam[1, p7] - 
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*lam[1, et5]*((lam[2, p4] + (lam[2, et6]*
                       (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (lam[1, p4] + (lam[1, et6]*
                       (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[1, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]) - (-((barlam[2, p4]*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (barlam[1, p4]*
                  (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]))*(lam[2, p7] - 
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*lam[2, et5]*((lam[2, p4] + (lam[2, et6]*
                       (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (lam[1, p4] + (lam[1, et6]*
                       (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1])))/((lam[2, p2]*(lam[1, p6] - 
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  lam[1, et5]*((lam[2, p4] + (lam[2, et6]*
                       (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (lam[1, p4] + (lam[1, et6]*
                       (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))) - lam[1, p2]*(
                lam[2, p6] - ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                    barlam[2, p7])*lam[2, et5]*((lam[2, p4] + (lam[2, et6]*
                       (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (lam[1, p4] + (lam[1, et6]*
                       (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))))*
             ((barlam[2, p4]*(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] + 
                      (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] + 
                      (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + ((lam[2, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                (((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))) - (barlam[1, p4]*(barlam[2, p4]*
                   (lam[2, et5]*(lam[1, p4] + (lam[1, et6]*
                        (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] + 
                      (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + ((lam[2, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                (((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))))^2*
             (((barlam[2, p4]*(lam[2, et5]*(lam[1, p4] + (lam[1, et6]*
                        (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] + 
                      (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + ((lam[2, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                  barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))*((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))) - ((barlam[1, p4]*
                   (lam[2, et5]*(lam[1, p4] + (lam[1, et6]*
                        (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] + 
                      (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + ((lam[2, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                  barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p4]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))*((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))))^2*
             ((lam[2, p4] + (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p4])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])) - (lam[1, p4] + 
                (lam[1, et6]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p4])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             ((lam[2, p6] - ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                    barlam[2, p7])*lam[2, et5]*((lam[2, p4] + (lam[2, et6]*
                       (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (lam[1, p4] + (lam[1, et6]*
                       (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))*(lam[1, p7] - 
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*lam[1, et5]*((lam[2, p4] + (lam[2, et6]*
                       (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (lam[1, p4] + (lam[1, et6]*
                       (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[1, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]) - (lam[1, p6] - 
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  lam[1, et5]*((lam[2, p4] + (lam[2, et6]*
                       (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (lam[1, p4] + (lam[1, et6]*
                       (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))*(lam[2, p7] - 
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*lam[2, et5]*((lam[2, p4] + (lam[2, et6]*
                       (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (lam[1, p4] + (lam[1, et6]*
                       (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))*
             (-((-((barlam[2, p4]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p4]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, 
                     p2] - barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                 (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]))*(lam[1, p7] - 
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*lam[1, et5]*((lam[2, p4] + (lam[2, et6]*
                        (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (lam[1, p4] + (lam[1, et6]*
                        (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p7]*barlam[2, 
                       p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))) + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + (-((barlam[2, p4]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (barlam[1, p4]*
                  (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]))*(lam[2, p7] - 
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*lam[2, et5]*((lam[2, p4] + (lam[2, et6]*
                       (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (lam[1, p4] + (lam[1, et6]*
                       (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p4])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p4]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])^
              5*(-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                 p7])^2*((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))) - (barlam[1, p7]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))))*(-((barlam[2, p7]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + ((lam[2, et5]*((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                        lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))) + (barlam[1, p7]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + ((lam[2, et5]*((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                       lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))))*((barlam[2, p2]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                    lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*((barlam[2, p7]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                    lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*(-(((barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  ((lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))) + 
              ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + ((lam[2, et5]*((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                      (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                       lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             (-(lam[2, p2]*(lam[1, p7] + (lam[1, et5]*
                   (-(((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                          barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                       (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                          barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                      (lam[2, p2]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                          lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       lam[1, p2]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                          lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - ((barlam[2, p7]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                         (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + 
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, et5]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))) + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                (lam[2, et5]*(-(((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, 
                          p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, p2]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                         lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p2]*
                       ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))) - (-(barlam[1, p7]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                    (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                        (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + 
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-(((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                  lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                 (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*(lam[1, p7] + (lam[1, et5]*
                   (-(((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                          barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                       (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                          barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                      (lam[2, p2]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                          lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       lam[1, p2]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                          lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - ((barlam[2, p7]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                         (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + 
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, et5]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))) + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + ((barlam[1, p4]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]))*(lam[2, p7] + 
                (lam[2, et5]*(-(((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, 
                          p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, p2]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                         lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p2]*
                       ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))) - (-(barlam[1, p7]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                    (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                        (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + 
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
            ((-(lam[2, p6]*(lam[1, p4] + (lam[1, et6]*
                   (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(-(lam[1, p4]*lam[2, p2]) + lam[1, p2]*
                        lam[2, p4])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, p4] - lam[1, p4]*lam[2, p6]) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                     (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))) + lam[1, p6]*(
                lam[2, p4] + (lam[2, et6]*(-((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(-(lam[1, p4]*
                        lam[2, p2]) + lam[1, p2]*lam[2, p4])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p4] - lam[1, p4]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))))*
             ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - ((lam[2, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) - (barlam[1, p4]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - ((lam[2, et5]*((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                       (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p4]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                        lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))^2*
             (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - ((lam[2, et5]*
                       ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                       ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, 
                          p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + ((barlam[2, p7]*(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
               (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - ((lam[2, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))^2*
             (-(lam[2, p2]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, 
                      p4]) + barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))) + lam[1, p2]*((barlam[1, p4]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             (((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, p7])*
                 lam[2, p2] + (-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                  (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1])))*(
                (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
              ((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, p7])*
                 lam[1, p2] + (-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p4]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p4])*lam[1, p2] + 
                  (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1])))*(
                (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 lam[2, p2] + (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             (lam[2, p2]*(lam[1, p7] + (lam[1, et5]*
                  (-(((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                      (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                     (lam[2, p2]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                         lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      lam[1, p2]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                        (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + 
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              lam[1, p2]*(lam[2, p7] + (lam[2, et5]*
                  (-(((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                      (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                     (lam[2, p2]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                         lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      lam[1, p2]*((barlam[1, p4]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                          barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(((barlam[1, p4]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p4])*lam[2, p2] + 
                        (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + 
                     ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p4])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p4])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
            (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1])^
           5)/((lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
              spb[p3, p7]) - lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
             lam[2, p3]*spb[p3, p7]))*
          ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) - 
               barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                  lam[2, p6]) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1]))) - (barlam[1, p5]*(-(barlam[2, p2]*
                 (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
               barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                  lam[2, p4]) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6]) - barlam[2, p7]*(lam[2, et6]*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                    spba[p7, {m1, p3}, m1]))))/
             ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*(
                lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
              (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*(
                lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
              (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*(
                lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
          ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p2]*(lam[1, p2]*
                   lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p4]*
                (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) - 
               barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                  lam[2, p6]) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))))/(((-(barlam[1, p4]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1])))*spba[p7, {m1, p3}, m1]) - 
            (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p2]*(lam[1, p2]*
                   lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p4]*
                (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]) - 
               barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                  lam[2, p6]) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))))/(((-(barlam[1, p4]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1])))*spba[p7, {m1, p3}, m1]))^2) + 
        (((-10*CK*(-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                p6])*(-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p7])^5*(-((barlam[2, p5]*(-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((-(barlam[1, p7]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]))) + (barlam[1, p5]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((-(barlam[1, p7]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])))*(-((barlam[2, p6]*
                  (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                       lam[2, p2])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))^
              2*((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((-(barlam[1, p7]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) - ((-(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))) + 
              ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((-(barlam[1, p7]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*((barlam[1, p7]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p7])*lam[2, p2]*(lam[1, p6] - 
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  lam[1, et5]*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((-(barlam[1, p6]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]))) - (barlam[1, p7]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p7])*lam[1, p2]*(lam[2, p6] - 
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  lam[2, et5]*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((-(barlam[1, p6]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]))))*((barlam[1, p7]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p7])*lam[2, p2]*(lam[1, p5] + 
                (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p5])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))/((-(barlam[1, p6]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]))) - (barlam[1, p7]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p7])*lam[1, p2]*(lam[2, p5] + 
                (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p5])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))/((-(barlam[1, p6]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])))))/
            ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p2]))) + (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))^
              2*((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
               (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))^
              2*(-((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                   p7])*lam[2, p2]*(lam[1, p6] - ((barlam[1, p7]*barlam[2, 
                      p5] - barlam[1, p5]*barlam[2, p7])*lam[1, et5]*
                   (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                  ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2])))) + (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                 barlam[2, p7])*lam[1, p2]*(lam[2, p6] - 
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  lam[2, et5]*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])))/((-(barlam[1, p6]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]))))*(-((lam[1, p5] + 
                 (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - 
                    (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                        p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                    barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                   (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                  ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2])))*(lam[2, p6] - ((barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*lam[2, et5]*
                   (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                  ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2])))) + (lam[1, p6] - ((barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))*
               (lam[2, p5] + (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*
                        lam[2, p2]) + lam[1, p2]*lam[2, p5])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))/((-(barlam[1, p6]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]))))*(-((lam[2, p5] + 
                 (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - 
                    (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                        p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                    barlam[1, p6]*barlam[2, p7])*lam[2, et5]*
                   (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                  ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2])))*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, 
                      p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))) + (lam[1, p5] + (lam[1, et6]*
                  (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p5])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                   lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))/((-(barlam[1, p6]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])))*((barlam[1, p5]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                   {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p5])^2*(-(barlam[1, p7]*barlam[2, p6]) + 
               barlam[1, p6]*barlam[2, p7])^5*((barlam[2, p5]*
                (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p5]*(lam[2, et5]*(lam[1, p5] + 
                     (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                     (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + ((lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))) - (barlam[1, p5]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + (lam[1, et6]*
                       (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                     (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + ((lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))))*(-((barlam[2, p5]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[1, p5]*(lam[2, et5]*(lam[1, p5] + 
                      (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))) + (barlam[1, p5]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + 
                     (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                     (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + ((lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))))*(-(lam[2, p2]*(lam[1, p5] + 
                 (lam[1, et5]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(-(lam[2, p2]*
                         (lam[1, p5] + (lam[1, et6]*(-((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5])) - (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))))) + lam[1, p2]*
                        (lam[2, p5] + (lam[2, et6]*(-((-(barlam[1, p5]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5])) - (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))) - ((barlam[2, p2]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, p2]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                         lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p2]*
                       ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - ((barlam[2, p5]*
                        (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                      (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                     ((lam[2, p5] + (lam[2, et6]*(-((-(barlam[1, p5]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                       ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (lam[1, p5] + 
                        (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                         ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))*((barlam[1, p5]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                        (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                   ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, et5]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))) + (lam[1, et6]*
                   (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                        lam[2, p5])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                     (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))) + lam[1, p2]*(
                lam[2, p5] + (lam[2, et5]*(-((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(-(lam[2, p2]*
                        (lam[1, p5] + (lam[1, et6]*(-((-(barlam[1, p5]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5])) - (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p5] + (lam[2, et6]*
                          (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                         ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))) - 
                   ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, p2]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p2]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - ((barlam[2, p5]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - (barlam[1, p5]*
                       (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))*((lam[2, p5] + 
                       (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (lam[1, p5] + (lam[1, et6]*
                         (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                       (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))/((-(barlam[1, p5]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p5])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))))*((barlam[2, p2]*
                (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*((barlam[2, p5]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*(-(((barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[2, p5]*
                   (lam[2, et5]*(lam[1, p5] + (lam[1, et6]*
                        (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))) + 
              ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p5]*(lam[2, et5]*(lam[1, p5] + 
                     (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                     (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + ((lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             ((lam[2, p5] + (lam[2, et5]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[2, p2]*
                        (lam[1, p5] + (lam[1, et6]*(-((-(barlam[1, p5]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5])) - (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p5] + (lam[2, et6]*
                          (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                         ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))) - 
                   ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, p2]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p2]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - ((barlam[2, p5]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - (barlam[1, p5]*
                       (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))*((lam[2, p5] + 
                       (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (lam[1, p5] + (lam[1, et6]*
                         (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                       (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))/((-(barlam[1, p5]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p5])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])) - (lam[1, p5] + 
                (lam[1, et5]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[2, p2]*
                        (lam[1, p5] + (lam[1, et6]*(-((-(barlam[1, p5]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5])) - (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p5] + (lam[2, et6]*
                          (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                         ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))) - 
                   ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, p2]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p2]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - ((barlam[2, p5]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - (barlam[1, p5]*
                       (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))*((lam[2, p5] + 
                       (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (lam[1, p5] + (lam[1, et6]*
                         (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                       (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))/((-(barlam[1, p5]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p5])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
            ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] + (lam[1, et6]*(-((-(barlam[1, p5]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                     lam[1, et5]*(lam[2, p5] + (lam[2, et6]*
                         (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) - ((lam[2, et5]*
                       ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                       ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
               (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*
                     (lam[1, p5] + (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])) - 
                         (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                    lam[1, et5]*(lam[2, p5] + (lam[2, et6]*
                        (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) - ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))^2*
             ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] + (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])) - 
                         (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                    lam[1, et5]*(lam[2, p5] + (lam[2, et6]*
                        (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) - ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) - (barlam[1, p7]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + 
                      (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) - ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))^2*
             (lam[2, p2]*(lam[1, p5] + (lam[1, et5]*
                  (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(-(lam[2, p2]*(lam[1, p5] + 
                         (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                          ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p5] + (lam[2, et6]*
                          (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                         ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))) - 
                   ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, p2]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p2]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - ((barlam[2, p5]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - (barlam[1, p5]*
                       (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))*((lam[2, p5] + 
                       (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (lam[1, p5] + (lam[1, et6]*
                         (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                       (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))/((-(barlam[1, p5]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p5])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))) - lam[1, p2]*(lam[2, p5] + 
                (lam[2, et5]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[2, p2]*
                        (lam[1, p5] + (lam[1, et6]*(-((-(barlam[1, p5]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5])) - (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p5] + (lam[2, et6]*
                          (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                         ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))) - 
                   ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, p2]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p2]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - ((barlam[2, p5]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - (barlam[1, p5]*
                       (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))*((lam[2, p5] + 
                       (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (lam[1, p5] + (lam[1, et6]*
                         (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                       (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))/((-(barlam[1, p5]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p5])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))))*
             (-(lam[2, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, 
                      p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))) + lam[1, p2]*((barlam[1, p5]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             (((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[2, p2] + (-((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                  (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                  (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1])))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
              ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[1, p2] + (-((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                  (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                  (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                    barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1])))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                   {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p6])^2*(barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                barlam[2, p7])^5*(-(lam[2, p2]*(lam[1, p6] + 
                 (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - 
                    ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                      (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                     (lam[2, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                         lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      lam[1, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                      (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                     (lam[2, p6]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                         lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      lam[1, p6]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, et5]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))) + lam[1, p2]*(
                lam[2, p6] + (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                        lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                   ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, p2]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p2]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - ((barlam[2, p6]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - (barlam[1, p6]*
                       (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))*(lam[2, p6]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p6]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
             ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 ((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))) - (barlam[1, p6]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                       lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))))*(-((barlam[2, p6]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))) + (barlam[1, p6]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))))*((barlam[2, p2]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*((barlam[2, p6]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*(-(((barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))) + 
              ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             ((lam[2, p6] + (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, p2]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p2]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - ((barlam[2, p6]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - (barlam[1, p6]*
                       (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))*(lam[2, p6]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p6]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
              (lam[1, p6] + (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, p2]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p2]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - ((barlam[2, p6]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - (barlam[1, p6]*
                       (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))*(lam[2, p6]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p6]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
            ((lam[2, p2]*(lam[1, p6] + (lam[1, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - ((barlam[2, p2]*(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, p2]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p2]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - ((barlam[2, p6]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - (barlam[1, p6]*
                       (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))*(lam[2, p6]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p6]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) - 
              lam[1, p2]*(lam[2, p6] + (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - ((barlam[2, p2]*(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, p2]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p2]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - ((barlam[2, p6]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) - (barlam[1, p6]*
                       (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))*(lam[2, p6]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p6]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
             ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                  ((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) - (barlam[1, p5]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))^2*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                   ((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                         lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                     (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                        barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))/((-(barlam[1, p6]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
               (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                  ((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))^2*
             (-(lam[2, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, 
                      p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))) + lam[1, p2]*((barlam[1, p5]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             (((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[2, p2] + (-((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                  (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                  (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1])))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
              ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[1, p2] + (-((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                  (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                  (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                    barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1])))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             ((lam[2, p5] + (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p5])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p5] + (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p5])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p5])*(-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[
                2, p6])*((barlam[2, p2]*(-(((lam[2, et5]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))) - barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                    lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) - (barlam[1, p2]*
                (-(((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                    lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*(-((barlam[2, p2]*
                 (-(((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                         lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                     (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                        barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))))) + (barlam[1, p2]*
                (-(((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                    lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*(-((barlam[2, p5]*
                 (-(((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                         lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                     (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                        barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))))) + (barlam[1, p5]*
                (-(((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                    lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*(-((barlam[2, p6]*
                  (-(((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                         (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                          lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                         (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/(((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))) + (barlam[1, p6]*
                 (-(((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                         lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                     (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                        barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))))^2*((barlam[2, p7]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
               (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))^5*
             (-((-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p7]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, p6] - 
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   lam[2, et5]*(-(((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) + ((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((-(barlam[1, p6]*barlam[2, p5]) + 
                    barlam[1, p5]*barlam[2, p6])*(lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))*
                ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))) + (-((barlam[2, p7]*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (barlam[1, p7]*
                  (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[1, p6] - 
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  lam[1, et5]*(-(((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*(lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))))*((barlam[1, p5]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             (-((-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p7]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, p5] + 
                 (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - 
                    (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                        p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) - ((-(barlam[1, p7]*barlam[2, p6]) + 
                    barlam[1, p6]*barlam[2, p7])*lam[2, et5]*
                   (-(((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                  ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p6])*(lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                       lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))*
                ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))) + (-((barlam[2, p7]*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (barlam[1, p7]*
                  (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[1, p5] + 
                (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p5])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*lam[1, et5]*(-(((barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1])) + 
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*(lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))))*((barlam[1, p5]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
            (((barlam[2, p7]*(((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))) - (barlam[1, p7]*
                 (((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))))^2*
             (((((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))*((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))) - 
               ((((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))*((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))))^2*
             (lam[2, p2]*(lam[1, p5] + (lam[1, et6]*
                  (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p5])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*lam[1, et5]*(-(((barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1])) + 
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*(lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))) - lam[1, p2]*(lam[2, p5] + 
                (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p5])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*lam[2, et5]*(-(((barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1])) + 
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*(lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))))*(-((lam[1, p5] + (lam[1, et6]*
                   (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                        lam[2, p5])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                     (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - 
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                      p7])*lam[1, et5]*(-(((barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                       (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + 
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                  ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p6])*(lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                       lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))*(lam[2, p6] - 
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   lam[2, et5]*(-(((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) + ((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((-(barlam[1, p6]*barlam[2, p5]) + 
                    barlam[1, p5]*barlam[2, p6])*(lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))) + (lam[1, p6] - 
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  lam[1, et5]*(-(((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*(lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))))*(lam[2, p5] + (lam[2, et6]*
                  (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p5])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*lam[2, et5]*(-(((barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1])) + 
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*(lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))))*((-((barlam[2, p7]*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (barlam[1, p7]*
                  (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[2, p6] - 
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  lam[2, et5]*(-(((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*(lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))))*((barlam[1, p5]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
              (-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))) + (barlam[1, p7]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[1, p6] - 
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  lam[1, et5]*(-(((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                 ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*(lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))))*((barlam[1, p5]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             (-(((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                 (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + ((barlam[1, p5]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p6])^5*(barlam[1, p7]*barlam[2, p5] - 
              barlam[1, p5]*barlam[2, p7])*(-((barlam[2, p5]*
                  (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                       lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])))/((-(barlam[1, p6]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]))) + (barlam[1, p5]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])))/((-(barlam[1, p6]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])))^2*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                    p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[
                2, p2]*(lam[1, p5] - ((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                  (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p5])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))) - (barlam[1, p6]*
                 barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2]*(
                lam[2, p5] - ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                    barlam[2, p7])*lam[2, et5]*(-(lam[1, p6]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p6]))/((barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) + (lam[2, et6]*
                  (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p5])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))))*((barlam[2, p7]*
                (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*(((-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))*
                (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
              ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]))*(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p6]*
                    barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                 (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))) + 
              ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*((barlam[1, p6]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p6])*lam[2, p2]*(lam[1, p7] - 
                ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*lam[1, et5]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) + (lam[1, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]) - (barlam[1, p6]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p6])*lam[1, p2]*(
                -(((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p6])*lam[2, et5]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p6]))/((barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]))) + lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
            ((-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
             (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p2]))) + (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))^
              2*((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
               (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))^
              2*(-((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                   p6])*lam[2, p2]*(lam[1, p5] - ((-(barlam[1, p7]*barlam[2, 
                       p6]) + barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                   (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2])) + (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*
                      (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])) - 
                    (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                        p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))) + (barlam[1, p6]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p6])*lam[1, p2]*(lam[2, p5] - 
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*lam[2, et5]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) + (lam[2, et6]*
                  (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p5])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))))*
             (-((lam[2, p5] - ((-(barlam[1, p7]*barlam[2, p6]) + 
                    barlam[1, p6]*barlam[2, p7])*lam[2, et5]*
                   (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2])) + (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*
                      (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])) - 
                    (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                        p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))*(lam[1, p7] - ((-(barlam[1, p6]*barlam[2, 
                       p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, et5]*
                   (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2])) + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                   m1])) + (lam[1, p5] - ((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                  (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p5])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(
                -(((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p6])*lam[2, et5]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p6]))/((barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]))) + lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*(
                lam[1, p7] - ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                    barlam[2, p6])*lam[1, et5]*(-(lam[1, p6]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p6]))/((barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) + (lam[1, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]) - ((barlam[1, p5]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]))*(
                -(((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p6])*lam[2, et5]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p6]))/((barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]))) + lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p5])^5*(-(barlam[1, p7]*barlam[2, p6]) + 
              barlam[1, p6]*barlam[2, p7])*(-((barlam[2, p6]*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] + 
                      (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2]))) + (barlam[1, p6]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + 
                     (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                     (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                  lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] + (lam[1, et6]*(-((-(barlam[1, p5]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                     lam[1, et5]*(lam[2, p5] + (lam[2, et6]*
                         (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]))) + (barlam[1, p7]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + 
                      (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])))^2*
             ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                2, p2]*(lam[1, p6] - ((barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, p5] + (lam[1, et6]*
                        (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p5] + 
                     (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]))) - 
              (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                1, p2]*(lam[2, p6] - ((barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p5] + (lam[1, et6]*
                        (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p5] + 
                     (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]))))*
             ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + 
                     (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                     (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))*(barlam[1, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) - ((-(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p5]*
                  (lam[2, et5]*(lam[1, p5] + (lam[1, et6]*
                       (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                     (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + 
                      (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))*(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                    barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                 (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))) + 
              ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] + 
                     (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                     (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*((barlam[1, p5]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p5])*lam[2, p2]*(lam[1, p7] - 
                ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p5] + 
                      (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p5] + 
                     (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                1, p2]*(lam[2, p7] - ((-(barlam[1, p6]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p6])*lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p5] + (lam[1, et6]*
                        (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p5] + 
                     (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
            ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] + (lam[1, et6]*(-((-(barlam[1, p5]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                     lam[1, et5]*(lam[2, p5] + (lam[2, et6]*
                         (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]))) + (barlam[1, p2]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + 
                      (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])))^2*
             ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] + (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])) - 
                         (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                    lam[1, et5]*(lam[2, p5] + (lam[2, et6]*
                        (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])) - (barlam[1, p5]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + 
                      (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])))^2*
             (-(lam[2, p2]*(lam[1, p5] + (lam[1, et6]*
                   (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                        lam[2, p5])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                     (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))) + lam[1, p2]*(
                lam[2, p5] + (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*
                        lam[2, p2]) + lam[1, p2]*lam[2, p5])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))))*
             (-((lam[2, p6] - ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p7])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p5] + 
                       (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p5] + 
                      (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                       p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])))*
                ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))) + (lam[1, p6] - 
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  lam[1, et5]*(-(lam[2, p2]*(lam[1, p5] + (lam[1, et6]*
                        (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p5] + 
                     (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                lam[2, p2]*(lam[1, p7] - ((-(barlam[1, p6]*barlam[2, p5]) + 
                    barlam[1, p5]*barlam[2, p6])*lam[1, et5]*
                   (-(lam[2, p2]*(lam[1, p5] + (lam[1, et6]*
                         (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p5] + 
                      (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                       p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                1, p2]*(lam[2, p7] - ((-(barlam[1, p6]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p6])*lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p5] + (lam[1, et6]*
                        (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p5] + 
                     (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((lam[2, p6] - ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                    barlam[2, p7])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p5] + 
                      (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p5] + 
                     (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])))*(lam[1, p7] - 
                ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p5] + 
                      (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p5] + 
                     (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p6] - ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                    barlam[2, p7])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p5] + 
                      (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p5] + 
                     (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])))*(lam[2, p7] - 
                ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p5] + 
                      (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p5] + 
                     (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p7])*(barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                p7])*((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p6])) - 
                 ((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(((barlam[2, p6]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - (barlam[1, p6]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                    lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) - (barlam[1, p2]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                       lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(((barlam[2, p6]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - (barlam[1, p6]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                    lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*(-((barlam[2, p2]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                (((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))))) + (barlam[1, p2]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                       lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(((barlam[2, p6]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - (barlam[1, p6]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                    lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*(-((barlam[2, p5]*
                  (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                       lam[2, p6])) - ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                        (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                         lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                 (((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))) + (barlam[1, p5]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                (((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))))^2*(-((barlam[2, p7]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                (((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))))) + (barlam[1, p7]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                       lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(((barlam[2, p6]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - (barlam[1, p6]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                    lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*((barlam[2, p6]*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
               (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))^5*
             (-((-((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p6]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, p5] - 
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                      p7])*lam[2, et5]*(lam[2, p6]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, p6]*((barlam[1, p5]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                       lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*
                     barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                 (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - 
                    (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                        p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                 (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
              (-((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))) + (barlam[1, p6]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[1, p5] - 
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*lam[1, et5]*(lam[2, p6]*((barlam[1, p5]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, p6]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[1, et6]*
                  (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p5])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             ((-((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))) + (barlam[1, p6]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]))*(lam[1, p7] - 
                ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*lam[1, et5]*(lam[2, p6]*((barlam[1, p5]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, p6]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[1, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]) - (-((barlam[2, p6]*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (barlam[1, p6]*
                  (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]))*(lam[2, p7] - 
                ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*lam[2, et5]*(lam[2, p6]*((barlam[1, p5]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, p6]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1])))/
            (((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                (((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))) - (barlam[1, p6]*(barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                (((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))))^2*
             (((barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))*((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))) - ((barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                  barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))*((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))))^2*
             (lam[2, p6]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1])) - lam[1, p6]*((barlam[1, p5]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             ((-((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))) + (barlam[1, p6]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[2, p5] - 
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*lam[2, et5]*(lam[2, p6]*((barlam[1, p5]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, p6]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[2, et6]*
                  (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p5])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
              (-((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))) + (barlam[1, p6]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[1, p5] - 
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*lam[1, et5]*(lam[2, p6]*((barlam[1, p5]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, p6]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[1, et6]*
                  (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p5])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             (lam[2, p2]*(lam[1, p7] - ((-(barlam[1, p6]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p6])*lam[1, et5]*(lam[2, p6]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, p6]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[1, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] - 
                ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*lam[2, et5]*(lam[2, p6]*((barlam[1, p5]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, p6]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))*(-((lam[2, p5] - 
                 ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                      p7])*lam[2, et5]*(lam[2, p6]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, p6]*((barlam[1, p5]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                       lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))/((barlam[1, p7]*
                     barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                 (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - 
                    (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                        p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                       lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))*(lam[1, p7] - ((-(barlam[1, p6]*barlam[2, 
                       p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, et5]*
                   (lam[2, p6]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, p6]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                       lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))) + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + (lam[1, p5] - 
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*lam[1, et5]*(lam[2, p6]*((barlam[1, p5]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, p6]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[1, et6]*
                  (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p5])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, p5] - 
                     lam[1, p5]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*(lam[2, p7] - 
                ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*lam[2, et5]*(lam[2, p6]*((barlam[1, p5]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - lam[1, p6]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p6])*(-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[
                2, p7])*((barlam[2, p2]*(-(barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] + (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])) - 
                         (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                    lam[1, et5]*(lam[2, p5] + (lam[2, et6]*
                        (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))) - ((lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(((barlam[2, p5]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - (barlam[1, p5]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                    lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) - (barlam[1, p2]*
                (-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + (lam[1, et6]*
                        (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))) - ((lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(((barlam[2, p5]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - (barlam[1, p5]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                    lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*(-((barlam[2, p2]*
                 (-(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] + (lam[1, et6]*
                         (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                       (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))) - ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                (((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))))) + (barlam[1, p2]*
                (-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + (lam[1, et6]*
                        (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))) - ((lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(((barlam[2, p5]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - (barlam[1, p5]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                    lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*(-((barlam[2, p6]*
                 (-(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] + (lam[1, et6]*
                         (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                       (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))) - ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                (((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))))) + (barlam[1, p6]*
                (-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + (lam[1, et6]*
                        (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))) - ((lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))/(((barlam[2, p5]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - (barlam[1, p5]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                    lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*(-((barlam[2, p7]*
                  (-(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] + (lam[1, et6]*
                          (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                         ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))) - lam[1, et5]*
                       (lam[2, p5] + (lam[2, et6]*(-((-(barlam[1, p5]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))) - ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                        (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                         lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))/
                 (((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))) + (barlam[1, p7]*
                 (-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + (lam[1, et6]*
                         (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                       (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p6]) + barlam[1, p6]*barlam[2, p7])*
                          (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))) - ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                (((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))))^2*((barlam[2, p5]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
               (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))^5*(-((lam[2, p6] - 
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   lam[2, et5]*((lam[2, p5] + (lam[2, et6]*
                        (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (lam[1, p5] + (lam[1, et6]*
                        (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p7]*barlam[2, 
                       p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))*
                (-((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p5]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, 
                     p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                 (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]))) + (lam[1, p6] - 
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  lam[1, et5]*((lam[2, p5] + (lam[2, et6]*
                       (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (lam[1, p5] + (lam[1, et6]*
                       (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))*(-((barlam[2, p5]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (barlam[1, p5]*
                  (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             ((-((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))) + (barlam[1, p5]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]))*(lam[1, p7] - 
                ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*lam[1, et5]*((lam[2, p5] + (lam[2, et6]*
                       (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (lam[1, p5] + (lam[1, et6]*
                       (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[1, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]) - (-((barlam[2, p5]*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (barlam[1, p5]*
                  (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]))*(lam[2, p7] - 
                ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*lam[2, et5]*((lam[2, p5] + (lam[2, et6]*
                       (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (lam[1, p5] + (lam[1, et6]*
                       (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1])))/((lam[2, p2]*(lam[1, p6] - 
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  lam[1, et5]*((lam[2, p5] + (lam[2, et6]*
                       (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (lam[1, p5] + (lam[1, et6]*
                       (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))) - lam[1, p2]*(
                lam[2, p6] - ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                    barlam[2, p7])*lam[2, et5]*((lam[2, p5] + (lam[2, et6]*
                       (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (lam[1, p5] + (lam[1, et6]*
                       (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))))*
             ((barlam[2, p5]*(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] + 
                      (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                (((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))) - (barlam[1, p5]*(barlam[2, p5]*
                   (lam[2, et5]*(lam[1, p5] + (lam[1, et6]*
                        (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))))/
                (((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))))^2*
             (((barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + (lam[1, et6]*
                        (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))*((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))) - ((barlam[1, p5]*
                   (lam[2, et5]*(lam[1, p5] + (lam[1, et6]*
                        (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                  barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))*((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))))^2*
             ((lam[2, p5] + (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p5])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])) - (lam[1, p5] + 
                (lam[1, et6]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p5])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             ((lam[2, p6] - ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                    barlam[2, p7])*lam[2, et5]*((lam[2, p5] + (lam[2, et6]*
                       (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (lam[1, p5] + (lam[1, et6]*
                       (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))*(lam[1, p7] - 
                ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*lam[1, et5]*((lam[2, p5] + (lam[2, et6]*
                       (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (lam[1, p5] + (lam[1, et6]*
                       (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[1, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]) - (lam[1, p6] - 
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  lam[1, et5]*((lam[2, p5] + (lam[2, et6]*
                       (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (lam[1, p5] + (lam[1, et6]*
                       (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))*(lam[2, p7] - 
                ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*lam[2, et5]*((lam[2, p5] + (lam[2, et6]*
                       (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (lam[1, p5] + (lam[1, et6]*
                       (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))*
             (-((-((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) + (barlam[1, p5]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, 
                     p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                 (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1]))*(lam[1, p7] - 
                 ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p6])*lam[1, et5]*((lam[2, p5] + (lam[2, et6]*
                        (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (lam[1, p5] + (lam[1, et6]*
                        (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                          lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p7]*barlam[2, 
                       p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))) + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + (-((barlam[2, p5]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (barlam[1, p5]*
                  (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]))*(lam[2, p7] - 
                ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p6])*lam[2, et5]*((lam[2, p5] + (lam[2, et6]*
                       (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (lam[1, p5] + (lam[1, et6]*
                       (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])) - (-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p7])*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])^
              5*(-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                 p7])^2*((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))) - (barlam[1, p7]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))))*(-((barlam[2, p7]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))) + (barlam[1, p7]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                       lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1])))))*((barlam[2, p2]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*((barlam[2, p7]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*(-(((barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  ((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                        lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                        lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                (((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))))) + 
              ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                       lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))*
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             (-(lam[2, p2]*(lam[1, p7] + (lam[1, et5]*
                   (-(((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                       (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                      (lam[2, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                          lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       lam[1, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                          lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - ((barlam[2, p7]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                         (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + 
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, et5]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))) + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                (lam[2, et5]*(-(((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, 
                          p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, p2]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                         lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p2]*
                       ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))) - (-(barlam[1, p7]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                    (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                        (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + 
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-(((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                 (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*(lam[1, p7] + (lam[1, et5]*
                   (-(((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                       (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                          barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                      (lam[2, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                          lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                       lam[1, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                          lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - ((barlam[2, p7]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                         (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + 
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, et5]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))) + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + ((barlam[1, p5]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1]))*(lam[2, p7] + 
                (lam[2, et5]*(-(((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, 
                          p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(lam[2, p2]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                         lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, p2]*
                       ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))) - (-(barlam[1, p7]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                    (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                        (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + 
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
            ((-(lam[2, p6]*(lam[1, p5] + (lam[1, et6]*
                   (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                        lam[2, p5])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6]) - (barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6]) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) - (-(barlam[1, p7]*
                        barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                     (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))) + lam[1, p6]*(
                lam[2, p5] + (lam[2, et6]*(-((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*
                        lam[2, p2]) + lam[1, p2]*lam[2, p5])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, p5] - lam[1, p5]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])) - (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))))*
             ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))) - (barlam[1, p5]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) - lam[1, et5]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))^2*
             (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - ((lam[2, et5]*
                       ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                       ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + ((barlam[2, p7]*(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
               (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[
                          2, p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p6])*lam[2, p6] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))))^2*
             (-(lam[2, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, 
                      p5]) + barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                 (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))) + lam[1, p2]*((barlam[1, p5]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             (((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, p7])*
                 lam[2, p2] + (-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                  (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1])))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
              ((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, p7])*
                 lam[1, p2] + (-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                  (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                      p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                    barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1])))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[2, p2] + (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             (lam[2, p2]*(lam[1, p7] + (lam[1, et5]*
                  (-(((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                      (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                     (lam[2, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                         lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      lam[1, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                        (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + 
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              lam[1, p2]*(lam[2, p7] + (lam[2, et5]*
                  (-(((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                      (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                     (lam[2, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                         lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                      lam[1, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                         lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))*(-(((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                        (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + 
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p6])*lam[1, p6] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[1, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*
                          barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
                       lam[2, p6] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
          ((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
            (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1])^
           5)/((lam[2, p4]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
              spb[p3, p7]) - lam[1, p4]*(lam[2, m1]*spb[m1, p7] + 
             lam[2, p3]*spb[p3, p7]))*
          ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) - 
               barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                  lam[2, p6]) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1]))) - (barlam[1, p4]*(-(barlam[2, p2]*
                 (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
               barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                  lam[2, p5]) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6]) - barlam[2, p7]*(lam[2, et6]*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                    spba[p7, {m1, p3}, m1]))))/
             ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*(
                lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
              (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*(
                lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
              (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*(
                lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
          ((barlam[2, p3]*spa[p3, m1]*(-(barlam[1, p2]*(lam[1, p2]*
                   lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) - 
               barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                  lam[2, p6]) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))))/(((-(barlam[1, p5]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1])))*spba[p7, {m1, p3}, m1]) - 
            (barlam[1, p3]*spa[p3, m1]*(-(barlam[2, p2]*(lam[1, p2]*
                   lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) - 
               barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                  lam[2, p6]) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))))/(((-(barlam[1, p5]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1])))*spba[p7, {m1, p3}, m1]))^2) + 
        (((-10*CK*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])^
              5*(barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
             (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))))/((barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]))) + (barlam[1, p4]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]))))))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             ((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - barlam[1, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]))))))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
              (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - barlam[2, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]))))))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))))/((barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]))) + (barlam[1, p7]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]))))))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
               lam[2, p6]*(-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p5])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + lam[1, p6]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p4]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                          m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))) + lam[1, p2]*(-((barlam[1, p3]*barlam[2, 
                      p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])) - (-(barlam[1, p6]*barlam[2, p5]) + 
                barlam[1, p5]*barlam[2, p6])*lam[1, p6]*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + lam[1, p6]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p4]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                          m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))) + lam[2, p2]*(-((barlam[1, p3]*barlam[2, 
                      p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*((-(barlam[1, p6]*barlam[2, p5]) + 
                barlam[1, p5]*barlam[2, p6])*lam[2, p6]*(lam[1, p4] - 
                (lam[1, et5]*(-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])))) + 
                   lam[1, p6]*(lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))))*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
              (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
               lam[1, p6]*(lam[2, p4] - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + lam[1, p6]*(lam[2, p5] - 
                     (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))))*((barlam[2, p5]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]))) + (barlam[1, p4]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])))*
             (((-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))))*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
               ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))))*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*((barlam[1, p3]*barlam[2, p2]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2)/
            (((barlam[2, p5]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))))/((barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])) - (barlam[1, p5]*(barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))))))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))))/((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) + (barlam[1, p6]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))))/((barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*
             (-((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                   p6])*lam[2, p6]*(-(((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*lam[1, et5]*
                    (-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + lam[1, p6]*
                      (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))))/((lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])*(-((barlam[2, p4]*
                        (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) + 
                 lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
               lam[1, p6]*(-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p5])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + lam[1, p6]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p4]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                          m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))) + lam[2, p2]*(-((barlam[1, p3]*barlam[2, 
                      p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*(-(lam[2, p6]*(lam[1, p5] - 
                 (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                       lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))) + lam[1, p6]*(lam[2, p5] - (lam[2, et6]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             (-((-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p5] - 
                        (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))) + lam[1, p6]*
                      (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))))/((lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])*(-((barlam[2, p4]*
                        (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) + 
                 lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*(lam[1, p4] - 
                 (lam[1, et5]*(-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])))) + 
                    lam[1, p6]*(lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))))*
                   ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])*(-((barlam[2, p4]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                    (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))) + 
              (-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[1, et5]*(-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])))) + 
                    lam[1, p6]*(lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))) + lam[1, p2]*(-((barlam[1, p3]*barlam[2, 
                      p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[2, p4] - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + lam[1, p6]*
                    (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))))*((barlam[2, p5]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             (-((lam[2, p4] - (lam[2, et5]*(-(lam[2, p6]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + lam[1, p6]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))*((barlam[2, p5]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])*(-((barlam[2, p4]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                    (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])))) - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                   m1])) + (lam[1, p4] - (lam[1, et5]*(-(lam[2, p6]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + lam[1, p6]*(lam[2, p5] - 
                     (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))))*((barlam[2, p5]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                  m1]))) - (10*CK*(barlam[1, p6]*barlam[2, p4] - barlam[1, 
                 p4]*barlam[2, p6])^5*(-((barlam[2, p5]*(-(barlam[1, p6]*
                     (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                   barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) - lam[1, et5]*
                      (lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))))/((barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) + (barlam[1, p5]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*((barlam[2, p7]*
                (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
              (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]))) + (barlam[1, p7]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[2, p6]*(-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p5])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + lam[1, p6]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*((barlam[2, p5]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))) + lam[1, p2]*(-((barlam[1, p3]*barlam[2, 
                      p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])) - (-(barlam[1, p6]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p6])*lam[1, p6]*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + lam[1, p6]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*((barlam[2, p5]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))) + lam[2, p2]*(-((barlam[1, p3]*barlam[2, 
                      p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*((-(barlam[1, p6]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p6])*lam[2, p6]*(lam[1, p5] - 
                (lam[1, et5]*(-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + lam[1, p6]*
                    (lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))))*(-((barlam[2, p4]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
              (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[1, p6]*(lam[2, p5] - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + lam[1, p6]*(lam[2, p4] - 
                     (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))))*(-((barlam[2, p4]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])) - (barlam[1, p5]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])))*(-((barlam[2, p7]*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]))) + (barlam[1, p7]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])))*
             (((-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))))*
                (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])) - ((-(barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                 barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) - lam[1, et5]*
                    (lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])))))*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1]))))/
            (((barlam[2, p4]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])) - (barlam[1, p4]*(barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) - lam[1, et5]*
                     (lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*
             (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))))/((barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) + (barlam[1, p6]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*
             (-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p6])*lam[2, p6]*(lam[1, p5] - (lam[1, et5]*
                   (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + lam[1, p6]*
                     (lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))*(-((barlam[2, p4]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                    (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))/((lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))) + (-(barlam[1, p6]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p6])*lam[1, p6]*(lam[2, p5] - 
                (lam[2, et5]*(-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + lam[1, p6]*
                    (lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))))*(-((barlam[2, p4]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             ((-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[2, et5]*(-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + lam[1, p6]*
                     (lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*((barlam[2, p5]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))) + lam[2, p2]*(-((barlam[1, p3]*barlam[2, 
                      p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[1, p5] - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + lam[1, p6]*
                    (lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))))*(-((barlam[2, p4]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
              (-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[1, et5]*(-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + lam[1, p6]*
                     (lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*((barlam[2, p5]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))) + lam[1, p2]*(-((barlam[1, p3]*barlam[2, 
                      p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[2, p5] - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + lam[1, p6]*
                    (lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))))*(-((barlam[2, p4]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                    lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))) + lam[1, p6]*(lam[2, p4] - (lam[2, et6]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             (-((-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                        (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))) + lam[1, p6]*
                      (lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))))/((lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])*((barlam[2, p5]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[2, p2]*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[1, et5]*(-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + lam[1, p6]*
                     (lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*((barlam[2, p5]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))) + lam[1, p2]*(-((barlam[1, p3]*barlam[2, 
                      p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
             (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])^2*
             (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
             ((barlam[2, p4]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p4]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[2, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[2, p4]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
              (barlam[1, p4]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[2, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             ((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p6]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[2, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (-(lam[2, p6]*(lam[1, p4] + (lam[1, et5]*(-((barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + lam[1, p6]*
                        (lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))))) - (-(barlam[1, p7]*
                        barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                     (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))) + 
              lam[1, p6]*(lam[2, p4] + (lam[2, et5]*(-((barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + lam[1, p6]*
                       (lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))))) - (-(barlam[1, p7]*
                       barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                    (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))/((barlam[1, p6]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             ((lam[2, p4] + (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))) + lam[1, p6]*
                       (lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))))) - (-(barlam[1, p7]*
                       barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                    (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))/((barlam[1, p6]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p4] + (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))) + lam[1, p6]*
                       (lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))))) - (-(barlam[1, p7]*
                       barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                    (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))/((barlam[1, p6]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p5]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1])))^5)/
            ((-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
               (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
             (-(lam[2, p6]*((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                    barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, 
                      p4]) + barlam[1, p4]*barlam[2, p7])*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
              lam[1, p6]*((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                  {m1, p3}, m1]) - lam[1, p6]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((lam[2, p4] + (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*
                         (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p2])))) + lam[1, p6]*(lam[2, p4] - 
                         (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))))) - (-(barlam[1, p7]*
                        barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                     (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                   m1])) + (lam[1, p4] + (lam[1, et5]*
                  (-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*(-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + lam[1, p6]*
                       (lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))))) - (-(barlam[1, p7]*
                       barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                    (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))/((barlam[1, p6]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                -((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                   {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p5] - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                -((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                   {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]))*
             (-(((-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                       lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) - barlam[2, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                  (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1])))^2) - 
           (10*CK*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
             (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])^2*
             (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
             ((barlam[2, p5]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[1, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))) - (barlam[1, p5]*(barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p5]*
                  (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) - lam[1, et5]*
                    (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])))) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*(-((barlam[2, p5]*(barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
              (barlam[1, p5]*(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[2, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                   lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))))*((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p5]*
                  (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) - lam[1, et5]*
                    (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])))) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))) - (barlam[1, p6]*(barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (-(lam[2, p6]*(lam[1, p5] + (lam[1, et5]*(-((barlam[1, p6]*
                        barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                      (-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + lam[1, p6]*
                        (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))))) - (-(barlam[1, p7]*
                        barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                     (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))) + lam[1, p6]*(lam[2, p5] + (lam[2, et5]*
                  (-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p6])*(-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])))) + 
                      lam[1, p6]*(lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))))) - 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*((lam[2, p5] - (lam[2, et6]*
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             ((lam[2, p5] + (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))) + lam[1, p6]*
                       (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))))) - (-(barlam[1, p7]*
                       barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                    (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))/((barlam[1, p6]*barlam[2, 
                      p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p5] + (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))) + lam[1, p6]*
                       (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))))) - (-(barlam[1, p7]*
                       barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                    (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))/((barlam[1, p6]*barlam[2, 
                      p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p4]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1])))^5)/
            ((-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p6])) - barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
               (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - barlam[2, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
             (-(lam[2, p6]*((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                    barlam[2, p6])*lam[1, p6] + (-(barlam[1, p7]*barlam[2, 
                      p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
              lam[1, p6]*((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p6])*lam[2, p6] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                  {m1, p3}, m1]) - lam[1, p6]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((lam[2, p5] + (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p6])*(-(lam[2, p6]*
                         (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p2])))) + lam[1, p6]*(lam[2, p5] - 
                         (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))))) - (-(barlam[1, p7]*
                        barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                     (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + (lam[1, p5] + 
                (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p6])*(-(lam[2, p6]*(lam[1, p5] - 
                         (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))) + lam[1, p6]*
                       (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))))) - (-(barlam[1, p7]*
                       barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                    (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))/((barlam[1, p6]*barlam[2, 
                      p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (lam[2, p2]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                -((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                   {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p4] - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                -((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                   {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]))*
             (-(((-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                       lam[2, p6])) - barlam[2, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) - barlam[2, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                  (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p6]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1])))^2) - 
           (10*CK*(barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
             (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])^5*
             (-((barlam[2, p4]*(-(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
              (barlam[1, p4]*(-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             ((barlam[2, p6]*(-(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p6]*(-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
              (barlam[1, p6]*(-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                   p7])*(-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p5])*lam[2, et5]*((lam[2, p5] - (lam[2, et6]*
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) + 
                 lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[1, et5]*((lam[2, p5] - (lam[2, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))) + lam[1, p2]*(-((barlam[1, p3]*barlam[2, 
                      p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))*(-((-(barlam[1, p7]*barlam[2, 
                    p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p4] - 
                 (lam[2, et5]*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*((barlam[2, p5]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])))) - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                   m1])) + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                 barlam[2, p7])*(lam[1, p4] - (lam[1, et5]*
                  ((lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (lam[1, p5] - (lam[1, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]))) + (barlam[1, p4]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])))*
             (((-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
                     lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))))) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1])) - ((-(barlam[1, p5]*
                    (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) - lam[1, et5]*
                      (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1])))^2)/
            (((barlam[2, p5]*(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
               (barlam[1, p5]*(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
             (-((barlam[2, p7]*(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
               (barlam[1, p7]*(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
             (lam[2, p6]*(lam[1, p4] - (lam[1, et5]*((lam[2, p5] - 
                     (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (lam[1, p5] - (lam[1, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
              lam[1, p6]*(lam[2, p4] - (lam[2, et5]*((lam[2, p5] - 
                     (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (lam[1, p5] - (lam[1, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             (-((-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*lam[2, et5]*((lam[2, p5] - (lam[2, et6]*
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) + 
                 lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*(lam[1, p4] - 
                 (lam[1, et5]*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*((barlam[2, p5]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))) + 
              (-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[1, et5]*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[2, p4]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                          m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))) + lam[1, p2]*(-((barlam[1, p3]*barlam[2, 
                      p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[2, p4] - (lam[2, et5]*
                  ((lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (lam[1, p5] - (lam[1, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*((lam[2, p5] - (lam[2, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))) + lam[2, p2]*(-((barlam[1, p3]*barlam[2, 
                      p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]) - (-(barlam[1, p7]*barlam[2, p5]) + 
                barlam[1, p5]*barlam[2, p7])*(-(((barlam[1, p5]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et5]*
                   ((lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (lam[1, p5] - (lam[1, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))) + lam[1, p2]*(-((barlam[1, p3]*barlam[2, 
                      p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))*((lam[2, p5] - (lam[2, et6]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                  m1]))) - (10*CK*(barlam[1, p7]*barlam[2, p4] - barlam[1, 
                 p4]*barlam[2, p7])^5*(-((barlam[2, p5]*(-(barlam[1, p4]*
                     (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) - lam[1, et5]*
                       (lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))))) - barlam[1, p7]*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
               (barlam[1, p5]*(-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
             ((barlam[2, p6]*(-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p6]*(-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[2, p6]*(-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
              (barlam[1, p6]*(-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p7])*(-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p5])*lam[2, et5]*((lam[2, p4] - (lam[2, et6]*
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*((barlam[2, p5]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                          m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[2, p2]*
                  (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[1, et5]*((lam[2, p4] - (lam[2, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*((barlam[2, p5]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))) + lam[1, p2]*(-((barlam[1, p3]*barlam[2, 
                      p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))*(-((-(barlam[1, p7]*barlam[2, 
                    p4]) + barlam[1, p4]*barlam[2, p7])*(lam[2, p5] - 
                 (lam[2, et5]*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[2, p4]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                          m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])))) - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p4]) + barlam[1, p4]*barlam[2, p7])*(lam[1, p5] - 
                (lam[1, et5]*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*(-((barlam[2, p4]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])) - (barlam[1, p5]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])))*(-((barlam[2, p6]*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]))) + (barlam[1, p6]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])))*
             (((-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) - lam[1, et5]*
                     (lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])) - ((-(barlam[1, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) - lam[1, et5]*
                     (lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1]))))/
            (((barlam[2, p4]*(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
               (barlam[1, p4]*(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
             (-((barlam[2, p7]*(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
               (barlam[1, p7]*(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
             (lam[2, p6]*(-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p5])*lam[1, et5]*((lam[2, p4] - (lam[2, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*((barlam[2, p5]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))) + lam[1, p2]*(-((barlam[1, p3]*barlam[2, 
                      p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])) - lam[1, p6]*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*((lam[2, p4] - (lam[2, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*((barlam[2, p5]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))) + lam[2, p2]*(-((barlam[1, p3]*barlam[2, 
                      p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*((-(((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*lam[2, et5]*
                   ((lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (lam[1, p4] - (lam[1, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))) + lam[2, p2]*(-((barlam[1, p3]*barlam[2, 
                      p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[1, p5] - (lam[1, et5]*
                  ((lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (lam[1, p4] - (lam[1, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
              (-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   lam[1, et5]*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*((barlam[2, p5]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))) + lam[1, p2]*(-((barlam[1, p3]*barlam[2, 
                      p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                  (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[2, p5] - (lam[2, et5]*
                  ((lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (lam[1, p4] - (lam[1, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             ((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*(
                lam[2, p5] - (lam[2, et5]*((lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*(-((barlam[2, p4]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*(
                lam[1, p5] - (lam[1, et5]*((lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*(-((barlam[2, p4]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                  m1]))) - (10*CK*(barlam[1, p5]*barlam[2, p4] - barlam[1, 
                 p4]*barlam[2, p5])^5*(-(barlam[1, p7]*barlam[2, p6]) + 
              barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                ((lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (lam[1, p6]*lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p2]*lam[2, p6]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                    (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                 lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              lam[1, p6]*((lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (lam[1, p6]*lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, p2]*lam[2, p6]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])))) + lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             ((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                 ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*lam[2, p2]*
                     (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                       m1])))) - (barlam[1, p6]*(barlam[2, p6]*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])) + ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p3]*
                         barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*lam[2, p2]*
                     (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
             (((lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (lam[1, p6]*lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, p2]*lam[2, p6]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])))) + lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              ((lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (lam[1, p6]*lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, p2]*lam[2, p6]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])))) + lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1]))) + (barlam[1, p6]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p7]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1])))^2*
             (((barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) + ((lam[1, p2]*lam[2, et5]*
                     (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])) - ((barlam[1, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                 ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*lam[2, p2]*
                     (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])))*
             (-(((barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])) + ((lam[1, p2]*lam[2, et5]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              ((barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) + ((lam[1, p2]*lam[2, et5]*
                     (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
                ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1]))))/
            ((-(lam[2, p6]*(lam[1, p6]*((barlam[2, p6]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1]))) + ((barlam[2, p7]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]))) + lam[1, p6]*(lam[2, p6]*((barlam[2, p6]*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
             (-((lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                         p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p2]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                    lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))) + (lam[1, p5] - (lam[1, et6]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[2, p4] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             ((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                  ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1])))) - (barlam[1, p4]*(-(barlam[2, p6]*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) - ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et5]*lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1])))))^2*(-((barlam[2, p5]*(-(barlam[1, p6]*
                     (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) - ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et5]*lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))) + (barlam[1, p5]*(-(barlam[2, p6]*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) - ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et5]*lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1])))))^2*(lam[2, p6]*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                  {m1, p3}, m1]))*(-(((lam[2, et5]*(-((-(barlam[1, p7]*
                         barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                      (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                    (lam[1, p6]*lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p2]*lam[2, p6]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                    (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                 lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              ((lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*(-(lam[2, p6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (lam[1, p6]*lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, p2]*lam[2, p6]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, 
                          p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])))) + lam[1, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                  m1]))) - (10*CK*(barlam[1, p5]*barlam[2, p4] - 
              barlam[1, p4]*barlam[2, p5])*(barlam[1, p7]*barlam[2, p5] - 
              barlam[1, p5]*barlam[2, p7])*(lam[2, p6]*(lam[1, p5] - 
                (lam[1, et5]*(lam[1, p6]*lam[2, p2]*(-((barlam[1, p3]*
                        barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, p2]*lam[2, p6]*
                    (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                (barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (barlam[1, p6]*
                  (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) - lam[1, p6]*(
                lam[2, p5] - (lam[2, et5]*(lam[1, p6]*lam[2, p2]*
                    (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                    lam[2, p6]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                (barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (barlam[1, p6]*
                  (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p6]*(lam[1, p4] - (lam[1, et5]*(lam[1, p6]*lam[2, p2]*
                    (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                    lam[2, p6]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                (barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (barlam[1, p6]*
                  (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) - lam[1, p6]*(
                lam[2, p4] - (lam[2, et5]*(lam[1, p6]*lam[2, p2]*
                    (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                    lam[2, p6]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                (barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (barlam[1, p6]*
                  (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p6])) - ((lam[1, p2]*lam[2, et5]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                       lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1]))))) + (barlam[1, p4]*(-(barlam[2, p6]*
                    (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                  ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))^
              2*(-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - ((lam[1, p2]*lam[2, et5]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                       m1]))))) + (barlam[1, p5]*(-(barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                 ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*lam[2, p2]*
                     (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                 (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
             ((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - ((lam[1, p2]*lam[2, et5]*
                     (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                 (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
              (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - ((lam[1, p2]*lam[2, et5]*
                     (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                 (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
             (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - ((lam[1, p2]*lam[2, et5]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                       m1]))))) + (barlam[1, p7]*(-(barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                 ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*lam[2, p2]*
                     (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                 (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
             (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p6]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1])))^5)/
            (((lam[2, p5] - (lam[2, et5]*(lam[1, p6]*lam[2, p2]*
                    (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                    lam[2, p6]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[1, p4] - (lam[1, et5]*(lam[1, p6]*lam[2, p2]*
                    (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                    lam[2, p6]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
              (lam[1, p5] - (lam[1, et5]*(lam[1, p6]*lam[2, p2]*
                    (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                    lam[2, p6]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[2, p4] - (lam[2, et5]*(lam[1, p6]*lam[2, p2]*
                    (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                    lam[2, p6]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             (-(lam[2, p6]*(lam[1, p4] - (lam[1, et5]*(lam[1, p6]*lam[2, p2]*
                     (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                     lam[2, p6]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - (lam[1, et6]*
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p6]*(lam[2, p4] - (lam[2, et5]*(lam[1, p6]*lam[2, p2]*
                    (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                    lam[2, p6]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                (barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (barlam[1, p6]*
                  (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + ((lam[1, p2]*lam[2, et5]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                       lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1]))))) + (barlam[1, p6]*(barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))^
              2*(-((lam[2, p5] - (lam[2, et5]*(lam[1, p6]*lam[2, p2]*
                     (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                     lam[2, p6]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - (lam[2, et6]*
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (lam[1, p5] - (lam[1, et5]*(lam[1, p6]*lam[2, p2]*
                    (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                    lam[2, p6]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (lam[1, p6]*lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*
                   spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                  barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
              lam[1, p2]*lam[2, p6]*(-((barlam[1, p3]*barlam[2, p2]*
                   spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                  barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
             (-(((barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6]) + ((lam[1, p2]*lam[2, et5]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                       lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                  (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) + ((barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1])))^2) - 
           (10*CK*(barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
             (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
             (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - ((lam[1, p2]*lam[2, et5]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                       lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1]))))) + (barlam[1, p4]*(-(barlam[2, p7]*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                  ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))^
              2*(-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - ((lam[1, p2]*lam[2, et5]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                       m1]))))) + (barlam[1, p5]*(-(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                 ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*lam[2, p2]*
                     (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                 (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
             ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - ((lam[1, p2]*lam[2, et5]*
                     (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                 (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
              (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - ((lam[1, p2]*lam[2, et5]*
                     (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                 (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
             (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - ((lam[1, p2]*lam[2, et5]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                       m1]))))) + (barlam[1, p6]*(-(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                 ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*lam[2, p2]*
                     (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                 (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
             (-((lam[2, p5] - (lam[2, et5]*(lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - (lam[2, et6]*
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*((barlam[2, p7]*
                   (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (lam[1, p5] - (lam[1, et5]*(lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                (barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*
                  (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((lam[2, p4] - (lam[2, et5]*(lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - (lam[2, et6]*
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))*((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                      barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (lam[1, p4] - (lam[1, et5]*(lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                (barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*
                  (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p7]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1])))^5)/
            ((lam[2, p6]*(lam[1, p5] - (lam[1, et5]*(lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
              lam[1, p6]*(lam[2, p5] - (lam[2, et5]*(lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             ((lam[2, p5] - (lam[2, et5]*(lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[1, p4] - (lam[1, et5]*(lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
              (lam[1, p5] - (lam[1, et5]*(lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[2, p4] - (lam[2, et5]*(lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             (-((barlam[2, p7]*(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) + ((lam[1, p2]*lam[2, et5]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                       lam[2, p2]*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1]))))) + (barlam[1, p7]*(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                  ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))^
              2*((lam[2, p4] - (lam[2, et5]*(lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                (barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*
                  (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p4] - (lam[1, et5]*(lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                (barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])) - (barlam[1, p7]*
                  (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                  {m1, p3}, m1])*(-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*(
                -((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                   {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]))*
             (-(((barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) + ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p3]*
                          barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]) - lam[1, et5]*lam[2, p2]*
                       (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))) + ((barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                  ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*lam[2, p2]*
                      (-((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p2]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                       barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                   spba[p7, {m1, p3}, m1])))^2))*
          ((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
            (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])^
           5)/((-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
             lam[2, p3]*spb[p3, p7]))*
          (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) - (barlam[1, p3]*spa[p3, m1]*
                  (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
              ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*(
                (barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1] - (barlam[1, p2]*barlam[2, p3]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]))) + (barlam[1, p2]*(barlam[2, p2]*
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) - 
               (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, 
                      p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                   (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
               lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                 spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                 barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2*
          (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p2]*(lam[1, p2]*
                   lam[2, et6] - lam[1, et6]*lam[2, p2]) - (barlam[1, p3]*
                  spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                     lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                  {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                 lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1] - (barlam[1, p2]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1])*spba[p7, {m1, p3}, 
                m1])) + (barlam[1, p3]*spa[p3, m1]*(barlam[2, p2]*
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) - 
               (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, 
                      p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                   (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et6] - 
               lam[1, et6]*lam[2, p2])*((barlam[1, p3]*barlam[2, p2]*
                 spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p2]*
                 barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1])*
              spba[p7, {m1, p3}, m1]))^2) + 
        (((-10*CK*(-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p5])^5*(barlam[1, p7]*barlam[2, p4] - 
              barlam[1, p4]*barlam[2, p7])*(-((barlam[2, p4]*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]))) + (barlam[1, p4]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
              (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]))) + (barlam[1, p7]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                2, p2]*(lam[1, p4] - (lam[1, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p2]*(lam[2, p5] - 
                     (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))))*((barlam[2, p5]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
              (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                1, p2]*(lam[2, p4] - (lam[2, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p2]*(lam[2, p5] - 
                     (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))))*((barlam[2, p5]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[2, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))*
             ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                2, p2]*(-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p5])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p2]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + lam[1, p6]*((barlam[1, p6]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])) - (barlam[1, p5]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p5])*lam[1, p2]*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p2]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + lam[2, p6]*((barlam[1, p6]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*(-((barlam[2, p4]*(-(barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])))*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1]))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])*(lam[1, p6]*
                   lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])) - ((-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))))*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])))^2)/
            ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]))) + (barlam[1, p2]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])))^2*((barlam[2, p5]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])) - (barlam[1, p5]*(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))^
              2*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))) + lam[1, p2]*(lam[2, p5] - (lam[2, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))*
             (-((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                lam[2, p2]*(-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p5])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                        (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))) + lam[1, p2]*
                      (lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))/((lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*
                        (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) + 
                 lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                1, p2]*(-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p5])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p2]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + lam[2, p6]*((barlam[1, p6]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*((lam[2, p4] - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + lam[1, p2]*
                    (lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))))*((barlam[2, p5]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[2, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p2]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + lam[1, p6]*((barlam[1, p6]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])) - (lam[1, p4] - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + lam[1, p2]*
                    (lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))))*((barlam[2, p5]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p2]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + lam[2, p6]*((barlam[1, p6]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*(-((lam[2, p4] - (lam[2, et5]*
                   (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + lam[1, p2]*
                     (lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))*((barlam[2, p5]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])))) - (lam[2, et6]*(-(lam[2, p6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + (lam[1, p4] - 
                (lam[1, et5]*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))) + 
                   lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))))*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                  m1]))) - (10*CK*(-(barlam[1, p4]*barlam[2, p2]) + 
               barlam[1, p2]*barlam[2, p4])^5*
             (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]))) + (barlam[1, p5]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])))^2*((barlam[2, p7]*
                (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
              (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - barlam[2, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]))) + (barlam[1, p7]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*lam[
                2, p2]*(lam[1, p5] - (lam[1, et5]*(-(lam[2, p2]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p2]*(lam[2, p4] - 
                     (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))))*(-((barlam[2, p4]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[2, p5]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
              (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*lam[
                1, p2]*(lam[2, p5] - (lam[2, et5]*(-(lam[2, p2]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p2]*(lam[2, p4] - 
                     (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))))*(-((barlam[2, p4]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[2, p5]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[2, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))*
             ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*lam[
                2, p2]*(-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p5])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p2]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*((barlam[2, p5]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + lam[1, p6]*((barlam[1, p6]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])) - (barlam[1, p4]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p4])*lam[1, p2]*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p2]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*((barlam[2, p5]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + lam[2, p6]*((barlam[1, p6]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*((barlam[2, p5]*(-(barlam[1, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                 (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                  spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
              (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p7]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])))*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))))*
                (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])) - 
              ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))))*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1]))))/
            ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]))) + (barlam[1, p2]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])))^2*((barlam[2, p4]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])) - (barlam[1, p4]*(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))) - lam[1, et5]*
                     (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])))^2*
             (-((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                lam[2, p2]*(lam[1, p5] - (lam[1, et5]*(-(lam[2, p2]*
                      (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p2]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))*(-((barlam[2, p4]*(-(barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                    (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*((barlam[2, p5]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])))) - (lam[1, et6]*(-(lam[2, p6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))) + (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                 barlam[2, p4])*lam[1, p2]*(lam[2, p5] - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + lam[1, p2]*
                    (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))))*(-((barlam[2, p4]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[2, p5]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[2, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))*
             (-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))) + lam[1, p2]*(lam[2, p4] - (lam[2, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))*
             (-((lam[2, p5] - (lam[2, et5]*(-(lam[2, p2]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p2]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))*(-((barlam[2, p4]*(-(barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                    (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*((barlam[2, p5]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])))) - (lam[2, et6]*(-(lam[2, p6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))*(-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p5])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p4] - 
                        (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))) + lam[1, p2]*
                      (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))/((lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])*((barlam[2, p5]*(-(barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p6]*((barlam[1, p6]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))) + (lam[1, p5] - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + lam[1, p2]*
                    (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))))*(-((barlam[2, p4]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[2, p5]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + lam[1, p2]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*((barlam[2, p5]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + lam[2, p6]*((barlam[1, p6]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*(-((-(((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*lam[2, et5]*
                    (-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + lam[1, p2]*
                      (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))/((lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])*((barlam[2, p5]*(-(barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                     (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[2, p6]*((barlam[1, p6]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + (-(((barlam[1, p5]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et5]*
                   (-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + lam[1, p2]*
                     (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*((barlam[2, p5]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + lam[1, p6]*((barlam[1, p6]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p4])^2*(barlam[1, p7]*barlam[2, p2] - 
              barlam[1, p2]*barlam[2, p7])*(barlam[1, p7]*barlam[2, p4] - 
              barlam[1, p4]*barlam[2, p7])*((barlam[2, p4]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))) - lam[1, et5]*
                    (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))) - (barlam[1, p4]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))) - lam[1, et5]*
                    (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*(-((barlam[2, p4]*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))) - lam[1, et5]*
                     (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
              (barlam[1, p4]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[1, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (-(lam[2, p2]*(lam[1, p4] + (lam[1, et5]*
                   (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p4])*(-(lam[2, p2]*(lam[1, p4] - 
                          (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p6])))) + lam[1, p2]*(lam[2, p4] - 
                         (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))))) - (barlam[1, p7]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p7])*
                     (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                       m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                     barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))) + 
              lam[1, p2]*(lam[2, p4] + (lam[2, et5]*
                  (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(-(lam[2, p2]*(lam[1, p4] - 
                         (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))) + lam[1, p2]*
                       (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))))) - (barlam[1, p7]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p7])*
                    (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                      barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))*
             ((lam[2, p4] + (lam[2, et5]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[2, p2]*
                        (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))) + lam[1, p2]*
                       (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))))) - (barlam[1, p7]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p7])*
                    (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                      barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p4] + (lam[1, et5]*(-((-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[2, p2]*
                        (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))) + lam[1, p2]*
                       (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))))) - (barlam[1, p7]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p7])*
                    (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                      barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p5]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])))^5)/
            ((-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))) + (barlam[1, p5]*(-(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))) - lam[1, et5]*
                     (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
             (lam[2, p2]*(lam[1, p4] + (lam[1, et5]*
                  (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(-(lam[2, p2]*(lam[1, p4] - 
                         (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))) + lam[1, p2]*
                       (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))))) - (barlam[1, p7]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p7])*
                    (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                      barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
              lam[1, p2]*(lam[2, p4] + (lam[2, et5]*
                  (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p4])*(-(lam[2, p2]*(lam[1, p4] - 
                         (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))) + lam[1, p2]*
                       (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))))) - (barlam[1, p7]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p7])*
                    (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p4]*
                      barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))*
             (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                   {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 lam[2, p2] + (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                   spba[p7, {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*
                  s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 lam[1, p2] + (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                   spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                  s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (lam[2, p6]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                (barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]) - lam[1, p6]*(lam[2, p5] - 
                (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                (barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                       lam[2, p2])) - barlam[2, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) - barlam[2, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                  (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2) - 
           (10*CK*(-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p5])^2*(barlam[1, p7]*barlam[2, p2] - 
              barlam[1, p2]*barlam[2, p7])*(barlam[1, p7]*barlam[2, p5] - 
              barlam[1, p5]*barlam[2, p7])*((barlam[2, p5]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*(-((barlam[2, p5]*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
              (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*((barlam[2, p7]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]))) - lam[1, et5]*(lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))))*(-(lam[2, p2]*(lam[1, p5] + 
                 (lam[1, et5]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(-(lam[2, p2]*
                         (lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p6])))) + lam[1, p2]*(lam[2, p5] - 
                         (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))))) - (barlam[1, p7]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p7])*
                     (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                    (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      (lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))) + lam[1, p2]*(lam[2, p5] + (lam[2, et5]*
                  (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(-(lam[2, p2]*(lam[1, p5] - 
                         (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))) + lam[1, p2]*
                       (lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))))) - (barlam[1, p7]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p7])*
                    (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                      barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))*
             ((lam[2, p5] + (lam[2, et5]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[2, p2]*
                        (lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))) + lam[1, p2]*
                       (lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))))) - (barlam[1, p7]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p7])*
                    (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                      barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p5] + (lam[1, et5]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[2, p2]*
                        (lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))) + lam[1, p2]*
                       (lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))))) - (barlam[1, p7]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p7])*
                    (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                      barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p4]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])))^5)/
            ((-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))) + (barlam[1, p4]*(-(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
             (lam[2, p2]*(lam[1, p5] + (lam[1, et5]*
                  (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(-(lam[2, p2]*(lam[1, p5] - 
                         (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))) + lam[1, p2]*
                       (lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))))) - (barlam[1, p7]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p7])*
                    (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                      barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
              lam[1, p2]*(lam[2, p5] + (lam[2, et5]*
                  (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(-(lam[2, p2]*(lam[1, p5] - 
                         (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))) + lam[1, p2]*
                       (lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))))) - (barlam[1, p7]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p7])*
                    (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))))/((-(barlam[1, p5]*
                      barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))*
             (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                   {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[2, p2] + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                   spba[p7, {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*
                  s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[1, p2] + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                   spba[p7, {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*
                  s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (lam[2, p6]*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                (barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]) - lam[1, p6]*(lam[2, p4] - 
                (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                (barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                       lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) - barlam[2, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                  (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2) - 
           (10*CK*(-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p4])*(barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                barlam[2, p7])^5*((barlam[2, p2]*(-(barlam[1, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))) - lam[1, et5]*
                     (lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p2]*(-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
              (barlam[1, p2]*(-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[2, p4]*(-(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
              (barlam[1, p4]*(-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                   p7])*(lam[2, p4] - (lam[2, et5]*((lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (lam[1, p5] - (lam[1, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[2, p4]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])))) - (lam[2, et6]*(-(lam[2, p6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p4] - 
                (lam[1, et5]*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*((barlam[2, p5]*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                        barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                   (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[2, p4]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                   p7])*(-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p5])*lam[2, et5]*((lam[2, p5] - (lam[2, et6]*
                         (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                   ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))))) + 
                 lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[1, et5]*((lam[2, p5] - (lam[2, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + lam[1, p6]*((barlam[1, p6]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))*(-((barlam[2, p4]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p4]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])))*
             (((-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                         (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
                     lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))))) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])) - ((-(barlam[1, p5]*
                    (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))) - lam[1, et5]*
                      (lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])))^2)/
            (((barlam[2, p5]*(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
               (barlam[1, p5]*(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
             (-((barlam[2, p7]*(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
               (barlam[1, p7]*(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
             (lam[2, p2]*(lam[1, p4] - (lam[1, et5]*((lam[2, p5] - 
                     (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (lam[1, p5] - (lam[1, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[2, p4]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
              lam[1, p2]*(lam[2, p4] - (lam[2, et5]*((lam[2, p5] - 
                     (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (lam[1, p5] - (lam[1, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[2, p4]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[2, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))*
             ((lam[2, p4] - (lam[2, et5]*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[2, p4]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[2, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[1, et5]*((lam[2, p5] - (lam[2, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + lam[1, p6]*((barlam[1, p6]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])) - (lam[1, p4] - (lam[1, et5]*
                  ((lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (lam[1, p5] - (lam[1, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[2, p4]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*((lam[2, p5] - (lam[2, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + lam[2, p6]*((barlam[1, p6]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*((lam[2, p5] - (lam[2, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*((lam[2, p5] - (lam[2, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + lam[2, p6]*((barlam[1, p6]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]) - (-(barlam[1, p7]*barlam[2, p5]) + 
                barlam[1, p5]*barlam[2, p7])*(-(((barlam[1, p5]*barlam[2, 
                      p4] - barlam[1, p4]*barlam[2, p5])*lam[1, et5]*
                   ((lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (lam[1, p5] - (lam[1, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                        (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + lam[1, p6]*((barlam[1, p6]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))) - 
           (10*CK*(barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])^
              5*((barlam[2, p2]*(-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
              (barlam[1, p2]*(-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
              (barlam[1, p2]*(-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]))))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                        (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))) - lam[1, et5]*
                       (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]))))) - barlam[1, p7]*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
               (barlam[1, p5]*(-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
             (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p7])*(lam[2, p5] - (lam[2, et5]*((lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (lam[1, p4] - (lam[1, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*((barlam[2, p5]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                         barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])))) - (lam[2, et6]*(-(lam[2, p6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p4]) + barlam[1, p4]*barlam[2, p7])*(lam[1, p5] - 
                (lam[1, et5]*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*(-((barlam[2, p4]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                         barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[2, p5]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p7])*(-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p5])*lam[2, et5]*((lam[2, p4] - (lam[2, et6]*
                         (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*((barlam[2, p5]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[2, p6]*((barlam[1, p6]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                  spba[p7, {m1, p3}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p4]) + barlam[1, p4]*barlam[2, p7])*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[1, et5]*((lam[2, p4] - (lam[2, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*((barlam[2, p5]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                         barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + lam[1, p6]*((barlam[1, p6]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))*(-((barlam[2, p2]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p2]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])))*((barlam[2, p5]*
                (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])) - (barlam[1, p5]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])))*
             (((-(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))) - lam[1, et5]*
                     (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])) - 
              ((-(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))) - lam[1, et5]*
                     (lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))))) - barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1])))*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1]))))/
            (((barlam[2, p4]*(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
               (barlam[1, p4]*(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
             (-((barlam[2, p7]*(barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                       (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) + 
               (barlam[1, p7]*(barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))))/
                ((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))^2*
             (lam[2, p2]*(-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p5])*lam[1, et5]*((lam[2, p4] - (lam[2, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*((barlam[2, p5]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                         barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + lam[1, p6]*((barlam[1, p6]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])) - lam[1, p2]*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*((lam[2, p4] - (lam[2, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*((barlam[2, p5]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                         barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + lam[2, p6]*((barlam[1, p6]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*(-((lam[2, p5] - (lam[2, et5]*
                   ((lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - (lam[1, p4] - (lam[1, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*((barlam[2, p5]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                         barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])))) - (lam[2, et6]*(-(lam[2, p6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))*(-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p5])*lam[1, et5]*((lam[2, p4] - (lam[2, et6]*
                         (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*((barlam[2, p5]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1])) - (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p6]*((barlam[1, p6]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))) + (lam[1, p5] - (lam[1, et5]*
                  ((lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]) - (lam[1, p4] - (lam[1, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[2, p5]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*((lam[2, p4] - (lam[2, et6]*
                        (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*((barlam[2, p5]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                         barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1])) - (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + lam[2, p6]*((barlam[1, p6]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*((-(barlam[1, p7]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p7])*(lam[2, p5] - 
                (lam[2, et5]*((lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                          p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*(-((barlam[2, p4]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                         barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[2, p5]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[2, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (-(barlam[1, p7]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p7])*(
                lam[1, p5] - (lam[1, et5]*((lam[2, p4] - (lam[2, et6]*
                       (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                       ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*(-((barlam[2, p4]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                         barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[2, p5]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             ((lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                  m1]))) - (10*CK*(barlam[1, p5]*barlam[2, p4] - barlam[1, 
                 p4]*barlam[2, p5])^5*(barlam[1, p7]*barlam[2, p2] - 
              barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                ((lam[1, et5]*(-((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (-(lam[1, p6]*lam[2, p2]*
                        ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                       lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                    (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p6]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                       ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
                 lam[1, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              lam[1, p2]*((lam[2, et5]*(-((barlam[1, p7]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p7])*(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - (-(lam[1, p6]*lam[2, p2]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])*((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                         barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])*((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                         barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[2, p7]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])))) + lam[2, p6]*((barlam[1, p6]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*((barlam[2, p7]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])) + ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]))*(-(barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                       m1])))) - (barlam[1, p7]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])) + ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*lam[2, p6]*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]))*(-(barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
             (((lam[2, et5]*(-((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) - (-(lam[1, p6]*lam[2, p2]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])*((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                         barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])*((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                         barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[2, p7]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])))) + lam[2, p6]*((barlam[1, p6]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]) - ((lam[1, et5]*
                  (-((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (-(lam[1, p6]*lam[2, p2]*((barlam[1, p6]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])*((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                         barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])*((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                         barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[2, p7]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])))) + lam[1, p6]*((barlam[1, p6]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1]))*(-((barlam[2, p2]*
                  (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p2]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])))^2*
             (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p7]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])))*
             (((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) + ((lam[1, p6]*lam[2, et5]*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[2, p7]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))*(-((barlam[1, p6]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
              ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) + ((lam[1, p6]*lam[2, et5]*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[2, p7]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))*(-((barlam[1, p6]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-(((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])) + ((lam[1, p6]*lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[2, p7]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))*(-((barlam[1, p6]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])) + ((lam[1, p6]*lam[2, et5]*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[2, p7]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))*(-((barlam[1, p6]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
            ((-((lam[2, p5] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                         p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))*(lam[1, p4] - (lam[1, et6]*(-(lam[2, p6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                    lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                        p7]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))) + (lam[1, p5] - (lam[1, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p4] - (lam[2, et6]*(-(lam[2, p6]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p3]*spb[p3, p7])) + lam[1, p6]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
                  ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p3, 
                      m1])/spba[p7, {m1, p3}, m1]))/((barlam[1, p5]*
                    barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))*
             (lam[2, p2]*((lam[1, et5]*(-((barlam[1, p7]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p7])*(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - (-(lam[1, p6]*lam[2, p2]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])*((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                         barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])*((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                         barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[2, p7]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])))) + lam[1, p6]*((barlam[1, p6]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])) - lam[1, p2]*((lam[2, et5]*
                  (-((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p7])*(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]) - lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                   (-(lam[1, p6]*lam[2, p2]*((barlam[1, p6]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
                   (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])*((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                         barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])*((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                         barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                      ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[2, p7]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])))) + lam[2, p6]*((barlam[1, p6]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*((barlam[2, p4]*(-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) - ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[2, p7]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (barlam[1, p4]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])) - ((lam[1, p6]*lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[2, p7]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))))^2*
             (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
                   ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et5]*lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                        barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[2, p7]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                          m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                          barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + (barlam[1, p5]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])) - ((lam[1, p6]*lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[2, p7]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))))^2*(-(lam[2, p2]*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                  {m1, p3}, m1]))*((lam[2, p2]*((barlam[2, p2]*
                    (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                ((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                    m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                  {m1, p3}, m1]) - (lam[1, p2]*((barlam[2, p2]*
                    (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                ((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                    m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                  {m1, p3}, m1]))) - (10*CK*(barlam[1, p5]*barlam[2, p4] - 
              barlam[1, p4]*barlam[2, p5])*(barlam[1, p7]*barlam[2, p5] - 
              barlam[1, p5]*barlam[2, p7])*(lam[2, p2]*(lam[1, p5] - 
                (lam[1, et5]*(-(lam[1, p6]*lam[2, p2]*((barlam[1, p6]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) + lam[1, p2]*lam[2, p6]*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]))*(-((barlam[2, p4]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                         m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                         barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[1, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                (barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              lam[1, p2]*(lam[2, p5] - (lam[2, et5]*(-(lam[1, p6]*lam[2, p2]*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[2, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                (barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p2]*(lam[1, p4] - (lam[1, et5]*(-(lam[1, p6]*lam[2, p2]*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[1, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                (barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              lam[1, p2]*(lam[2, p4] - (lam[2, et5]*(-(lam[1, p6]*lam[2, p2]*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[2, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                (barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - ((lam[1, p6]*lam[2, et5]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                       lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                        barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))) + (barlam[1, p4]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - ((lam[1, p6]*lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))^
              2*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - ((lam[1, p6]*lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                       m1]))))) + (barlam[1, p5]*(-(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                 ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                 (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
             ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - ((lam[1, p6]*lam[2, et5]*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                 (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
              (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - ((lam[1, p6]*lam[2, et5]*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                 (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - ((lam[1, p6]*lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                       m1]))))) + (barlam[1, p7]*(-(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                 ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                 (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
             (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p2]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])))^5)/
            (((lam[2, p5] - (lam[2, et5]*(-(lam[1, p6]*lam[2, p2]*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[2, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, p4] - (lam[1, et5]*(-(lam[1, p6]*lam[2, p2]*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[1, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
              (lam[1, p5] - (lam[1, et5]*(-(lam[1, p6]*lam[2, p2]*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[1, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p4] - (lam[2, et5]*(-(lam[1, p6]*lam[2, p2]*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[2, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))*
             (-(lam[2, p2]*(lam[1, p4] - (lam[1, et5]*(-(lam[1, p6]*
                      lam[2, p2]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - (lam[1, et6]*
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))*((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) + 
              lam[1, p2]*(lam[2, p4] - (lam[2, et5]*(-(lam[1, p6]*lam[2, p2]*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[2, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                (barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + ((lam[1, p6]*lam[2, et5]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                       lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                        barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))) + (barlam[1, p2]*(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                         barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                         barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))^
              2*(-((lam[2, p5] - (lam[2, et5]*(-(lam[1, p6]*lam[2, p2]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - (lam[2, et6]*
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (lam[1, p5] - (lam[1, et5]*(-(lam[1, p6]*lam[2, p2]*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[1, et6]*
                  (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-(lam[1, p6]*lam[2, p2]*((barlam[1, p6]*barlam[2, p3]*
                   spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                   barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) + 
              lam[1, p2]*lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
             (-(((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2]) + ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et5]*lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                        barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))*(-((barlam[1, p6]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])))^2) - 
           (10*CK*(-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p5])*(barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                p5])*((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                 ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                 (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))) - 
              (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - ((lam[1, p6]*lam[2, et5]*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                 (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
             (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - ((lam[1, p6]*lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                       m1]))))) + (barlam[1, p2]*(-(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                 ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                 (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
             (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) - ((lam[1, p6]*lam[2, et5]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                       lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                        barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))) + (barlam[1, p4]*
                 (-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) - ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))^
              2*(-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) - ((lam[1, p6]*lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, 
                       m1]))))) + (barlam[1, p5]*(-(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) - 
                 ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                 (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))))*
             (-((lam[2, p5] - (lam[2, et5]*(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) - lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - (lam[2, et6]*
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7]))*(-((barlam[1, p4]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))*((barlam[2, p7]*
                   (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (lam[1, p5] - (lam[1, et5]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                (barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((lam[2, p4] - (lam[2, et5]*(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) - lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) - (lam[2, et6]*
                   (-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7])) + lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7]))*((barlam[1, p5]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])))*((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                 (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
              (lam[1, p4] - (lam[1, et5]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                (barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p7]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])))^5)/
            ((lam[2, p2]*(lam[1, p5] - (lam[1, et5]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
              lam[1, p2]*(lam[2, p5] - (lam[2, et5]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))) - (lam[2, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))*
             ((lam[2, p5] - (lam[2, et5]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))) - (lam[2, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[1, p4] - (lam[1, et5]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))) - 
              (lam[1, p5] - (lam[1, et5]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                lam[2, p4] - (lam[2, et5]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))) - (lam[2, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))))*
             (-((barlam[2, p7]*(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])) + ((lam[1, p6]*lam[2, et5]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                       lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                         spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, 
                          p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                        barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))) + (barlam[1, p7]*(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) + 
                  ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                         barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*lam[2, p6]*((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                         barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))))^
              2*((lam[2, p4] - (lam[2, et5]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))) - (lam[2, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                (barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
              (lam[1, p4] - (lam[1, et5]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))) - (lam[1, et6]*(-(lam[2, p6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
                   lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))*(
                (barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (barlam[1, p7]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
             (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                  {m1, p3}, m1])*((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, p6]*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*(
                (barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1] - (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]))*
             (-(((barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])) + ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et5]*lam[2, p6]*
                       ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                          m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                        barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                  (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*
                         spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                         {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))*(-((barlam[1, p6]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               ((barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])) + ((lam[1, p6]*lam[2, et5]*((barlam[1, p6]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*lam[2, p6]*
                      ((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p6]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) + (barlam[2, p3]*spa[p3, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p7]*(-(barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                       barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])))^2))*
          (-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
               m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
             spba[p7, {m1, p3}, m1])^5)/
         ((-(lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
           lam[1, p6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))*
          (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p6]) - (barlam[1, p3]*spa[p3, m1]*
                  (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
              ((lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])*(
                -((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                   {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]))) + (barlam[1, p6]*(barlam[2, p6]*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) - 
               (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, 
                      p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                   (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
               lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                 barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2*
          (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p6]*(lam[1, p6]*
                   lam[2, et6] - lam[1, et6]*lam[2, p6]) - (barlam[1, p3]*
                  spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                     lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                  {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - lam[1, et6]*
                 lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p6]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1])*spba[p7, {m1, p3}, 
                m1])) + (barlam[1, p3]*spa[p3, m1]*(barlam[2, p6]*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) - 
               (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, 
                      p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                   (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et6] - 
               lam[1, et6]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                 barlam[2, p6]*spa[p3, m1])/spba[p7, {m1, p3}, m1])*
              spba[p7, {m1, p3}, m1]))^2) + 
        (((-10*CK*(-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p5])^5*(barlam[1, p6]*barlam[2, p4] - 
              barlam[1, p4]*barlam[2, p6])*(-((barlam[2, p4]*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2]))) + (barlam[1, p4]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                  lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])) - (barlam[1, p6]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                  lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2]))) + (barlam[1, p6]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                  lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                2, p2]*(lam[1, p4] - (lam[1, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p5] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))*((barlam[2, p5]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
              (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                1, p2]*(lam[2, p4] - (lam[2, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p5] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))*((barlam[2, p5]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                2, p2]*(-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p5])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])) - (barlam[1, p5]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p5])*lam[1, p2]*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*(-((barlam[2, p4]*(-(barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              (barlam[1, p4]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])))*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))*(-(barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1]))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                     spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
               ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))*(-(barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1]))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                     spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2)/
            ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]))) + (barlam[1, p2]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])))^2*
             ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])) - (barlam[1, p5]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])))^2*
             (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, 
                        p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
              lam[1, p2]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             (lam[2, p6]*(lam[1, p4] - (lam[1, et5]*(-(lam[2, p2]*
                     (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p5] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))*((barlam[2, p5]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
              lam[1, p6]*(lam[2, p4] - (lam[2, et5]*(-(lam[2, p2]*
                     (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p5] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))*((barlam[2, p5]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             (-((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                lam[2, p2]*(-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p5])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))) + lam[1, p2]*
                      (lam[2, p5] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*
                        (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))) + (barlam[1, p5]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p5])*lam[1, p2]*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*((lam[2, p4] - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p5] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))*((barlam[2, p5]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])) - (lam[1, p4] - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p5] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))*((barlam[2, p5]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))) - 
           (10*CK*(-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p4])*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                barlam[2, p6])^5*((barlam[2, p2]*(-(barlam[1, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                 barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((barlam[1, p6]*barlam[2, 
                   p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                  lam[2, et5] - lam[1, et5]*lam[2, p6])) - (barlam[1, p2]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((barlam[1, p6]*barlam[2, 
                   p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                  lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((barlam[1, p6]*barlam[2, 
                    p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                   lam[2, et5] - lam[1, et5]*lam[2, p6]))) + (barlam[1, p2]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((barlam[1, p6]*barlam[2, 
                   p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                  lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])) - barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((barlam[1, p6]*barlam[2, 
                    p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                   lam[2, et5] - lam[1, et5]*lam[2, p6]))) + (barlam[1, p4]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((barlam[1, p6]*barlam[2, 
                   p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                  lam[2, et5] - lam[1, et5]*lam[2, p6])))*
             ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
               lam[2, p6]*(lam[1, p4] - (lam[1, et5]*(-(lam[2, p6]*
                     (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p6]*(lam[2, p5] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))*((barlam[2, p5]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p4]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
              (-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
               lam[1, p6]*(lam[2, p4] - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p6]*(lam[2, p5] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))*((barlam[2, p5]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p4]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             ((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p6])*
               lam[2, p6]*(-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p5])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p5] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p6]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p4]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])) - (-(barlam[1, p6]*barlam[2, p5]) + 
                barlam[1, p5]*barlam[2, p6])*lam[1, p6]*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p5] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p6]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p4]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*(-((barlam[2, p4]*(-(barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              (barlam[1, p4]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])))*
             (((-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))*(-(barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
               ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))*(-(barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2)/
            (((barlam[2, p5]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((barlam[1, p6]*barlam[2, 
                    p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                   lam[2, et5] - lam[1, et5]*lam[2, p6])) - (barlam[1, p5]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((barlam[1, p6]*barlam[2, 
                    p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                   lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((barlam[1, p6]*barlam[2, 
                     p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]))) + (barlam[1, p6]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((barlam[1, p6]*barlam[2, 
                    p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*
                   lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, 
                        p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
              lam[1, p6]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             (lam[2, p2]*(lam[1, p4] - (lam[1, et5]*(-(lam[2, p6]*
                     (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p6]*(lam[2, p5] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))*((barlam[2, p5]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p4]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
              lam[1, p2]*(lam[2, p4] - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p6]*(lam[2, p5] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))*((barlam[2, p5]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p4]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             (-((-(barlam[1, p6]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                   p6])*lam[2, p6]*(-(((barlam[1, p5]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p5])*lam[1, et5]*
                    (-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p6]*(lam[2, p5] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])*(-((barlam[2, p4]*
                        (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))) + (-(barlam[1, p6]*barlam[2, p5]) + 
                barlam[1, p5]*barlam[2, p6])*lam[1, p6]*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p5] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p6]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p4]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*((lam[2, p4] - (lam[2, et5]*
                  (-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p6]*(lam[2, p5] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))*((barlam[2, p5]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p4]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p5] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p6]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p4]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])) - (lam[1, p4] - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p6]*(lam[2, p5] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))*((barlam[2, p5]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p4]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p5] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p6]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p4]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))) - 
           (10*CK*(-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p5])*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[
                2, p6])*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                barlam[2, p6])^2*((barlam[2, p2]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                      ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                 (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
              (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p5]*
                  (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))*((barlam[2, p5]*
                (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[1, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])) - (barlam[1, p5]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[2, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))*(-((barlam[2, p5]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
              (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et5] - lam[1, et5]*lam[2, p6]) + barlam[2, p5]*
                  (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))*(-(lam[2, p2]*(lam[1, p5] + 
                 (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - 
                    (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))) + lam[1, p2]*
                       (lam[2, p5] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))) - (barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, 
                          p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))) + lam[1, p6]*
                       (lam[2, p5] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
              lam[1, p2]*(lam[2, p5] + (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(-(lam[2, p2]*(lam[1, p5] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))) + lam[1, p2]*
                      (lam[2, p5] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(-(lam[2, p6]*(lam[1, p5] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))) + lam[1, p6]*
                      (lam[2, p5] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                      spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, 
                       p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*(-(lam[2, p6]*(lam[1, p5] + 
                 (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - 
                    (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))) + lam[1, p2]*
                       (lam[2, p5] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))) - (barlam[1, p6]*
                       barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                     (-(lam[2, p6]*(lam[1, p5] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, 
                          p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))) + lam[1, p6]*
                       (lam[2, p5] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
              lam[1, p6]*(lam[2, p5] + (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(-(lam[2, p2]*(lam[1, p5] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))) + lam[1, p2]*
                      (lam[2, p5] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(-(lam[2, p6]*(lam[1, p5] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))) + lam[1, p6]*
                      (lam[2, p5] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                      spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, 
                       p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*(-((barlam[2, p4]*
                  (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p4]*
                 (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])))^5)/
            ((lam[1, p6]*lam[2, p2] - lam[1, p2]*lam[2, p6])*
             (-(((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[1, p2] + (-(barlam[1, p6]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p6])*lam[1, p6])*lam[2, p2]) + 
              lam[1, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p6])*lam[2, p6]))*
             (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) - barlam[1, p5]*
                    (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                     lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]))) + (barlam[1, p4]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - barlam[2, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])))^2*
             (lam[2, p6]*(lam[1, p5] + (lam[1, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(-(lam[2, p2]*(lam[1, p5] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))) + lam[1, p2]*
                      (lam[2, p5] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(-(lam[2, p6]*(lam[1, p5] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))) + lam[1, p6]*
                      (lam[2, p5] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                      spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, 
                       p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))) - lam[1, p6]*(lam[2, p5] + 
                (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))) + lam[1, p2]*
                      (lam[2, p5] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) - (barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*(-(lam[2, p6]*(lam[1, p5] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))) + lam[1, p6]*
                      (lam[2, p5] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])) - 
                (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                      spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, 
                       p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])))))*(-((lam[2, p4] - (lam[2, et6]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])) + (lam[1, p4] - 
                (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                      spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*(
                (barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                       lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) - barlam[2, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))*(-(barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                   (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                    spba[p7, {m1, p3}, m1]))/(((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p6]))*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))))*(-(barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                  (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1]))/(((-(barlam[1, p5]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])))^2) - 
           (10*CK*(-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p4])^5*(-((barlam[2, p5]*(-(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                   barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                     lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))))/
                 ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p2]))) + (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[2, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])))^2*((barlam[2, p6]*
                (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])) - (barlam[1, p6]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])))*(-((barlam[2, p6]*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]))) + (barlam[1, p6]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])))*((barlam[1, p4]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p4])*lam[2, p2]*(lam[1, p5] - 
                (lam[1, et5]*(-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p4] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
                  (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[2, p5]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
              (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*lam[
                1, p2]*(lam[2, p5] - (lam[2, et5]*(-(lam[2, p2]*(lam[1, p4] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p4] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
                  (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[2, p5]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*lam[
                2, p2]*(-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p5])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p4] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p4] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])) - (barlam[1, p4]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p4])*lam[1, p2]*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p4] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p4] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*((barlam[2, p5]*(-(barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                 (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                  spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
              (barlam[1, p5]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                     m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p6]*
                (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])))*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
                (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])) - 
              ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
                (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1]))))/
            ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]))) + (barlam[1, p2]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])))^2*((barlam[2, p4]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])) - (barlam[1, p4]*(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])))^2*
             (-((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                lam[2, p2]*(lam[1, p5] - (lam[1, et5]*(-(lam[2, p2]*
                      (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
                   (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*((barlam[2, p5]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])))) - (lam[1, et6]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
              (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*lam[
                1, p2]*(lam[2, p5] - (lam[2, et5]*(-(lam[2, p2]*(lam[1, p4] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p4] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
                  (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[2, p5]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             (-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, 
                        p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
              lam[1, p2]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             (lam[2, p6]*(-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p5])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p4] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p4] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])) - lam[1, p6]*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p4] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p4] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*(-((lam[2, p5] - (lam[2, et5]*
                   (-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))) + lam[1, p2]*
                     (lam[2, p4] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))*(-((barlam[2, p4]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*((barlam[2, p5]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])))) - (lam[2, et6]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                (-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p4] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p4] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))/
                   ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))) + (lam[1, p5] - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p4] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
                  (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[2, p5]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p4] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p4] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))) - (10*CK*(barlam[1, p6]*barlam[2, p4] - 
               barlam[1, p4]*barlam[2, p6])^5*((barlam[2, p2]*
                (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])) - (barlam[1, p2]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])))*(-((barlam[2, p2]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6]))) + (barlam[1, p2]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p4] - 
                 barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])))*(-((barlam[2, p5]*
                  (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                       lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) + (barlam[1, p5]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*
             ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[2, p6]*(lam[1, p5] - (lam[1, et5]*(-(lam[2, p6]*
                     (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p6]*(lam[2, p4] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
                  (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[2, p5]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
              (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[1, p6]*(lam[2, p5] - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p6]*(lam[2, p4] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
                  (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[2, p5]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[2, p6]*(-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p5])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])) - (-(barlam[1, p6]*barlam[2, p4]) + 
                barlam[1, p4]*barlam[2, p6])*lam[1, p6]*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*(-((barlam[2, p2]*(-(barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                  (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                   spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                       spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])))*((barlam[2, p5]*
                (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])) - (barlam[1, p5]*
                (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])))*
             (((-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
                (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])) - 
              ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
                (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1]))))/
            (((barlam[2, p4]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])) - (barlam[1, p4]*(barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - (lam[1, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*
             (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) + (barlam[1, p6]*
                 (barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + barlam[2, p4]*(lam[2, et5]*(lam[1, p4] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))^2*
             (-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p6])*lam[2, p6]*(lam[1, p5] - (lam[1, et5]*
                   (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))) + lam[1, p6]*
                     (lam[2, p4] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))*(-((barlam[2, p4]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*((barlam[2, p5]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])))) - (lam[1, et6]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
              (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               lam[1, p6]*(lam[2, p5] - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))))) + lam[1, p6]*(lam[2, p4] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
                  (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[2, p5]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, 
                        p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
              lam[1, p6]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             (lam[2, p2]*(-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p5])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])) - lam[1, p2]*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*(-((lam[2, p5] - (lam[2, et5]*
                   (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))) + lam[1, p6]*
                     (lam[2, p4] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))*(-((barlam[2, p4]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*((barlam[2, p5]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])))) - (lam[2, et6]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                (-(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p5])*lam[1, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))/
                   ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                    ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))) + (lam[1, p5] - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
                  (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*((barlam[2, p5]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                -(((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*lam[2, et5]*(-(lam[2, p6]*(lam[1, p4] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))/
                  ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                   ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))) - 
           (10*CK*(-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p4])*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[
                2, p6])*(barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                barlam[2, p6])^2*((barlam[2, p2]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*(lam[1, p4] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])) - (barlam[1, p2]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[2, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))*((barlam[2, p4]*
                (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])) - (barlam[1, p4]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[2, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))*(-((barlam[2, p4]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]))) + (barlam[1, p4]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + barlam[2, p4]*(lam[2, et5]*
                    (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                   lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])))*(-(lam[2, p2]*(lam[1, p4] + 
                 (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])) - 
                    (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p4])*(-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p4] - (lam[2, et6]*
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) - (barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*
                        (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))) + lam[1, p6]*
                       (lam[2, p4] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
              lam[1, p2]*(lam[2, p4] + (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - (-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(-(lam[2, p2]*(lam[1, p4] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p4] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*(lam[1, p4] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             (-(lam[2, p6]*(lam[1, p4] + (lam[1, et5]*
                   (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                        lam[2, p6])) - (-(barlam[1, p4]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[2, p2]*
                        (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                          ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))) + lam[1, p2]*
                       (lam[2, p4] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))) - (barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     (-(lam[2, p6]*(lam[1, p4] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))))) + lam[1, p6]*
                       (lam[2, p4] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                          ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                         ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))))))/
                  ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
              lam[1, p6]*(lam[2, p4] + (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - (-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(-(lam[2, p2]*(lam[1, p4] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p4] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*(lam[1, p4] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               (barlam[1, p5]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, 
                     m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])))^5)/
            ((lam[1, p6]*lam[2, p2] - lam[1, p2]*lam[2, p6])*
             (-(((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                  lam[1, p2] + (-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*lam[1, p6])*lam[2, p2]) + 
              lam[1, p2]*((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p4])*lam[2, p2] + (-(barlam[1, p6]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p6])*lam[2, p6]))*
             (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) - barlam[1, p4]*
                    (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, 
                          p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, 
                          m1]))/((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])))) - lam[1, et5]*
                      (lam[2, p4] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))))))/((-(barlam[1, p4]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]))) + 
               (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*
                     lam[2, et5] - lam[1, et5]*lam[2, p6]) - barlam[2, p4]*
                   (lam[2, et5]*(lam[1, p4] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
                    lam[1, et5]*(lam[2, p4] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])))^2*(lam[2, p6]*(lam[1, p4] + 
                (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(-(lam[2, p2]*(lam[1, p4] - (lam[1, et6]*
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p4] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*(lam[1, p4] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
              lam[1, p6]*(lam[2, p4] + (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - (-(barlam[1, p4]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p4])*(-(lam[2, p2]*(lam[1, p4] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p2]*(lam[2, p4] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) - (barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*(-(lam[2, p6]*(lam[1, p4] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]))))) + lam[1, p6]*(lam[2, p4] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1])))))))/((-(barlam[1, p4]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             (-((lam[2, p5] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])) + (lam[1, p5] - 
                (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                      spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                      spba[p7, {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, 
                       p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                   (barlam[1, p3]*barlam[2, p4]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                 spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                  spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                  barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                       lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) - barlam[2, p4]*(lam[2, et5]*
                      (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                        ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                       (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                          (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                          barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
                  (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 (((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6]))*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - barlam[1, p4]*(lam[2, et5]*
                     (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        ((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                       ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])))) - lam[1, et5]*(lam[2, p4] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                          spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*((barlam[1, p5]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p5]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))/((barlam[1, p5]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p5])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))))*
                 (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                (((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p4])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                     barlam[2, p6])*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]))*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]))*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2) - 
           (10*CK*(barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])^
              5*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p6])*(-(lam[2, p2]*((lam[1, et5]*(-((-(barlam[1, p6]*barlam[
                          2, p2]) + barlam[1, p2]*barlam[2, p6])*
                      (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])) - 
                    (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                       ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                          (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                          spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - (-(lam[2, p6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                        ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[2, p6]*(-(barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                          (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                          spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*
                        (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                        (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + (lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))) + lam[1, p2]*((lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - (-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                       ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                         (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                          spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - (-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                       ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                         (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                          spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*(-(lam[2, p6]*((lam[1, et5]*
                   (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                        lam[2, p6])) - (-(lam[2, p2]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                        ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[2, p2]*(-(barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                          (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                          spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - (-(lam[2, p6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                        ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[2, p6]*(-(barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                          (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                          spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                          spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, 
                          p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*
                        (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                        (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                         (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                        (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                         spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))) + (lam[1, p7] + (lam[1, m1]*
                     s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                     barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                   (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]))) + lam[1, p6]*((lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - (-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                       ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                         (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                          spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - (-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                       ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                         (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                          spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*((barlam[2, p2]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]))*(-(barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1])))) - (barlam[1, p2]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                    lam[2, p6]) + ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]))*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1])))))*(-((barlam[2, p2]*
                 (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p2]*
                (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                    m1])/spba[p7, {m1, p3}, m1])))*
             (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, 
                     m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                        spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])))^2*
             (((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
              ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
             (-(((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                (((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
              ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                       spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/(
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                    spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                   barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
            ((lam[1, p6]*lam[2, p2] - lam[1, p2]*lam[2, p6])*
             (-(lam[2, p2]*(lam[1, p2]*((barlam[2, p2]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p2]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + lam[1, p6]*((barlam[2, p6]*
                     (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))) + lam[1, p2]*(lam[2, p2]*
                 ((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*
                       spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                       {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1])) - (barlam[1, p2]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]))) + lam[2, p6]*((barlam[2, p6]*
                    (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                  (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*
                       spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                       {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1])))))*(-((lam[2, p5] - (lam[2, et6]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                      barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                (lam[1, p4] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))) + 
              (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*(-((barlam[1, p4]*barlam[2, p3]*spa[p3, m1])/
                     spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[2, p4] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7])*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]))*((barlam[1, p5]*barlam[2, p3]*spa[p3, m1])/
                    spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             (lam[2, p6]*((lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6])) - 
                   (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                         (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                          spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - (-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                       ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                         (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                          spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])) - lam[1, p6]*((lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                       lam[2, p6])) - (-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                       ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                         (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                          spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) - (-(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                       ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                         (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                          spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p3])/spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*
                          spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                    barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                  (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                    {m1, p3}, m1])))*((barlam[2, p4]*(-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))) - (barlam[1, p4]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - ((lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))))^2*
             (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et5] - lam[1, et5]*lam[2, p6]) - 
                   ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                       ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                          {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))) + (barlam[1, p5]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6]) - ((lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))))^2) - 
           (10*CK*(barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
             (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
             (lam[2, p2]*(lam[1, p5] - (lam[1, et5]*(-(lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                (barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*
                     spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              lam[1, p2]*(lam[2, p5] - (lam[2, et5]*(-(lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                (barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*
                     spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p2]*(lam[1, p4] - (lam[1, et5]*(-(lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                (barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*
                     spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              lam[1, p2]*(lam[2, p4] - (lam[2, et5]*(-(lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                (barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*
                     spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - ((lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                       ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))) + (barlam[1, p4]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1])))))^2*(-((barlam[2, p5]*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]))))) + (barlam[1, p5]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]))*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])))))*((barlam[2, p6]*
                (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]))*(-(barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                    (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])))) - (barlam[1, p6]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]))*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])))))*(-((barlam[2, p6]*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]))))) + (barlam[1, p6]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]))*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])))))*(-((barlam[2, p2]*
                  (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p2]*
                 (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])))^5)/
            ((lam[2, p6]*(lam[1, p5] - (lam[1, et5]*(-(lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
              lam[1, p6]*(lam[2, p5] - (lam[2, et5]*(-(lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             ((lam[2, p5] - (lam[2, et5]*(-(lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[1, p4] - (lam[1, et5]*(-(lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
              (lam[1, p5] - (lam[1, et5]*(-(lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[2, p4] - (lam[2, et5]*(-(lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             (-(lam[2, p2]*(lam[1, p4] - (lam[1, et5]*(-(lam[2, p2]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p2]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - (lam[1, et6]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                ((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*
                      spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                         lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                      {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - (barlam[1, p2]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])))) + lam[1, p2]*(lam[2, p4] - 
                (lam[2, et5]*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]))*((barlam[2, p5]*
                     (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                (barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*
                     spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + ((lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                       ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))) + (barlam[1, p2]*(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                         barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                         barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1])))))^2*(-(lam[2, p2]*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])) + lam[1, p2]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*(
                (barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]))*
             (-(((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2]) + ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                       ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))*(-(barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                   (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                    spba[p7, {m1, p3}, m1]))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[2, p2]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1])))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2) - 
           (10*CK*(-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p5])*(barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                p5])*(lam[2, p6]*(lam[1, p5] - (lam[1, et5]*
                  (-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                        barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) + 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                       barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                (barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*
                     spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              lam[1, p6]*(lam[2, p5] - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                (barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*
                     spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (lam[2, p6]*(lam[1, p4] - (lam[1, et5]*(-(lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                (barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*
                     spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) - 
              lam[1, p6]*(lam[2, p4] - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                (barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*
                     spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             ((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - ((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                      m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]))*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/(
                (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*
                       spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                       {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])))) - (barlam[1, p2]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]))*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])))))*(-((barlam[2, p2]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]))))) + (barlam[1, p2]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]))*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])))))*(-((barlam[2, p4]*
                  (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                       lam[2, p6])) - ((lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                       ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))) + (barlam[1, p4]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1])))))^2*(-((barlam[2, p5]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]))))) + (barlam[1, p5]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1]))*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])))))*(-((barlam[2, p6]*
                  (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                         spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + (barlam[1, p6]*
                 (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                     {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                     m1])/spba[p7, {m1, p3}, m1])))^5)/
            ((lam[2, p2]*(lam[1, p5] - (lam[1, et5]*(-(lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
              lam[1, p2]*(lam[2, p5] - (lam[2, et5]*(-(lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             ((lam[2, p5] - (lam[2, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[1, p4] - (lam[1, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))) - 
              (lam[1, p5] - (lam[1, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p4]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p4]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p4]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                lam[2, p4] - (lam[2, et5]*(-(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                     ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                         m1])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                      spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                        {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])))))*
             (-(lam[2, p6]*(lam[1, p4] - (lam[1, et5]*(-(lam[2, p6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                        spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1])) + lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1])*((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                        spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                   ((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                    barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p6])) - (lam[1, et6]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                        {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                  ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                      p5])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*
                ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*
                      spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                         lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                      {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                    (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                     spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                       spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                    (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                      {m1, p3}, m1])))) + lam[1, p6]*(lam[2, p4] - 
                (lam[2, et5]*(-(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                        barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                    ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, 
                        m1])/spba[p7, {m1, p3}, m1]))*((barlam[2, p5]*
                     (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])) - (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((barlam[1, p5]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p5])*(lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))/
                 ((barlam[1, p5]*barlam[2, p4] - barlam[1, p4]*barlam[2, p5])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))))*(
                (barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + (barlam[1, p3]*
                     spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])) - 
                (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))) + (barlam[2, p3]*
                     spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p3]*spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, 
                     {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))))*
             (-((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p6]) + ((lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                       ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]) - lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]))*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(-((barlam[2, p6]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))))) + (barlam[1, p6]*(barlam[2, p6]*
                   (lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6]) + 
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                         {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                         barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1])*((barlam[1, p7]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1] - (barlam[1, p3]*
                         barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1]))))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1])))))^2*(-(lam[2, p6]*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                   m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                  spba[p7, {m1, p3}, m1])) + lam[1, p6]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*(
                (barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1] - (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]))*
             (-(((barlam[2, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                      lam[2, p6]) + ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                          barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                        (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                       ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                          {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                          spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                     (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[2, p3]*spa[p3, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                        m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, p3]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))*(-(barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                   (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                    spba[p7, {m1, p3}, m1]))/((lam[1, p6]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                       {m1, p3}, m1]))*(-((barlam[2, p6]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                       (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                        spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1])))*(-((barlam[1, p7]*barlam[2, p3]*
                      spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                     barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1]))) + 
               ((barlam[1, p6]*(lam[1, p6]*lam[2, et5] - lam[1, et5]*
                     lam[2, p6]) + ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1])*((barlam[1, p7]*
                         barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1] - 
                       (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])*
                      ((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                         {m1, p3}, m1] - (barlam[1, p3]*barlam[2, p7]*
                         spa[p3, m1])/spba[p7, {m1, p3}, m1]))*
                    (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                          {m1, p3}, m1]))) + (barlam[1, p3]*spa[p3, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*
                          spb[p3, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/
                       spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*
                       spa[p3, m1])/spba[p7, {m1, p3}, m1])))*
                 (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                         m1]))) + (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                        spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
                ((lam[1, p6]*lam[2, et5] - lam[1, et5]*lam[2, p6])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
                 (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                      (barlam[1, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                       spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                         spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                      (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                        {m1, p3}, m1]))) + (barlam[1, p6]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/
                          spba[p7, {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))) + 
                     (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                      spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                        spba[p7, {m1, p3}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p3]*spa[p3, m1])/spba[p7, {m1, p3}, m1]) + 
                     (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/spba[p7, 
                       {m1, p3}, m1])))*(-((barlam[1, p7]*barlam[2, p3]*
                     spa[p3, m1])/spba[p7, {m1, p3}, m1]) + (barlam[1, p3]*
                    barlam[2, p7]*spa[p3, m1])/spba[p7, {m1, p3}, m1])))^2))*
          (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
               m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
             spba[p7, {m1, p3}, m1])^5)/
         (((lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])*
            (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
           (lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])*
            (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
          (-((barlam[2, p7]*(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, 
                      {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                  (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
              ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*(
                -((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                   {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1]))) + (barlam[1, p7]*(barlam[2, p7]*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                     {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1])) - 
               (barlam[2, p3]*spa[p3, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, 
                      p7] + lam[1, p3]*spb[p3, p7]) - lam[1, et6]*
                   (lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7])))/
                spba[p7, {m1, p3}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]) - lam[1, et6]*
                (lam[2, p7] + (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
              (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                spba[p7, {m1, p3}, m1])))^2*
          (-((barlam[2, p3]*spa[p3, m1]*(barlam[1, p7]*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                     spba[p7, {m1, p3}, m1])) - (barlam[1, p3]*spa[p3, m1]*
                  (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                       p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p3]*spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
              ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                    {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*(
                -((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, 
                   {m1, p3}, m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                 spba[p7, {m1, p3}, m1])*spba[p7, {m1, p3}, m1])) + 
            (barlam[1, p3]*spa[p3, m1]*(barlam[2, p7]*(lam[2, et6]*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, {m1, p3}, 
                     m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p3])/
                    spba[p7, {m1, p3}, m1])) - (barlam[2, p3]*spa[p3, m1]*
                 (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, 
                      p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*
                     spb[p3, p7])))/spba[p7, {m1, p3}, m1]))/
             ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p3])/spba[p7, 
                   {m1, p3}, m1]) - lam[1, et6]*(lam[2, p7] + 
                 (lam[2, m1]*s[m1, p3])/spba[p7, {m1, p3}, m1]))*
              (-((barlam[1, p7]*barlam[2, p3]*spa[p3, m1])/spba[p7, {m1, p3}, 
                  m1]) + (barlam[1, p3]*barlam[2, p7]*spa[p3, m1])/
                spba[p7, {m1, p3}, m1])*spba[p7, {m1, p3}, m1]))^2)))/
      ((-(lam[1, p3]*lam[2, m1]) + lam[1, m1]*lam[2, p3])^2*s[m1, p3]*
       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p3]*spb[p3, p7])) + 
         lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p3]*spb[p3, p7]))^2) + 
     ((-(lam[2, m1]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
         lam[1, m1]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))^6*
       (((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])^5*
          ((-10*CK*(barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                p7])*(-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))^
              5*(-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - (((barlam[1, p6]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2]*
                      lam[2, et5] - (barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[1, et5]*lam[2, p2])*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                   lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))))) + (barlam[1, p5]*(-(barlam[2, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                 (((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p6])*lam[1, p2]*lam[2, et5] - (barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))))*((barlam[2, p7]*(-(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                 (((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p6])*lam[1, p2]*lam[2, et5] - (barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))) - (barlam[1, p7]*(-(barlam[2, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                 (((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p6])*lam[1, p2]*lam[2, et5] - (barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))))*(-((barlam[2, p7]*(-(barlam[1, p3]*
                    (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                  (((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))))) + (barlam[1, p7]*(-(barlam[2, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                 (((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p6])*lam[1, p2]*lam[2, et5] - (barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))))*(lam[2, p3]*((barlam[2, p3]*
                  (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p6])*lam[1, p3]*lam[2, p2] - 
                   (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p3])*((barlam[2, p5]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p3]*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p6])*lam[1, p3]*lam[2, p2] - 
                   (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p3])*((barlam[2, p5]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p3]*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p6])*lam[1, p3]*lam[2, p2] - 
                   (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p3])*((barlam[2, p4]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p3]*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p6])*lam[1, p3]*lam[2, p2] - 
                   (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p3])*((barlam[2, p4]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                 m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                {m1, p4}, m1])*((barlam[2, p4]*(-(barlam[1, p3]*
                    (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                  (((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*spa[p4, m1])/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*spba[p7, {m1, p4}, m1]) - 
               (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - (((barlam[1, p6]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2]*
                      lam[2, et5] - (barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[1, et5]*lam[2, p2])*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])))*spa[p4, m1])/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])))*spba[p7, {m1, p4}, m1]))^2)/
            (((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[
                1, p3]*lam[2, p2] - (barlam[1, p6]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p6])*lam[1, p2]*lam[2, p3])*
             (-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) + (((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2]*
                       lam[2, et5] - (barlam[1, p6]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p6])*lam[1, et5]*lam[2, p2])*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))))) + (barlam[1, p3]*(barlam[2, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])))))^2*(((-(barlam[2, p2]*(lam[1, p2]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                 (barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + (((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[1, p2]*lam[2, et5] - 
                     (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))))/((-(barlam[1, p6]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                   lam[2, et6] - lam[1, et6]*lam[2, p2])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))) - ((-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]))*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (((barlam[1, p6]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2]*
                      lam[2, et5] - (barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[1, et5]*lam[2, p2])*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])))))^2*(-(lam[2, p3]*((barlam[2, p3]*
                   (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])) - (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[1, m1]*spb[m1, p7] + 
                 lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                   (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p3]*lam[2, p2] - 
                    (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p6])*lam[1, p2]*lam[2, p3])*((barlam[2, p5]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p3]*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p6])*lam[1, p3]*lam[2, p2] - 
                   (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p3])*((barlam[2, p5]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p3]*lam[2, p2] - 
                    (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p6])*lam[1, p2]*lam[2, p3])*((barlam[2, p5]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p5] - 
                 (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p3]*lam[2, p2] - 
                    (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p6])*lam[1, p2]*lam[2, p3])*((barlam[2, p4]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p6])*lam[1, p3]*lam[2, p2] - 
                   (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p3])*((barlam[2, p5]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(
                lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p6])*lam[1, p3]*lam[2, p2] - 
                   (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p3])*((barlam[2, p4]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                    lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                      barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p3]*lam[2, p2] - 
                    (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p6])*lam[1, p2]*lam[2, p3])*((barlam[2, p4]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p6])*lam[1, p3]*lam[2, p2] - 
                   (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p3])*((barlam[2, p4]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
           (10*CK*(-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                barlam[2, p5])^5*((barlam[2, p7]*(-(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                 barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
              (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - barlam[2, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                         lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                    p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[2, p5]*
                  (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[1, p5]*
                    (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                    barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]))) + ((-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                   barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                   lam[2, p2])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                   lam[2, p3])))^2*((barlam[1, p5]*barlam[2, p3] - 
                barlam[1, p3]*barlam[2, p5])*lam[2, p3]*(lam[1, m1]*
                 spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(-(lam[2, p3]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))) - 
              (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*lam[
                1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(-(lam[2, p3]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))))*
             ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*lam[
                2, p3]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p6])*lam[1, p2] - (lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))) - 
              (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*lam[
                1, p3]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p6])*lam[2, p2] - (lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))))*
             (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                 m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                {m1, p4}, m1])*((barlam[2, p4]*(-(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                  lam[2, et6] - lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, 
                 m1]) - (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                  barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                  lam[2, p2])*spba[p7, {m1, p4}, m1]))*
             ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[1, p5]*
                  (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*spa[p4, m1]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                         lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                spba[p7, {m1, p4}, m1])))/
            ((-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) + barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p3]))) + (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[2, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))^
              2*((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
               (barlam[1, p5]*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + barlam[2, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))^
              2*(-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                      lam[2, p2]) + lam[1, p2]*lam[2, p6])*((barlam[1, p6]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, 
                      p2]) + lam[1, p2]*lam[2, p6])*((barlam[1, p6]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                   (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                lam[2, p3]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p6])*lam[1, p2] - (lam[1, et5]*
                   (-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]) - 
                    (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]))))) + 
              (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*lam[
                1, p3]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p6])*lam[2, p2] - (lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(-(lam[2, p3]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]))))*(
                (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[1, p2] - (lam[1, et5]*(-(lam[2, p3]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(-(lam[2, p3]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]))))*(
                (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[2, p2] - (lam[2, et5]*(-(lam[2, p3]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) - (barlam[1, p5]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                   (-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]) - 
                    (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                   m1])) + (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(-(lam[2, p3]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                  m1]))) - (10*CK*(-(barlam[1, p5]*barlam[2, p3]) + 
               barlam[1, p3]*barlam[2, p5])^2*(barlam[1, p7]*barlam[2, p3] - 
              barlam[1, p3]*barlam[2, p7])*(barlam[1, p7]*barlam[2, p5] - 
              barlam[1, p5]*barlam[2, p7])*((barlam[2, p5]*(barlam[1, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - (barlam[1, p5]*(barlam[2, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*(-((barlam[2, p5]*(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))) + (barlam[1, p5]*(barlam[2, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*((barlam[2, p7]*(barlam[1, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - (barlam[1, p7]*(barlam[2, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*(-(lam[2, p3]*(lam[1, p5] + 
                 (lam[1, et5]*(-((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(-(lam[2, p3]*
                         (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p5] - 
                         (lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, p5] - (lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                 (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p3]*(lam[2, p5] + (lam[2, et5]*
                  (-((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(-(lam[2, p3]*(lam[1, p5] - 
                         (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                      lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, p5] - 
                       (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - (lam[2, et6]*
                  (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]))))*((lam[2, p5] + (lam[2, et5]*
                  (-((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(-(lam[2, p3]*(lam[1, p5] - 
                         (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                      lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, p5] - 
                       (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - (lam[2, et6]*
                  (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]) - (lam[1, p5] + (lam[1, et5]*
                  (-((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(-(lam[2, p3]*(lam[1, p5] - 
                         (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                      lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, p5] - 
                       (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - (lam[1, et6]*
                  (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 spba[p7, {m1, p4}, m1]))^5)/
            ((((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[1, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))) - ((-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]))*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - barlam[2, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))))^2*
             ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[
                2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[
                1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p3]*(lam[1, p5] + (lam[1, et5]*
                  (-((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(-(lam[2, p3]*(lam[1, p5] - 
                         (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                      lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, p5] - 
                       (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - (lam[1, et6]*
                  (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]))) - lam[1, p3]*(lam[2, p5] + 
                (lam[2, et5]*(-((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(-(lam[2, p3]*
                        (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p5] - 
                        (lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6])*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, p5] - 
                       (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - (lam[2, et6]*
                  (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]))))*(-(lam[2, p3]*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                  {m1, p4}, m1]))*(((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]) - ((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*spa[p4, m1]*
                 (-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/(((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))*spba[p7, {m1, p4}, m1]) - 
               (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[2, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/(((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))*spba[p7, {m1, p4}, m1]))^
              2) - (10*CK*(barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                2, p7])*(-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))^
              2*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
             (-(lam[2, p3]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p6])*lam[1, p2] + (lam[1, et5]*
                   (-(((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p3]*lam[2, p2] - (barlam[1, p6]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                        lam[1, p2]*lam[2, p3])*(-((barlam[2, p3]*
                          (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                         ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                         (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))) - (-((barlam[2, p7]*
                         (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                        (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])))*((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (barlam[1, p6]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p6])*lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                    (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                       (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                   (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                       (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) + 
              lam[1, p3]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p6])*lam[2, p2] + (lam[2, et5]*
                  (-(((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p3]*lam[2, p2] - (barlam[1, p6]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                       lam[1, p2]*lam[2, p3])*(-((barlam[2, p3]*
                         (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                        (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])))) - (-((barlam[2, p7]*
                        (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                       (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - (barlam[1, p6]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (-((barlam[2, p7]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))))*((barlam[2, p7]*
                (barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + (((barlam[1, p6]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p6])*lam[1, p2]*lam[2, et5] - 
                    (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) + (-((barlam[2, p7]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - (barlam[1, p7]*(barlam[2, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 (((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p6])*lam[1, p2]*lam[2, et5] - (barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) + (-((barlam[2, p7]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*(((-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                (barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + (((barlam[1, p6]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p6])*lam[1, p2]*lam[2, et5] - 
                    (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                   (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))) - ((-(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + (((barlam[1, p6]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p6])*lam[1, p2]*lam[2, et5] - 
                    (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                   (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(barlam[1, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))) + 
              ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]))*(barlam[2, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 (((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p6])*lam[1, p2]*lam[2, et5] - (barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                   (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))))*(((barlam[1, p6]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                (lam[2, et5]*(-(((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p3]*lam[2, p2] - 
                      (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2]*lam[2, p3])*(-((barlam[2, p3]*
                         (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                        (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])))) - (-((barlam[2, p7]*
                        (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                       (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - (barlam[1, p6]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (-((barlam[2, p7]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[1, p2] + (lam[1, et5]*(-(((barlam[1, p6]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p6])*lam[1, p3]*lam[2, p2] - 
                      (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2]*lam[2, p3])*(-((barlam[2, p3]*
                         (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                        (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])))) - (-((barlam[2, p7]*
                        (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                       (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - (barlam[1, p6]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (-((barlam[2, p7]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                spba[p7, {m1, p4}, m1])^5)/
            ((lam[2, p3]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p6])*lam[1, p2] + (lam[1, et5]*
                  (-(((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p3]*lam[2, p2] - (barlam[1, p6]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                       lam[1, p2]*lam[2, p3])*(-((barlam[2, p3]*
                         (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                        (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])))) - (-((barlam[2, p7]*
                        (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                       (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - (barlam[1, p6]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (-((barlam[2, p7]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))) - lam[1, p3]*(
                (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[2, p2] + (lam[2, et5]*(-(((barlam[1, p6]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p6])*lam[1, p3]*lam[2, p2] - 
                      (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2]*lam[2, p3])*(-((barlam[2, p3]*
                         (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                        (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])))) - (-((barlam[2, p7]*
                        (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                       (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - (barlam[1, p6]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (-((barlam[2, p7]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p3])) - (((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2]*
                       lam[2, et5] - (barlam[1, p6]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p6])*lam[1, et5]*lam[2, p2])*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))) + (barlam[1, p5]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - (((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[1, p2]*lam[2, et5] - 
                     (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                   (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))^2*((lam[2, m1]*spb[m1, p7] + 
                lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                  (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p5] - 
                (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p5] - 
                (lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                   {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((lam[2, p3]*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - (barlam[1, p3]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - (barlam[1, p7]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))*(lam[1, p7] + (lam[1, m1]*
                  s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p3]*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - (barlam[1, p3]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - (barlam[1, p7]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                  s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                   (((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2]*lam[2, et5] - (barlam[1, p6]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                       lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 (((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                    (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                       (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                   (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                       (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                  spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - (((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[1, p2]*lam[2, et5] - 
                     (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                (((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))*spba[p7, {m1, p4}, m1]))^
              2) - (10*CK*(-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
               barlam[2, p5])*(-((barlam[2, p7]*(-(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                   barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                   lam[2, et6] - lam[1, et6]*lam[2, p2])))^5*
             ((barlam[2, p3]*(-((((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[1, p2]*lam[2, et5] - 
                     (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))) - (barlam[1, p3]*
                (-((((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))))*(-((barlam[2, p3]*
                 (-((((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2]*lam[2, et5] - (barlam[1, p6]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                       lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1])))) + (barlam[1, p3]*
                (-((((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))))*(-((barlam[2, p5]*
                 (-((((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2]*lam[2, et5] - (barlam[1, p6]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                       lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1])))) + (barlam[1, p5]*
                (-((((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))))*(-(((barlam[2, p7]*(-(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) - (barlam[1, p7]*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                  spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                    lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                      barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) - (barlam[1, p5]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                   ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p6])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - (barlam[1, p6]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p6]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p6])*lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-(((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[2, p5] - (lam[2, et6]*
                   (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - (lam[2, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - (barlam[1, p6]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p6])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                 m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                {m1, p4}, m1])*((barlam[2, p4]*spa[p4, m1]*
                 (-((((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2]*lam[2, et5] - (barlam[1, p6]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                       lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
               (barlam[1, p4]*spa[p4, m1]*(-((((barlam[1, p6]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p6])*lam[1, p2]*lam[2, et5] - 
                      (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))^2)/
            ((-((barlam[2, p7]*((((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[1, p2]*lam[2, et5] - 
                      (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))) + (barlam[1, p7]*
                 ((((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))^2*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*((((barlam[1, p6]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2]*
                      lam[2, et5] - (barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[1, et5]*lam[2, p2])*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                    barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                 (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - ((-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                 ((((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))^2*(lam[2, p3]*(lam[1, p5] - 
                (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p6])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, 
                      p2]) + lam[1, p2]*lam[2, p6])*((barlam[1, p6]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                   (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p6])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) - (barlam[1, p5]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                   ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p6])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - (barlam[1, p6]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p5] - 
                 (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p6])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p6]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p6])*lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(
                lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p6])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[
                2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                  {m1, p4}, m1]) - (barlam[1, p6]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p6])*lam[1, p2]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p6]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p6])*lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p6]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p6])*lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                  m1]))) - (10*CK*(barlam[1, p7]*barlam[2, p5] - barlam[1, 
                 p5]*barlam[2, p7])^5*((barlam[2, p3]*(-(barlam[1, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]))) - (barlam[1, p3]*(-(barlam[2, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]))))*(-((barlam[2, p3]*(-(barlam[1, p5]*
                    (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1])))) + (barlam[1, p3]*(-(barlam[2, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]))))*(-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                  (-(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*(barlam[1, p7]*barlam[2, 
                     p5] - barlam[1, p5]*barlam[2, p7])*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2])*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
               ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[2, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))^2*(-((-(barlam[1, p7]*barlam[2, 
                    p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, m1]*
                  spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) - (barlam[1, p5]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                   ((lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p4}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*(
                lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                     spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                   p7])*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p6])*lam[2, p2] - (lam[2, et5]*
                   ((lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]) - 
                    (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                   m1])) + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                 barlam[2, p7])*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p6])*lam[1, p2] - (lam[1, et5]*
                  ((lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, p5] - 
                     (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                         lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                {m1, p4}, m1])*((barlam[2, p4]*(-(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                  lam[2, et6] - lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, 
                 m1]) - (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                  barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                  lam[2, p2])*spba[p7, {m1, p4}, m1]))*
             ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]))*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                spa[p4, m1]*(-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]))*spba[p7, {m1, p4}, m1])))/
            (((barlam[2, p5]*(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))) - (barlam[1, p5]*(barlam[2, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))))^2*(-((barlam[2, p7]*(barlam[1, p5]*
                    (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))) + (barlam[1, p7]*(barlam[2, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))))^2*(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                  (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                     spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))) - 
              lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                     spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                     spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1]))))*(
                (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[1, p2] - (lam[1, et5]*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                     spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1]))))*(
                (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[2, p2] - (lam[2, et5]*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))))*
             ((lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*(
                (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[2, p2] - (lam[2, et5]*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]))))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*(
                (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[1, p2] - (lam[1, et5]*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                  m1]))) - (10*CK*((barlam[2, p5]*(-(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p2])) - (barlam[1, p5]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                  lam[2, et6] - lam[1, et6]*lam[2, p2])))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
             (lam[2, p3]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p6])*lam[1, p2] - (lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))))*(-((barlam[1, p4]*
                   barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]) - lam[1, p3]*((barlam[1, p6]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p6])*lam[2, p2] - 
                (lam[2, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))))*(-((barlam[1, p4]*
                   barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]))*(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*
                  (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1])) - (lam[1, et5]*(-(lam[2, p3]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[2, p4]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                     spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))))*(-((barlam[1, p4]*
                   barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]) - lam[1, p3]*(lam[2, p5] - (lam[2, et6]*
                  (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1])) - (lam[2, et5]*(-(lam[2, p3]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[2, p4]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                     spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))))*(-((barlam[1, p4]*
                   barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]))*(-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                   (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p5]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2*
             ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
              (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))) + ((-(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]))*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((-(barlam[1, p6]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p2])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                 m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                spba[p7, {m1, p4}, m1])^5)/
            ((-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[2, p2] - (lam[2, et5]*(-(lam[2, p3]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))))*(lam[1, p5] - 
                (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))))) - 
              ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[1, p2] - (lam[1, et5]*(-(lam[2, p3]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))))*(lam[2, p5] - 
                (lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))))))*
             (-(((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  lam[2, p2] - (lam[2, et5]*(-(lam[2, p3]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*(-((barlam[1, p5]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                      barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[1, p2] - (lam[1, et5]*(-(lam[2, p3]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                      lam[2, p2]) + lam[1, p2]*lam[2, p6])*((barlam[1, p6]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[1, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                       lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                        p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]))/((lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]) - 
                    (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))))*(-((barlam[1, p4]*
                    barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1])) + lam[1, p3]*(lam[2, p5] - (lam[2, et6]*
                  (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1])) - (lam[2, et5]*(-(lam[2, p3]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[2, p4]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                     spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))))*(-((barlam[1, p4]*
                   barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]))*(-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3]) - (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                    spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) - (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2*
             (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3]) - (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                    spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])*
                  spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                 (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) - (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])*spba[p7, {m1, p4}, m1]))^2) - 
           (10*CK*(-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
             ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
              (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
             (-(((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  lam[2, p2] - (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                        p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]))/((lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  (((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])) + ((barlam[1, p6]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p6])*lam[1, p2] - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 (((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                  spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                  barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
             (-((lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                    lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                      barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                        p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]))/((lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                        p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]))/((lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                  (((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])) + (lam[1, p5] - 
                (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                     spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 (((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                  spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                  barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
             ((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                   barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
              (barlam[1, p3]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                   barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              (barlam[1, p3]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                   barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                    spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               (barlam[1, p5]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]))) + 
              ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]))*(-(barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/spba[p7, {m1, p4}, m1]))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                    m1])/spba[p7, {m1, p4}, m1])))*
             (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                spba[p7, {m1, p4}, m1])^5)/
            ((lam[2, p3]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p6])*lam[1, p2] - (lam[1, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 (((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))) - lam[1, p3]*((barlam[1, p6]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[2, p2] - 
                (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 (((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))))*(((barlam[1, p6]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p6])*lam[2, p2] - 
                (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 (((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))*(lam[1, p5] - (lam[1, et6]*
                  (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1])) - (lam[1, et5]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                       lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                         lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                     lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                       (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                     spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 (((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))) - ((barlam[1, p6]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p6])*lam[1, p2] - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 (((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))*(lam[2, p5] - (lam[2, et6]*
                  (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1])) - (lam[2, et5]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                       lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                         lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                     lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                       (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                     spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 (((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))))*((lam[2, m1]*spb[m1, p7] + 
                lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                  (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                     spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 (((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                  spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                  barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                     spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 (((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                  spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                  barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p7]*(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                    spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               (barlam[1, p7]*(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2*
             (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])*spba[p7, {m1, p4}, 
                   m1])) + (barlam[1, p4]*spa[p4, m1]*(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1])*spba[p7, {m1, p4}, m1]))^
              2) - (10*CK*(barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                2, p7])*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2]))) + (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))^
              5*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                  spb[p4, p7] + (lam[1, et5]*(-((barlam[1, p7]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                          ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                      lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))/((lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                (lam[2, et5]*(-((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (-(lam[2, p3]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                (lam[2, et5]*(-((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (-(lam[2, p3]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                (lam[1, et5]*(-((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (-(lam[2, p3]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]) + (lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
              (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]) + (lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                 m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                spba[p7, {m1, p4}, m1])^2*(-((barlam[1, p7]*barlam[2, p4]*
                 spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])*
             ((barlam[2, p4]*spa[p4, m1]*(barlam[1, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/spba[p7, {m1, p4}, m1]))/(
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                 m1]) - (barlam[1, p4]*spa[p4, m1]*(barlam[2, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])) - (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/spba[p7, {m1, p4}, m1]))/(
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                 m1]))*(-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) - (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                (((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, 
                  {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/(((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                 m1])))/((lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                 spb[p4, p7] + (lam[1, et5]*(-((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                (lam[2, et5]*(-((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (-(lam[2, p3]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[
                2, p2]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[
                1, p2]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                   {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))*(lam[1, p7] + (lam[1, m1]*
                  s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                  s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p3])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p5]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
               ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[2, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p6]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))^2)))/
         ((-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6])*
          (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                   lam[2, et6] - lam[1, et6]*lam[2, p6])))/
              ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
               (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
            (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                  lam[2, et6] - lam[1, et6]*lam[2, p6])))/
             ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
              (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))^2*
          ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p2]) + barlam[1, p6]*(lam[1, p6]*
                  lam[2, et6] - lam[1, et6]*lam[2, p6])))/
             ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
              (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
            (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p2]) + barlam[2, p6]*(lam[1, p6]*
                  lam[2, et6] - lam[1, et6]*lam[2, p6])))/
             ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
              (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))^2) + 
        ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])^5*
          ((-10*CK*(barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                p7])*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))^
              5*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - (((barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                      lam[2, et5] - (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, et5]*lam[2, p3])*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                   lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))))) + (barlam[1, p5]*(-(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                 (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])))))*((barlam[2, p7]*(-(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                 (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])))) - (barlam[1, p7]*(-(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                 (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])))))*(-((barlam[2, p7]*(-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))))) + (barlam[1, p7]*(-(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                 (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])))))*(lam[2, p2]*((barlam[2, p2]*
                  (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*lam[1, p3]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p3])*((barlam[2, p5]*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p2]*((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3])) - (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*lam[1, p3]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p3])*((barlam[2, p5]*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3])) - (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*lam[1, p3]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p3])*((barlam[2, p4]*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p2]*((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3])) - (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*lam[1, p3]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p3])*((barlam[2, p4]*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                 m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                {m1, p4}, m1])*((barlam[2, p4]*(-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*spa[p4, m1])/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*spba[p7, {m1, p4}, m1]) - 
               (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - (((barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                      lam[2, et5] - (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, et5]*lam[2, p3])*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3])))*spa[p4, m1])/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3])))*spba[p7, {m1, p4}, m1]))^2)/
            ((-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                lam[1, p3]*lam[2, p2]) + (barlam[1, p6]*barlam[2, p3] - 
                barlam[1, p3]*barlam[2, p6])*lam[1, p2]*lam[2, p3])*
             (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + (((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                       lam[2, et5] - (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[1, et5]*lam[2, p3])*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))))) + (barlam[1, p2]*(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3])))))^2*(((-(barlam[2, p3]*(lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + (((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3]*lam[2, et5] - 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))))/((-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])*(lam[1, p3]*
                   lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))) - ((-(barlam[1, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]))*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (((barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                      lam[2, et5] - (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, et5]*lam[2, p3])*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3])))))^2*(-(lam[2, p2]*((barlam[2, p2]*
                   (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])) - (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*(lam[1, m1]*spb[m1, p7] + 
                 lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                   (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*lam[1, p3]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[1, p2]*lam[2, p3])*((barlam[2, p5]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p2]*((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3])) - (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*lam[1, p3]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p3])*((barlam[2, p5]*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*lam[1, p3]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[1, p2]*lam[2, p3])*((barlam[2, p5]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p5] - 
                 (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*lam[1, p3]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[1, p2]*lam[2, p3])*((barlam[2, p4]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*lam[1, p3]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p3])*((barlam[2, p5]*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(
                lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*lam[1, p3]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p3])*((barlam[2, p4]*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                    lam[1, p3]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                      barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p6])*lam[1, p3]*lam[2, p2]) + 
                    (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[1, p2]*lam[2, p3])*((barlam[2, p4]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*lam[1, p3]*lam[2, p2]) + 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p2]*lam[2, p3])*((barlam[2, p4]*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
           (10*CK*(-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p5])^5*((barlam[2, p7]*(-(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                 barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
              (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                        lam[1, p3]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                         lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                    p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[2, p5]*
                  (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p5]*
                    (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                    barlam[2, p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]))) + ((-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                   lam[2, p2])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                   lam[2, p3])))^2*((barlam[1, p5]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p5])*lam[2, p2]*(lam[1, m1]*
                 spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p5]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))) - 
              (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p5]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))))*
             ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                2, p2]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[1, p3] - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))) - 
              (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                1, p2]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[2, p3] - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))))*
             (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                 m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                {m1, p4}, m1])*((barlam[2, p4]*(-(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*barlam[2, 
                    p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                  lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, 
                 m1]) - (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                  barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                  lam[2, p3])*spba[p7, {m1, p4}, m1]))*
             ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p5]*
                  (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*spa[p4, m1]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                         lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                spba[p7, {m1, p4}, m1])))/
            ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p2]))) + (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[2, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))^
              2*((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
               (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[2, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))^
              2*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                      lam[2, p3]) + lam[1, p3]*lam[2, p6])*((barlam[1, p6]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, 
                      p3]) + lam[1, p3]*lam[2, p6])*((barlam[1, p6]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                   (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                lam[2, p2]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p6])*lam[1, p3] - (lam[1, et5]*
                   (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]) - 
                    (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]))))) + 
              (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                1, p2]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[2, p3] - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p5]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]))))*(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[1, p3] - (lam[1, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p5]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]))))*(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[2, p3] - (lam[2, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - (barlam[1, p5]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                   (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]) - 
                    (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                   m1])) + (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p5]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                  m1]))) - (10*CK*(-(barlam[1, p5]*barlam[2, p2]) + 
              barlam[1, p2]*barlam[2, p5])*(-(barlam[1, p7]*barlam[2, p2]) + 
              barlam[1, p2]*barlam[2, p7])*(barlam[1, p7]*barlam[2, p5] - 
               barlam[1, p5]*barlam[2, p7])^2*((barlam[2, p2]*
                (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                         lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*((barlam[2, p5]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*(-((barlam[2, p5]*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))) + (barlam[1, p5]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*(-(lam[2, p2]*(lam[1, p5] + 
                 (lam[1, et5]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(-(lam[2, p2]*
                         (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6])*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                         (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*((lam[2, p5] - 
                        (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, p5] - (lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                 (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p2]*(lam[2, p5] + (lam[2, et5]*
                  (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(-(lam[2, p2]*(lam[1, p5] - 
                         (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                      lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*((lam[2, p5] - (lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - (lam[2, et6]*
                  (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]))))*((lam[2, p5] + (lam[2, et5]*
                  (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(-(lam[2, p2]*(lam[1, p5] - 
                         (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                      lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*((lam[2, p5] - (lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - (lam[2, et6]*
                  (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]) - (lam[1, p5] + (lam[1, et5]*
                  (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(-(lam[2, p2]*(lam[1, p5] - 
                         (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                      lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*((lam[2, p5] - (lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - (lam[1, et6]*
                  (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*
                 (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 spba[p7, {m1, p4}, m1]))^5)/
            ((((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3])*((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))) - ((-(barlam[1, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]))*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3])*((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))))^2*
             (-(lam[2, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p5])*lam[1, p2] + (-(barlam[1, p7]*barlam[2, 
                      p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
              lam[1, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[2, p2] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
             ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*lam[
                2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*lam[
                1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                  {m1, p4}, m1]) - lam[1, p2]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((lam[2, p5] + (lam[2, et5]*(-((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*
                      (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*((barlam[1, 
                          p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                         (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*((lam[2, p5] - 
                        (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, p5] - (lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                 (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (lam[1, p5] + (lam[1, et5]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[2, p2]*
                        (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6])*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                        (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*((lam[2, p5] - (lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - (lam[1, et6]*
                  (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*spa[p4, m1]*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/(((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))*spba[p7, {m1, p4}, m1]) - 
               (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[2, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/(((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))*spba[p7, {m1, p4}, m1]))^
              2) - (10*CK*(-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
               barlam[2, p7])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*barlam[2, 
                    p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                  lam[2, et6] - lam[1, et6]*lam[2, p3])))*
             (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))^
              2*(-(lam[2, p2]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p6])*lam[1, p3] + (lam[1, et5]*
                   (-((-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*lam[1, p3]*lam[2, p2]) + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        lam[1, p2]*lam[2, p3])*(-((barlam[2, p2]*
                          (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                         ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                         (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))) - (-(barlam[1, p7]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                     (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                        (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])))*((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                       (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                       (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) + 
              lam[1, p2]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[2, p3] + (lam[2, et5]*
                  (-((-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*lam[1, p3]*lam[2, p2]) + (barlam[1, p6]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                       lam[1, p2]*lam[2, p3])*(-((barlam[2, p2]*
                         (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                        (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])))) - (-(barlam[1, p7]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                    (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                       (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (-((barlam[2, p7]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))))*((barlam[2, p2]*
                (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + (((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p3]*lam[2, et5] - 
                    (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*(((-(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + (((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p3]*lam[2, et5] - 
                    (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))) - ((-(barlam[1, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + (((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p3]*lam[2, et5] - 
                    (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))) + 
              ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))))*(((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                (lam[2, et5]*(-((-((barlam[1, p6]*barlam[2, p3] - barlam[1, 
                          p3]*barlam[2, p6])*lam[1, p3]*lam[2, p2]) + 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p2]*lam[2, p3])*(-((barlam[2, p2]*
                         (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                        (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])))) - (-(barlam[1, p7]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                    (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                       (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (-((barlam[2, p7]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[1, p3] + (lam[1, et5]*(-((-((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                        lam[2, p2]) + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p2]*lam[2, p3])*
                     (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                        (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])))) - (-(barlam[1, p7]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                    (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                       (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (-((barlam[2, p7]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                spba[p7, {m1, p4}, m1])^5)/
            ((-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - (((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                       lam[2, et5] - (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[1, et5]*lam[2, p3])*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))) + (barlam[1, p5]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - (((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3]*lam[2, et5] - 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))^2*(-(lam[2, p2]*(lam[1, p2]*
                  ((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + ((barlam[2, p7]*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p7]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]))) + lam[1, p2]*(
                lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - (barlam[1, p2]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))) + ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - (barlam[1, p7]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1])))*((lam[2, m1]*spb[m1, p7] + 
                lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                  (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p5] - 
                (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p5] - 
                (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                  {m1, p4}, m1]) - lam[1, p2]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-(((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  lam[2, p3] + (lam[2, et5]*(-((-((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                         lam[2, p2]) + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p2]*lam[2, p3])*
                      (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                         ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                         (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))) - (-(barlam[1, p7]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                     (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                        (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])))*((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                       (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                       (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                   m1])) + ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[1, p3] + (lam[1, et5]*
                  (-((-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*lam[1, p3]*lam[2, p2]) + (barlam[1, p6]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                       lam[1, p2]*lam[2, p3])*(-((barlam[2, p2]*
                         (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                        (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])))) - (-(barlam[1, p7]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                    (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                       (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (-((barlam[2, p7]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                   (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                       lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 (((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                       (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                       (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                  spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - (((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3]*lam[2, et5] - 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                (((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))*spba[p7, {m1, p4}, m1]))^
              2) - (10*CK*(-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
               barlam[2, p5])*(-((barlam[2, p7]*(-(barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                   barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                   lam[2, et6] - lam[1, et6]*lam[2, p3])))^5*
             ((barlam[2, p2]*(-((((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3]*lam[2, et5] - 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) - barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))) - (barlam[1, p2]*
                (-((((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))))*(-((barlam[2, p2]*
                 (-((((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                       lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1])))) + (barlam[1, p2]*
                (-((((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))))*(-((barlam[2, p5]*
                 (-((((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                       lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1])))) + (barlam[1, p5]*
                (-((((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))))*(-(((barlam[2, p7]*(-(barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) - (barlam[1, p7]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])))*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                  spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                    lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                      barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - (barlam[1, p5]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                   ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3])) - (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p5]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-(((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])) - (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*(lam[2, p5] - (lam[2, et6]*
                   (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - (lam[2, et5]*((barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3])) - (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                 m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                {m1, p4}, m1])*((barlam[2, p4]*spa[p4, m1]*
                 (-((((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                       lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
               (barlam[1, p4]*spa[p4, m1]*(-((((barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p3]*lam[2, et5] - 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))^2)/
            ((-((barlam[2, p7]*((((barlam[1, p6]*barlam[2, p3] - barlam[1, 
                          p3]*barlam[2, p6])*lam[1, p3]*lam[2, et5] - 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))) + (barlam[1, p7]*
                 ((((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))^2*
             (((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*((((barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                      lam[2, et5] - (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, et5]*lam[2, p3])*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3])) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                    barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - ((-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                 ((((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))^2*(lam[2, p2]*(lam[1, p5] - 
                (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, 
                      p3]) + lam[1, p3]*lam[2, p6])*((barlam[1, p6]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                   (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - (barlam[1, p5]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                   ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p5] - 
                 (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[1, et5]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p5]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(
                lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*lam[
                2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                  {m1, p4}, m1]) - (barlam[1, p6]*barlam[2, p3] - 
                barlam[1, p3]*barlam[2, p6])*lam[1, p3]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3])) - (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p5]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3])) - (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p5]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                  m1]))) - (10*CK*(barlam[1, p7]*barlam[2, p5] - barlam[1, 
                 p5]*barlam[2, p7])^5*((barlam[2, p2]*(-(barlam[1, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]))) - (barlam[1, p2]*(-(barlam[2, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]))))*(-((barlam[2, p2]*(-(barlam[1, p5]*
                    (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]))))*(-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                  (-(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p6])*(barlam[1, p7]*barlam[2, 
                     p5] - barlam[1, p5]*barlam[2, p7])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3])*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
               ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[2, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))^2*(-((-(barlam[1, p7]*barlam[2, 
                    p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, m1]*
                  spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - (barlam[1, p5]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                   ((lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p4}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*(
                lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p5]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                   p7])*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p6])*lam[2, p3] - (lam[2, et5]*
                   ((lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   ((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]) - 
                    (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                   m1])) + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                 barlam[2, p7])*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[1, p3] - (lam[1, et5]*
                  ((lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                        lam[1, p3]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, p5] - 
                     (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                         lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                {m1, p4}, m1])*((barlam[2, p4]*(-(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*barlam[2, 
                    p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                  lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, 
                 m1]) - (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                  barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                  lam[2, p3])*spba[p7, {m1, p4}, m1]))*
             ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]))*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                spa[p4, m1]*(-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]))*spba[p7, {m1, p4}, m1])))/
            (((barlam[2, p5]*(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))) - (barlam[1, p5]*(barlam[2, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))))^2*(-((barlam[2, p7]*(barlam[1, p5]*
                    (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))) + (barlam[1, p7]*(barlam[2, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))))^2*(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                  (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p5]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))) - 
              lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p5]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p5]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1]))))*(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[1, p3] - (lam[1, et5]*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p5]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1]))))*(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[2, p3] - (lam[2, et5]*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))))*
             ((lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[2, p3] - (lam[2, et5]*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]))))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[1, p3] - (lam[1, et5]*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                  m1]))) - (10*CK*((barlam[2, p5]*(-(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                 barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3])) - (barlam[1, p5]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*barlam[2, 
                    p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                  lam[2, et6] - lam[1, et6]*lam[2, p3])))*
             (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
             (lam[2, p2]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[1, p3] - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))))*(-((barlam[1, p4]*
                   barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]) - lam[1, p2]*((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*lam[2, p3] - 
                (lam[2, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))))*(-((barlam[1, p4]*
                   barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]))*(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                  (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1])) - (lam[1, et5]*(-(lam[2, p2]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[2, p4]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))))*(-((barlam[1, p4]*
                   barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]) - lam[1, p2]*(lam[2, p5] - (lam[2, et6]*
                  (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1])) - (lam[2, et5]*(-(lam[2, p2]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[2, p4]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))))*(-((barlam[1, p4]*
                   barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]))*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                   (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p5]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2*
             ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
              (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))) + ((-(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]))*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((-(barlam[1, p6]*barlam[2, p3]) + 
                 barlam[1, p3]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p2]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                 m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                spba[p7, {m1, p4}, m1])^5)/
            ((-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[2, p3] - (lam[2, et5]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))))*(lam[1, p5] - 
                (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))))) - 
              ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[1, p3] - (lam[1, et5]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))))*(lam[2, p5] - 
                (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))))))*
             (-(((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  lam[2, p3] - (lam[2, et5]*(-(lam[2, p2]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*(-((barlam[1, p5]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                      barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[1, p3] - (lam[1, et5]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*
                      lam[2, p3]) + lam[1, p3]*lam[2, p6])*((barlam[1, p6]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[1, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                       lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                        p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   ((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]) - 
                    (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p4, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])))))*(-((barlam[1, p4]*
                    barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1])) + lam[1, p2]*(lam[2, p5] - (lam[2, et6]*
                  (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1])) - (lam[2, et5]*(-(lam[2, p2]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[2, p4]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))))*(-((barlam[1, p4]*
                   barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]))*(-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) - (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                    spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) - (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2*
             (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) - (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                    spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])*
                  spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) - (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])*spba[p7, {m1, p4}, m1]))^2) - 
           (10*CK*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
             ((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
              (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
             (-(((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  lam[2, p3] - (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                        p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  (((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])) + ((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*lam[1, p3] - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 (((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                  spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                  barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
             (-((lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                    lam[1, p3]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                      barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                        p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                        p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                  (((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])) + (lam[1, p5] - 
                (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 (((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                  spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                  barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
             ((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                   barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
              (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                   barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                   barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                    spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               (barlam[1, p5]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]))) + 
              ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]))*(-(barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/spba[p7, {m1, p4}, m1]))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                    m1])/spba[p7, {m1, p4}, m1])))*
             (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                spba[p7, {m1, p4}, m1])^5)/
            ((lam[2, p2]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[1, p3] - (lam[1, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                        lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 (((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))) - lam[1, p2]*((barlam[1, p6]*
                   barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] - 
                (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 (((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))))*(((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*lam[2, p3] - 
                (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 (((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))*(lam[1, p5] - (lam[1, et6]*
                  (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1])) - (lam[1, et5]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                       lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                         lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                     lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 (((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))) - ((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*lam[1, p3] - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 (((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))*(lam[2, p5] - (lam[2, et6]*
                  (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1])) - (lam[2, et5]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                       lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                         lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                     lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 (((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))))*((lam[2, m1]*spb[m1, p7] + 
                lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                  (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((lam[2, p5] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 (((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                  spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                  barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p5] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]))*spa[p4, m1])/((-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p4, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 (((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                  spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                  barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p7]*(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                    spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               (barlam[1, p7]*(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2*
             (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])*spba[p7, {m1, p4}, 
                   m1])) + (barlam[1, p4]*spa[p4, m1]*(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1])*spba[p7, {m1, p4}, m1]))^
              2) - (10*CK*(-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
               barlam[2, p7])*(-((barlam[2, p5]*(-(barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                   barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p3]))) + (barlam[1, p5]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                   lam[2, et6] - lam[1, et6]*lam[2, p3])))^5*
             (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                 (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                          ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                      lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                     ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))/((lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))))*((barlam[1, p4]*
                       barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))))*((barlam[1, p4]*
                       barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))))*((barlam[1, p4]*
                       barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]) + (lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
              (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]) + (lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                {m1, p4}, m1])*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                 spa[p4, m1])/spba[p7, {m1, p4}, m1])^2*
             ((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/spba[p7, {m1, p4}, m1]))/(
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                 m1]) - (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])) - (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/spba[p7, {m1, p4}, m1]))/(
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                 m1]))*(-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) - (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                (((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, 
                  {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                 m1])))/(((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                 barlam[2, p6])*lam[2, p3]*(lam[1, p5] - (lam[1, et6]*
                  (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]))) - (barlam[1, p6]*barlam[2, p3] - 
                barlam[1, p3]*barlam[2, p6])*lam[1, p3]*(lam[2, p5] - 
                (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-(lam[2, p2]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                  ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) + lam[1, p2]*(
                lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))*(lam[2, p2]*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                  {m1, p4}, m1]))*(-((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                  spb[p4, p7] + (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*
                      (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                          ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                      lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                     ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))/((lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))))*((barlam[1, p4]*
                       barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p5]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2*
             (((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
               ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))^2)))/
         ((-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
          (-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                   lam[2, et6] - lam[1, et6]*lam[2, p6])))/
              ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
               (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
            (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                  lam[2, et6] - lam[1, et6]*lam[2, p6])))/
             ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
              (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))^2*
          ((barlam[2, p6]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                  lam[2, et6] - lam[1, et6]*lam[2, p6])))/
             ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
              (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
            (barlam[1, p6]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                  lam[2, et6] - lam[1, et6]*lam[2, p6])))/
             ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
              (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))^2) + 
        ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])^5*
          ((-10*CK*(-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                p5])*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p2])) - 
                 ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                  lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (barlam[1, p2]*
                   (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) - 
              (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - ((-(barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))/((barlam[1, p7]*barlam[2, 
                      p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                 (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))*
             (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - ((-(barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))) + 
              (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - ((-(barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))/((barlam[1, p7]*barlam[2, 
                      p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                 (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))*
             (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - ((-(barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))) + 
              (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - ((-(barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))/((barlam[1, p7]*barlam[2, 
                      p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                 (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))*
             (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
               (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^5*
             (lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p2]*((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[1, p5] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*spa[p4, m1]*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p2]*((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[2, p5] - (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*spa[p4, m1]*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                 m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                {m1, p4}, m1])*((barlam[2, p4]*spa[p4, m1]*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - ((-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*spa[p4, m1]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - ((-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 spba[p7, {m1, p4}, m1]))^2)/
            ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + ((-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*lam[2, et5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))) + (barlam[1, p2]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + ((-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))^2*
             (-(((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2]) + ((-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                     ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
               ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + ((-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p6] - barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^2*
             (-(lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - (barlam[1, p2]*
                   (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                 (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p2]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p2]*((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p3]*(lam[1, p5] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*spa[p4, m1]*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*spa[p4, m1]*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                 (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p2]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p5] - 
                 (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*lam[2, p2]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*spa[p4, m1]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                    (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      spba[p7, {m1, p4}, m1])))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[1, p5]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                      barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p5] - 
                (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*spa[p4, m1]*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                   p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                  spba[p7, {m1, p4}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p6]) + barlam[1, p6]*barlam[2, p7])*lam[1, p2]*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                  m1]))) - (10*CK*(-(barlam[1, p5]*barlam[2, p2]) + 
              barlam[1, p2]*barlam[2, p5])*((barlam[2, p2]*
                (-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - ((-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                  lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (barlam[1, p3]*
                   (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) - 
              (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - ((-(barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))/((barlam[1, p7]*barlam[2, 
                      p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])))))/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                 (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))*
             (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - ((-(barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))) + 
              (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - ((-(barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))/((barlam[1, p7]*barlam[2, 
                      p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])))))/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                 (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))*
             (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - ((-(barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))) + 
              (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - ((-(barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))/((barlam[1, p7]*barlam[2, 
                      p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])))))/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                 (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))*
             (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
               (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^5*
             (lam[2, p3]*((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p3]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p3]*((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p3]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p3]*((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[1, p5] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*spa[p4, m1]*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p3]*((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[2, p5] - (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*spa[p4, m1]*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                 m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                {m1, p4}, m1])*((barlam[2, p4]*spa[p4, m1]*
                 (-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - ((-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*spa[p4, m1]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - ((-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 spba[p7, {m1, p4}, m1]))^2)/
            ((-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) + ((-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*lam[2, et5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))/((lam[1, p3]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))) + (barlam[1, p3]*
                 (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + ((-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))^2*
             (-(((barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3]) + ((-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                     ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
               ((barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + ((-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p6] - barlam[1, p6]*barlam[2, p7])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^2*
             (-(lam[2, p3]*((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - (barlam[1, p3]*
                   (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                 (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p3]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[1, p3]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p3]*((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p3]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*spa[p4, m1]*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*spa[p4, m1]*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                 (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p3]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[1, p3]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p5] - 
                 (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*lam[2, p3]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*spa[p4, m1]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                    (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      spba[p7, {m1, p4}, m1])))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                      barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p3]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p5] - 
                (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*spa[p4, m1]*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                   p7])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                  spba[p7, {m1, p4}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p6]) + barlam[1, p6]*barlam[2, p7])*lam[1, p3]*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                  m1]))) - (10*CK*(barlam[1, p3]*barlam[2, p2] - 
              barlam[1, p2]*barlam[2, p3])*((barlam[2, p3]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                   lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) - 
              (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                   lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))*
             (-(lam[2, p2]*((lam[1, et5]*(-((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                       lam[1, p2]*lam[2, p3])) - (-((barlam[2, p2]*
                         (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                     (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                     (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                    (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + (-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]))) + lam[1, p2]*(
                (lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-((barlam[2, p2]*(-(barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                     (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1])))*(-(lam[2, p3]*((lam[1, et5]*
                   (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                         p3])) - (-((barlam[2, p2]*(-(barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                      (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                     (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                    (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + (-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]))) + lam[1, p3]*(
                (lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-((barlam[2, p2]*(-(barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                     (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1])))*(-((barlam[2, p2]*(-(barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                   barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))) + (barlam[1, p2]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                     spba[p7, {m1, p4}, m1]))))^2*
             (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
              (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + ((-(barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))/((barlam[1, p7]*barlam[2, 
                      p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                 barlam[1, p6]*barlam[2, p7])*((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))) - ((barlam[1, p2]*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[1, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[1, p3]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))*(lam[2, et6]*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                    spba[p7, {m1, p4}, m1]))))*
             (-(((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + ((-(barlam[2, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p6] - barlam[1, p6]*barlam[2, p7])*
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
              ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + ((-(barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))/((barlam[1, p7]*barlam[2, 
                      p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                 barlam[1, p6]*barlam[2, p7])*((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))))*(-((barlam[1, p5]*barlam[2, p4]*
                  spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                 barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])^5)/
            ((-(lam[1, p3]*lam[2, p2]) + lam[1, p2]*lam[2, p3])*
             (-(lam[2, p3]*(lam[1, p2]*((barlam[2, p2]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (barlam[1, p2]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*((barlam[2, p3]*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))) + lam[1, p3]*(
                lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - (barlam[1, p2]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                lam[2, p3]*((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - (barlam[1, p3]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))*
             (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3]) - 
                   ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                     ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))) + (barlam[1, p5]*(-(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) - ((-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[1, p3]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))^2*
             (lam[2, p2]*((lam[1, et5]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                      lam[1, p2]*lam[2, p3])) - (-((barlam[2, p2]*
                        (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1])) - lam[1, p2]*((lam[2, et5]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-((barlam[2, p2]*(-(barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                     (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1])))*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                 spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                    barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(
                lam[1, p5] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p5] - 
                (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p3]*
                    (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) - 
                   ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                     ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))/(((lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*
                        (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                    (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
                  spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) - ((-(barlam[2, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                (((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
                 spba[p7, {m1, p4}, m1]))^2) - 
           (10*CK*(-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p5])^5*((barlam[2, p3]*(-(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                 barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
              (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                  lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2]))) + (barlam[1, p3]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                  lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                   barlam[2, p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                   lam[2, p2])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))) - ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))*(-(barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                   barlam[2, p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                   lam[2, p2])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))))^2*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                 barlam[2, p5])*lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[1, et6]*(lam[2, p6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[2, p4]*spa[p4, m1]*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                      m1])))) - (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                 barlam[2, p5])*lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[2, et6]*(lam[2, p6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[2, p4]*spa[p4, m1]*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))))*
             ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                2, p2]*((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]) - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                      m1])))) - (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                 barlam[2, p5])*lam[1, p2]*((-(barlam[1, p7]*barlam[2, p6]) + 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))))*
             ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                {m1, p4}, m1])*((barlam[2, p4]*spa[p4, m1]*
                (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                  lam[2, et5] - lam[1, et5]*lam[2, p2])*spba[p7, {m1, p4}, 
                 m1]) - (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                 barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*spa[p4, m1]*
                (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                 barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
              (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                spba[p7, {m1, p4}, m1])))/
            ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, 
                          p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]))) + (barlam[1, p2]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])))^2*
             ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])) - (barlam[1, p5]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])))^2*
             (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[2, p4]*spa[p4, m1]*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                      m1])))) - lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[2, et6]*(lam[2, p6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[2, p4]*spa[p4, m1]*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))))*
             (-((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                lam[2, p2]*((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                    barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                    spba[p7, {m1, p4}, m1]) - (lam[1, et5]*
                   (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*spa[p4, m1]*
                      (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))))) + 
              (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                1, p2]*((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]) - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[2, p4]*spa[p4, m1]*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))))*(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1]) - (lam[1, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                      m1])))) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                 spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                    barlam[2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[2, p4]*spa[p4, m1]*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))))*(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1]) - (lam[2, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                      m1])))))) - (10*CK*(-(barlam[1, p5]*barlam[2, p3]) + 
               barlam[1, p3]*barlam[2, p5])^5*((barlam[2, p2]*
                (-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                    p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                  lam[2, et5] - lam[1, et5]*lam[2, p3])) - (barlam[1, p2]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                    p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                  lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3]))) + (barlam[1, p2]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                    p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                  lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             (((-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                   barlam[2, p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                   lam[2, p3])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))) - ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))*(-(barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                   barlam[2, p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                   lam[2, p3])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))))^2*((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                 barlam[2, p5])*lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[1, et6]*(lam[2, p6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(lam[2, p3]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[2, p4]*spa[p4, m1]*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                      m1])))) - (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                 barlam[2, p5])*lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[2, et6]*(lam[2, p6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(lam[2, p3]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[2, p4]*spa[p4, m1]*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))))*
             ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*lam[
                2, p3]*((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]) - (lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                      m1])))) - (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                 barlam[2, p5])*lam[1, p3]*((-(barlam[1, p7]*barlam[2, p6]) + 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))))*
             ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                {m1, p4}, m1])*((barlam[2, p4]*spa[p4, m1]*
                (-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                    p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                  lam[2, et5] - lam[1, et5]*lam[2, p3])*spba[p7, {m1, p4}, 
                 m1]) - (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                 barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*spa[p4, m1]*
                (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                 barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
              (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                spba[p7, {m1, p4}, m1])))/
            ((-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) + barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, 
                          p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]))) + (barlam[1, p3]*
                 (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             ((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])) - (barlam[1, p5]*
                 (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             (-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*(lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p5] - 
                (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(lam[2, p3]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[2, p4]*spa[p4, m1]*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                      m1])))) - lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[2, et6]*(lam[2, p6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(lam[2, p3]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[2, p4]*spa[p4, m1]*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))))*
             (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                lam[2, p3]*((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                    barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                    spba[p7, {m1, p4}, m1]) - (lam[1, et5]*
                   (-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*spa[p4, m1]*
                      (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))))) + 
              (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*lam[
                1, p3]*((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]) - (lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(lam[2, p3]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[2, p4]*spa[p4, m1]*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))))*(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1]) - (lam[1, et5]*(-(lam[2, p3]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                      m1])))) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                 spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                    barlam[2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(lam[2, p3]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[2, p4]*spa[p4, m1]*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))))*(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1]) - (lam[2, et5]*(-(lam[2, p3]*(lam[1, p5] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p5] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                      m1])))))) - (10*CK*(barlam[1, p3]*barlam[2, p2] - 
              barlam[1, p2]*barlam[2, p3])*(-(barlam[1, p5]*barlam[2, p2]) + 
               barlam[1, p2]*barlam[2, p5])^2*(-(barlam[1, p5]*barlam[2, 
                 p3]) + barlam[1, p3]*barlam[2, p5])*
             ((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[1, p5]*
                  (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
              (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[2, p5]*
                  (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[1, p5]*
                  (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
              (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[2, p5]*
                  (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             (-((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[1, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p3]))) + (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[2, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             (-(lam[2, p2]*(lam[1, p5] + (lam[1, et5]*(-((barlam[1, p3]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                      (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                    (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                      lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                      lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                      barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p2]*(lam[2, p5] + (lam[2, et5]*(-((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                   (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
                   (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-(lam[2, p3]*(lam[1, p5] + (lam[1, et5]*(-((barlam[1, p3]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                      (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                    (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                      lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                      lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                      barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p3]*(lam[2, p5] + (lam[2, et5]*(-((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                   (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
                   (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*spa[p4, m1]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                     spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))^5)/
            ((-(lam[1, p3]*lam[2, p2]) + lam[1, p2]*lam[2, p3])*
             (-(((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p5])*lam[1, p3])*lam[2, p3]) + 
              lam[1, p3]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*lam[2, p3]))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                       lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) - barlam[2, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, 
                          p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3]))*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))) + ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) - barlam[1, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p6] - barlam[1, p6]*barlam[2, p7])*
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]))*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))))^2*(lam[2, p2]*(lam[1, p5] + (lam[1, et5]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(-(lam[2, p2]*(lam[1, p5] - 
                        (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, 
                          p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                       (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, 
                          p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) - (-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[2, p3]*
                       (lam[1, p5] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p5] - 
                       (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, 
                          p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p5]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3])) - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p2]*(lam[2, p5] + (lam[2, et5]*(-((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                   (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p2]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
                   (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p3]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                   p7])*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*(
                lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) - 
                  barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                (((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]))*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                 spa[p4, m1]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) - barlam[2, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                (((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]))*spba[p7, {m1, p4}, m1]))^2) - 
           (10*CK*(-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
              (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
              (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p2]*((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]) - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*(-((barlam[1, p4]*
                   barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]) - lam[1, p2]*((-(barlam[1, p7]*barlam[2, p6]) + 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*(-((barlam[1, p4]*
                   barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]))*(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                  (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*(-((barlam[1, p4]*
                   barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]) - lam[1, p2]*(lam[2, p5] - (lam[2, et6]*
                  (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*(-((barlam[1, p4]*
                   barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]))*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                 (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
              (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                    spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2*
             (-(((-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))*(-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))*(-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((barlam[1, p7]*barlam[2, p6] - 
                 barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                 m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                spba[p7, {m1, p4}, m1])^5)/
            ((-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p3]*((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]) - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))) - lam[1, p3]*(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1]) - (lam[2, et5]*(-(lam[2, p2]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))))*
             (((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                 (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                    m1]) - (lam[2, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                        lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*(lam[1, p5] - 
                (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))) - 
              ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                 (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                    m1]) - (lam[1, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                        lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*(lam[2, p5] - 
                (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))))*
             (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - (lam[1, et5]*(-(lam[2, p2]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                        p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*spa[p4, m1]*
                      (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))*
                (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                    m1])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p5] - 
                (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*(-((barlam[1, p4]*
                   barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]))*(-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) - (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                    spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) - (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2*
             (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) - (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                    spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])*
                  spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) - (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])*
                 spba[p7, {m1, p4}, m1]))^2) - 
           (10*CK*(-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
              (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
              (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p3]*((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]) - (lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*(-((barlam[1, p4]*
                   barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]) - lam[1, p3]*((-(barlam[1, p7]*barlam[2, p6]) + 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*(-((barlam[1, p4]*
                   barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]))*(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*
                  (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*(-((barlam[1, p4]*
                   barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]) - lam[1, p3]*(lam[2, p5] - (lam[2, et6]*
                  (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*(-((barlam[1, p4]*
                   barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]))*((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                 (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
              (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                    spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2*
             (-(((-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))*(-(barlam[1, p3]*
                    (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*((barlam[1, p4]*barlam[2, p3]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))*(-(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((barlam[1, p7]*barlam[2, p6] - 
                 barlam[1, p6]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))*((barlam[1, p4]*barlam[2, p3]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                 m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                spba[p7, {m1, p4}, m1])^5)/
            ((-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p2]*((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]) - (lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))) - lam[1, p2]*(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1]) - (lam[2, et5]*(-(lam[2, p3]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))))*
             (((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                 (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                    m1]) - (lam[2, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                        lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*(lam[1, p5] - 
                (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))) - 
              ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*
                 (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                    m1]) - (lam[1, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                        lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*(lam[2, p5] - 
                (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))))*
             (-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*(lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - (lam[1, et5]*(-(lam[2, p3]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                        p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*spa[p4, m1]*
                      (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))*
                (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                    m1])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p5] - 
                (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*(-((barlam[1, p4]*
                   barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]))*(-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3]) - (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                    spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) - (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2*
             (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3]) - (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                    spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])*
                  spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                 (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) - (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])*
                 spba[p7, {m1, p4}, m1]))^2) - 
           (10*CK*(barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
             (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
               (barlam[1, p5]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^5*
             (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                 (lam[1, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                        lam[2, p3])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                    (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                          ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                      lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                       et5] - lam[1, et5]*lam[2, p3])*((barlam[1, p4]*
                       barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1])) - ((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*lam[1, et6]*(lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p4])/spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                (lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1])))) + lam[1, p3]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[2, et6]*(lam[2, p6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                 (lam[1, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                        lam[2, p3])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                    (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                          ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                      lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                       et5] - lam[1, et5]*lam[2, p3])*((barlam[1, p4]*
                       barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1])) - ((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*lam[1, et6]*(lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p4])/spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                (lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1])))) + lam[1, p3]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[2, et6]*(lam[2, p6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) - (barlam[1, p4]*
                   spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])) - (barlam[1, p3]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) - (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))*((barlam[1, p4]*barlam[2, p2]*
                 spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                 barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])^2*
             ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                {m1, p4}, m1])*((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) - (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
              (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[2, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) - 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[1, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) - 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                  m1])) + (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) - (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
            ((-(lam[1, p3]*lam[2, p2]) + lam[1, p2]*lam[2, p3])*
             (-(lam[2, p3]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              lam[1, p3]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                (lam[1, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1])))) + lam[1, p3]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[1, et6]*(lam[2, p6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                (lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1])))) + lam[1, p3]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[2, et6]*(lam[2, p6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                   p7])*(lam[2, p5] - (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                      barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*(
                lam[1, p5] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3]) + (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                    spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p5]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))^2*
             (((-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))*(-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))) - 
               ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))*(-(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))))^2)))/
         (((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                    spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                 p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                   m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                  spba[p7, {m1, p4}, m1]))) - (barlam[1, p6]*(barlam[2, p6]*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
               barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                   s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                   m1]))))^2*(-((barlam[2, p7]*(barlam[1, p6]*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                 barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                 (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                    m1])))) + (barlam[1, p7]*(barlam[2, p6]*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
               barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                   s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                   m1]))))^2*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
              spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
             (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])^5*
          ((-10*CK*(-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))^
              5*(-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p3])) - (((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                       lam[2, et5] - (barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[1, et5]*lam[2, p2])*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))))) + (barlam[1, p6]*(-(barlam[2, p3]*
                    (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                  (((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])))))^2*((barlam[2, p7]*(-(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                 (((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))) - (barlam[1, p7]*(-(barlam[2, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                 (((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))))*(-((barlam[2, p7]*(-(barlam[1, p3]*
                    (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                  (((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))))) + (barlam[1, p7]*(-(barlam[2, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                 (((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))))*(lam[2, p3]*((barlam[2, p3]*
                  (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p5])*lam[1, p3]*lam[2, p2] - 
                   (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2]*lam[2, p3])*(-((barlam[2, p6]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p3]*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p5])*lam[1, p3]*lam[2, p2] - 
                   (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2]*lam[2, p3])*(-((barlam[2, p6]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p3]*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p3]*lam[2, p2] - (barlam[1, p5]*barlam[2, 
                       p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                    lam[2, p3])*(-((barlam[2, p4]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) - lam[1, p3]*(
                (barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p3]*lam[2, p2] - (barlam[1, p5]*barlam[2, 
                       p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                    lam[2, p3])*(-((barlam[2, p4]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                {m1, p4}, m1])*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                spa[p4, m1])/spba[p7, {m1, p4}, m1])*
             ((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - (((barlam[1, p5]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                     lam[2, et5] - (barlam[1, p5]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p5])*lam[1, et5]*lam[2, p2])*
                   (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))*spa[p4, m1])/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - (((barlam[1, p5]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p5])*lam[1, p2]*lam[2, et5] - 
                    (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*spa[p4, m1])/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*spba[p7, {m1, p4}, m1])))/
            (((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                1, p3]*lam[2, p2] - (barlam[1, p5]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p5])*lam[1, p2]*lam[2, p3])*
             (-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) + (((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                       lam[2, et5] - (barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[1, et5]*lam[2, p2])*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))))) + (barlam[1, p3]*(barlam[2, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])))))^2*(((-(barlam[2, p2]*(lam[1, p2]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                 (barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + (((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2]*lam[2, et5] - 
                     (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))))/((-(barlam[1, p5]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et6] - lam[1, et6]*lam[2, p2])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))) - ((-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]))*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (((barlam[1, p5]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                      lam[2, et5] - (barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, et5]*lam[2, p2])*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])))))^2*(-(lam[2, p3]*((barlam[2, p3]*
                   (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])) - (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[1, p6] - (lam[1, et6]*
                   (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p3]*lam[2, p2] - (barlam[1, p5]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                     lam[2, p3])*(-((barlam[2, p4]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*spba[p7, {m1, p4}, m1])) + 
                    (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])))) + lam[1, p3]*(
                (barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p3]*lam[2, p2] - (barlam[1, p5]*barlam[2, 
                       p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                    lam[2, p3])*(-((barlam[2, p4]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p5])*lam[1, p3]*lam[2, p2] - 
                   (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2]*lam[2, p3])*(-((barlam[2, p6]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p6] - 
                (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p3]*lam[2, p2] - (barlam[1, p5]*barlam[2, 
                       p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                    lam[2, p3])*(-((barlam[2, p4]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p5])*lam[1, p3]*lam[2, p2] - 
                   (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2]*lam[2, p3])*(-((barlam[2, p6]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p6] - 
                (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p3]*lam[2, p2] - (barlam[1, p5]*barlam[2, 
                       p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                    lam[2, p3])*(-((barlam[2, p4]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p3]*lam[2, p2] - 
                    (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2]*lam[2, p3])*(-((barlam[2, p6]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p5])*lam[1, p3]*lam[2, p2] - 
                   (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2]*lam[2, p3])*(-((barlam[2, p6]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                barlam[2, p6])^5*(-((barlam[2, p7]*(-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                  lam[2, et6] - lam[1, et6]*lam[2, p2])))*
             ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - barlam[1, p6]*(lam[2, et5]*
                    (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                     (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
              (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - barlam[2, p6]*(lam[2, et5]*
                    (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                     (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - barlam[1, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                    p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[2, p6]*
                  (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[1, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                   lam[2, p2])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                   lam[2, p3]))) + ((-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                     (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                  barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                  lam[2, p2])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                  lam[2, p3])))*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                 barlam[2, p6])*lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                  (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(-(lam[2, p3]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))) - 
              (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*lam[
                1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(-(lam[2, p3]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))))*
             ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*lam[
                2, p3]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[1, p2] - (lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p4]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))) - 
              (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*lam[
                1, p3]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[2, p2] - (lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p4]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]))*spa[p4, m1])/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*spa[p4, m1]*
                 (-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*spa[p4, m1]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 spba[p7, {m1, p4}, m1]))^2)/
            ((-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) + barlam[1, p6]*(lam[2, et5]*
                      (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                       (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p3]))) + (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[2, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))^
              2*((barlam[2, p6]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + barlam[1, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
               (barlam[1, p6]*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + barlam[2, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))^
              2*(-(lam[2, p3]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                      lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])))) + lam[1, p3]*(
                lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[1, et5]*(-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                   (-(lam[2, p3]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p3]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                       spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, 
                        m1])) + (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p4}, m1]))))) + (barlam[1, p6]*
                 barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(-(lam[2, p3]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[2, et5]*(-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                   (-(lam[2, p3]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p3]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                       spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, 
                        m1])) + (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, 
                     p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] - 
                 (lam[1, et5]*(-(lam[2, p3]*(lam[1, p6] - (lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p3]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p4]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*spba[p7, {m1, p4}, m1])) + 
                    (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]))))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(-(lam[2, p3]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]))))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[2, p2] - (lam[2, et5]*(-(lam[2, p3]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p4]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))))*
             (-(((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[2, p2] - (lam[2, et5]*(-(lam[2, p3]*(lam[1, p6] - 
                       (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p3]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p4]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*spba[p7, {m1, p4}, m1])) + 
                    (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                   m1])) + ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[1, p2] - (lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p4]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                  m1]))) - (10*CK*(-(barlam[1, p6]*barlam[2, p3]) + 
               barlam[1, p3]*barlam[2, p6])^2*(barlam[1, p7]*barlam[2, p3] - 
              barlam[1, p3]*barlam[2, p7])*(barlam[1, p7]*barlam[2, p6] - 
              barlam[1, p6]*barlam[2, p7])*((barlam[2, p6]*(barlam[1, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                       (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - (barlam[1, p6]*(barlam[2, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                       (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*(-((barlam[2, p6]*(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))) + (barlam[1, p6]*(barlam[2, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                       (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*((barlam[2, p7]*(barlam[1, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                       (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - (barlam[1, p7]*(barlam[2, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                       (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*(-(lam[2, p3]*(lam[1, p6] + 
                 (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(-(lam[2, p3]*
                         (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p6] - 
                         (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*((lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, p6] - (lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                 (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])))) + lam[1, p3]*(
                lam[2, p6] + (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[2, p3]*
                        (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p6] - 
                        (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*((lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, p6] - 
                       (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - (lam[2, et6]*
                  (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             ((lam[2, p6] + (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(-(lam[2, p3]*
                        (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p6] - 
                        (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*((lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, p6] - 
                       (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - (lam[2, et6]*
                  (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p6] + (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(-(lam[2, p3]*
                        (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p6] - 
                        (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*((lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, p6] - 
                       (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - (lam[1, et6]*
                  (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 spba[p7, {m1, p4}, m1]))^5)/
            ((((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[1, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))) - ((-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]))*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - barlam[2, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))))^2*
             ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p3]*(lam[1, p6] + (lam[1, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(-(lam[2, p3]*(lam[1, p6] - 
                         (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                      lam[1, p3]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*((lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, p6] - 
                       (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - (lam[1, et6]*
                  (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) - lam[1, p3]*(
                lam[2, p6] + (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[2, p3]*
                        (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p6] - 
                        (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*((lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, p6] - 
                       (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - (lam[2, et6]*
                  (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                   {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))*(lam[1, p7] + (lam[1, m1]*
                  s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                  s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[1, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/(((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))*spba[p7, {m1, p4}, m1]) - 
               (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[2, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/(((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))*spba[p7, {m1, p4}, m1]))^
              2) - (10*CK*(barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                2, p7])*(-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))^
              2*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
             (-(lam[2, p3]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p5])*lam[1, p2] + (lam[1, et5]*
                   (-(((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p3]*lam[2, p2] - (barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2]*lam[2, p3])*(-((barlam[2, p3]*
                          (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                         ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                         (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))) - (-((barlam[2, p7]*
                         (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                        (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])))*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                    (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                       (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                   (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                       (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) + 
              lam[1, p3]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[2, p2] + (lam[2, et5]*
                  (-(((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p3]*lam[2, p2] - (barlam[1, p5]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                       lam[1, p2]*lam[2, p3])*(-((barlam[2, p3]*
                         (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                        (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])))) - (-((barlam[2, p7]*
                        (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                       (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - (barlam[1, p5]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (-((barlam[2, p7]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))))*((barlam[2, p7]*
                (barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + (((barlam[1, p5]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p5])*lam[1, p2]*lam[2, et5] - 
                    (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) + (-((barlam[2, p7]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - (barlam[1, p7]*(barlam[2, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 (((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) + (-((barlam[2, p7]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*(((-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                (barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + (((barlam[1, p5]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p5])*lam[1, p2]*lam[2, et5] - 
                    (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                   (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))) - ((-(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + (((barlam[1, p5]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p5])*lam[1, p2]*lam[2, et5] - 
                    (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                   (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(barlam[1, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))) + 
              ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]))*(barlam[2, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 (((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                   (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))))*(((barlam[1, p5]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (lam[2, et5]*(-(((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p3]*lam[2, p2] - 
                      (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2]*lam[2, p3])*(-((barlam[2, p3]*
                         (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                        (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])))) - (-((barlam[2, p7]*
                        (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                       (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - (barlam[1, p5]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (-((barlam[2, p7]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[1, p2] + (lam[1, et5]*(-(((barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[1, p3]*lam[2, p2] - 
                      (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2]*lam[2, p3])*(-((barlam[2, p3]*
                         (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                        (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])))) - (-((barlam[2, p7]*
                        (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                       (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - (barlam[1, p5]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (-((barlam[2, p7]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                 m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/
                spba[p7, {m1, p4}, m1])^5)/
            ((lam[2, p3]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[1, p2] + (lam[1, et5]*
                  (-(((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p3]*lam[2, p2] - (barlam[1, p5]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                       lam[1, p2]*lam[2, p3])*(-((barlam[2, p3]*
                         (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                        (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])))) - (-((barlam[2, p7]*
                        (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                       (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - (barlam[1, p5]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (-((barlam[2, p7]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))) - lam[1, p3]*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[2, p2] + (lam[2, et5]*(-(((barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[1, p3]*lam[2, p2] - 
                      (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2]*lam[2, p3])*(-((barlam[2, p3]*
                         (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                        (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])))) - (-((barlam[2, p7]*
                        (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                       (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - (barlam[1, p5]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (-((barlam[2, p7]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))))*
             ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - (((barlam[1, p5]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                      lam[2, et5] - (barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, et5]*lam[2, p2])*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p3]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (-((barlam[2, p7]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p7]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))) - (barlam[1, p6]*(-(barlam[2, p3]*
                    (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                  (((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                   (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))^2*(-((lam[2, m1]*spb[m1, p7] + 
                 lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                   (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p6] - 
                 (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p6] - 
                (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                   {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((lam[2, p3]*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - (barlam[1, p3]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - (barlam[1, p7]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))*(lam[1, p7] + (lam[1, m1]*
                  s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p3]*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - (barlam[1, p3]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - (barlam[1, p7]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                  s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                  (((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                (((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))*spba[p7, {m1, p4}, m1]) - 
               (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                  (((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                (((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))*spba[p7, {m1, p4}, m1]))^
              2) - (10*CK*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))^
              5*((barlam[2, p3]*(-((((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2]*lam[2, et5] - 
                     (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))) - (barlam[1, p3]*
                (-((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))))*(-((barlam[2, p3]*
                 (-((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                       lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1])))) + (barlam[1, p3]*
                (-((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))))*(-((barlam[2, p6]*
                  (-((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) - barlam[1, p7]*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))) + (barlam[1, p6]*
                 (-((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                       lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))^2*
             (-(((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[2, m1]*spb[m1, p7] + 
                 lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                   (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                   (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))*((barlam[1, p5]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p5]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p5])*lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-(((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[2, p6] - (lam[2, et6]*
                   (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - (barlam[1, p5]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - (barlam[1, p5]*barlam[2, 
                       p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                {m1, p4}, m1])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
               spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                spa[p4, m1])/spba[p7, {m1, p4}, m1])*
             ((barlam[2, p4]*spa[p4, m1]*(-((((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2]*lam[2, et5] - 
                     (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
              (barlam[1, p4]*spa[p4, m1]*(-((((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2]*lam[2, et5] - 
                     (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
            ((-((barlam[2, p7]*((((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2]*lam[2, et5] - 
                      (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, et5]*lam[2, p2])*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))) + (barlam[1, p7]*
                 ((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))^2*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*((((barlam[1, p5]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                      lam[2, et5] - (barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, et5]*lam[2, p2])*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                    barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                 (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - ((-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                 ((((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p2])*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))^2*(lam[2, p3]*(lam[1, m1]*
                 spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p5]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p5])*lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p5]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p5])*lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p5]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p5])*lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(
                lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - (barlam[1, p5]*barlam[2, 
                       p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((barlam[1, p5]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p5])*lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(
                lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - (barlam[1, p5]*barlam[2, 
                       p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                  {m1, p4}, m1]) - (barlam[1, p5]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p5])*lam[1, p2]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - (barlam[1, p5]*barlam[2, 
                       p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
               (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - (barlam[1, p5]*barlam[2, 
                       p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
           (10*CK*(barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])^
              5*(-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p2]))) + (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
             ((barlam[2, p3]*(-(barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]))) - (barlam[1, p3]*(-(barlam[2, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]))))*(-((barlam[2, p3]*(-(barlam[1, p6]*
                    (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]))))*(-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                 (-(barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1])))) + ((-(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                (-(barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p5])*(barlam[1, p7]*barlam[2, p6] - 
                 barlam[1, p6]*barlam[2, p7])*(lam[1, p2]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p2])*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                 barlam[1, p6]*barlam[2, p7])*(lam[2, m1]*spb[m1, p7] + 
                 lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                   (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                   (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))*((lam[2, p6] - (lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p4}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*(
                lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((lam[2, p6] - (lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                   p7])*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p5])*lam[2, p2] - (lam[2, et5]*
                   ((lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, p6] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                       spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, 
                        m1])) + (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p4}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[1, p2] - (lam[1, et5]*((lam[2, p6] - (lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]))*spa[p4, m1])/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*spa[p4, m1]*
                 (-(barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                 spa[p4, m1]*(-(barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                       (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))*spba[p7, {m1, p4}, m1]))^2)/
            (((barlam[2, p6]*(barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))) - (barlam[1, p6]*(barlam[2, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))))^2*(-((barlam[2, p7]*(barlam[1, p6]*
                    (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))) + (barlam[1, p7]*(barlam[2, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))))^2*(lam[2, p3]*((barlam[1, p5]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p5])*lam[1, p2] - 
                (lam[1, et5]*((lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))) - 
              lam[1, p3]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[2, p2] - (lam[2, et5]*
                  ((lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, p6] - 
                     (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[2, et5]*(-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                   ((lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, p6] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*spba[p7, {m1, p4}, m1]))))*
                ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[1, p2] - (lam[1, et5]*((lam[2, p6] - (lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                       spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, 
                        m1])) + (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p4}, m1]))))) + (lam[1, m1]*spb[m1, p7] + 
                lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                  (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*((lam[2, p6] - (lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1]))))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[2, p2] - (lam[2, et5]*((lam[2, p6] - (lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))))*
             ((lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*(
                lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((lam[2, p6] - (lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1]))))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*(
                lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]))) + (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))*((lam[2, p6] - (lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*spba[p7, {m1, p4}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
           (10*CK*(barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
             (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
             (lam[2, p3]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[1, p2] - (lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p6]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))))*(-((barlam[1, p4]*barlam[2, p3]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                  barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
              lam[1, p3]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[2, p2] - (lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p6]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))))*(-((barlam[1, p4]*barlam[2, p3]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                  barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
             (lam[2, p3]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, 
                      p2]) + lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))))*(-((barlam[1, p4]*
                   barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]) - lam[1, p3]*(lam[2, p6] - (lam[2, et6]*
                  (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))))*(-((barlam[1, p4]*
                   barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]))*(-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))) + (barlam[1, p6]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
              (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]))*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                   (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) + 
               ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[2, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))^2*((barlam[1, p4]*barlam[2, p3]*
                 spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                 barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])^5)/
            ((-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-(((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[2, p2] - (lam[2, et5]*(-(lam[2, p3]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                      barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))))*(lam[1, p6] - 
                 (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                   (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                        p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                       spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, 
                        m1])) + (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p4}, m1])))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*(-((barlam[2, p6]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))))) + ((barlam[1, p5]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p5])*lam[1, p2] - 
                (lam[1, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p6]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))))*(lam[2, p6] - (lam[2, et6]*
                  (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]))))))*
             (-((lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                    lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                      barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                   (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                        p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                       spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, 
                        m1])) + (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p4}, m1])))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*(-((barlam[2, p6]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                  spba[p7, {m1, p4}, m1])) + (lam[1, p6] - 
                (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-(lam[2, p3]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p5])*lam[1, p2] - (lam[1, et5]*
                   (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                        p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p6]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))))*(-((barlam[1, p4]*barlam[2, p3]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) + 
              lam[1, p3]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[2, p2] - (lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p6]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])))))*(-((barlam[1, p4]*barlam[2, p3]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                  barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) - (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/spba[p7, 
                     {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p3]*
                 (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) - (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))^2*(-((barlam[2, p4]*spa[p4, m1]*
                  (barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3]) - (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])*spba[p7, {m1, p4}, m1])) + 
               (barlam[1, p4]*spa[p4, m1]*(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) - (barlam[2, p4]*
                    spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                       lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])*
                 spba[p7, {m1, p4}, m1]))^2) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                p6])*(-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
             (-(((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[2, p2] - (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                        p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])) + ((barlam[1, p5]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p5])*lam[1, p2] - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                  spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                  barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
             (-((lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                    lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                      barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                       spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, 
                        m1])) + (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p4}, m1])))/((-((barlam[2, p6]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])) + (lam[1, p6] - 
                (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                  spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                  barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
             ((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                   barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
              (barlam[1, p3]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                   barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              (barlam[1, p3]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                   barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                   barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]))*(-(barlam[1, p7]*(lam[2, et5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                   (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[2, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1])))^2*
             (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                spba[p7, {m1, p4}, m1])^5)/((lam[2, p3]*(lam[1, p6] - 
                (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))) - lam[1, p3]*(lam[2, p6] - 
                (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))))*(-(((barlam[1, p5]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p5])*lam[2, p2] - 
                 (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                        p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                        p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[1, p6] - 
                 (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                       spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, 
                        m1])) + (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                      spba[p7, {m1, p4}, m1])))/((-((barlam[2, p6]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
                    (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))) + 
              ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[1, p2] - (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))*(lam[2, p6] - (lam[2, et6]*
                  (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                        lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*spba[p7, {m1, p4}, m1])))/
                 ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))))*((lam[2, m1]*spb[m1, p7] + 
                lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                  (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[2, p2] - (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                  spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                  barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
              ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[1, p2] - (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]))/((lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                  spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                  barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p7]*(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               (barlam[1, p7]*(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2*
             (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])*spba[p7, {m1, p4}, 
                   m1])) + (barlam[1, p4]*spa[p4, m1]*(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1])*spba[p7, {m1, p4}, m1]))^
              2) - (10*CK*(barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[
                2, p7])*(-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p2]))) + (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))^
              5*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                  spb[p4, p7] + (lam[1, et5]*(-((barlam[1, p7]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                          ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                      lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))/((lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                     lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                (lam[2, et5]*(-((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (-(lam[2, p3]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                (lam[2, et5]*(-((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (-(lam[2, p3]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                (lam[1, et5]*(-((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (-(lam[2, p3]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]) + (lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
              (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]) + (lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                 m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                spba[p7, {m1, p4}, m1])^2*(-((barlam[1, p7]*barlam[2, p4]*
                 spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])*
             ((barlam[2, p4]*spa[p4, m1]*(barlam[1, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/spba[p7, {m1, p4}, m1]))/(
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                 m1]) - (barlam[1, p4]*spa[p4, m1]*(barlam[2, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])) - (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                         lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/spba[p7, {m1, p4}, m1]))/(
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                 m1]))*(-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) - (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                (((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, 
                  {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/(((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                 m1])))/((lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                 spb[p4, p7] + (lam[1, et5]*(-((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                (lam[2, et5]*(-((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (-(lam[2, p3]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                    lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                2, p2]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*
                 barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2]*(
                lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                   lam[1, p2]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                   {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))*(lam[1, p7] + (lam[1, m1]*
                  s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                  s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p3])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p6]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
               ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[2, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*
                          lam[2, p5]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))^2)))/
         ((-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5])*
          (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                   lam[2, et6] - lam[1, et6]*lam[2, p5])))/
              ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
               (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) + 
            (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                  lam[2, et6] - lam[1, et6]*lam[2, p5])))/
             ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
              (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))^2*
          ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p2]) + barlam[1, p5]*(lam[1, p5]*
                  lam[2, et6] - lam[1, et6]*lam[2, p5])))/
             ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
              (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
            (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p2]) + barlam[2, p5]*(lam[1, p5]*
                  lam[2, et6] - lam[1, et6]*lam[2, p5])))/
             ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
              (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))^2) + 
        ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])^5*
          ((-10*CK*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))^
              5*(-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - (((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3]*
                       lam[2, et5] - (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[1, et5]*lam[2, p3])*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))))) + (barlam[1, p6]*(-(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  (((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3])))))^2*((barlam[2, p7]*(-(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                 (((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p3]*lam[2, et5] - (barlam[1, p5]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                     lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])))) - (barlam[1, p7]*(-(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                 (((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p3]*lam[2, et5] - (barlam[1, p5]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                     lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])))))*(-((barlam[2, p7]*(-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  (((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))))) + (barlam[1, p7]*(-(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                 (((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p3]*lam[2, et5] - (barlam[1, p5]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                     lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])))))*(lam[2, p2]*((barlam[2, p2]*
                  (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p5])*lam[1, p3]*lam[2, p2]) + 
                   (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p2]*lam[2, p3])*(-((barlam[2, p6]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p2]*((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3])) - (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p5])*lam[1, p3]*lam[2, p2]) + 
                   (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p2]*lam[2, p3])*(-((barlam[2, p6]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3])) - (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p3]*lam[2, p2]) + (barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p2]*
                    lam[2, p3])*(-((barlam[2, p4]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) - lam[1, p2]*(
                (barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3])) - (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p3]*lam[2, p2]) + (barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p2]*
                    lam[2, p3])*(-((barlam[2, p4]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                {m1, p4}, m1])*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                spa[p4, m1])/spba[p7, {m1, p4}, m1])*
             ((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - (((barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3]*
                     lam[2, et5] - (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[1, et5]*lam[2, p3])*
                   (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])))*spa[p4, m1])/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])))*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - (((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[1, p3]*lam[2, et5] - 
                    (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*spa[p4, m1])/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*spba[p7, {m1, p4}, m1])))/
            ((-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                lam[1, p3]*lam[2, p2]) + (barlam[1, p5]*barlam[2, p3] - 
                barlam[1, p3]*barlam[2, p5])*lam[1, p2]*lam[2, p3])*
             (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + (((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3]*
                       lam[2, et5] - (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[1, et5]*lam[2, p3])*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))))) + (barlam[1, p2]*(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3])))))^2*(((-(barlam[2, p3]*(lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + (((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p3]*lam[2, et5] - 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))))/((-(barlam[1, p5]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])*(lam[1, p3]*
                   lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))) - ((-(barlam[1, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]))*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (((barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3]*
                      lam[2, et5] - (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, et5]*lam[2, p3])*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3])))))^2*(-(lam[2, p2]*((barlam[2, p2]*
                   (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p5])))/
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])) - (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*(lam[1, p6] - (lam[1, et6]*
                   (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                   (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3]*lam[2, p2]) + (barlam[1, p5]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                     lam[1, p2]*lam[2, p3])*(-((barlam[2, p4]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                      ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])*spba[p7, {m1, p4}, m1])) + 
                    (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])))) + lam[1, p2]*(
                (barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3])) - (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p3]*lam[2, p2]) + (barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p2]*
                    lam[2, p3])*(-((barlam[2, p4]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p5])*lam[1, p3]*lam[2, p2]) + 
                   (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p2]*lam[2, p3])*(-((barlam[2, p6]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p6] - 
                (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p3]*lam[2, p2]) + (barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p2]*
                    lam[2, p3])*(-((barlam[2, p4]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p5])*lam[1, p3]*lam[2, p2]) + 
                   (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p2]*lam[2, p3])*(-((barlam[2, p6]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p6] - 
                (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p3]*lam[2, p2]) + (barlam[1, p5]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p2]*
                    lam[2, p3])*(-((barlam[2, p4]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[2, et5]*(-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p5])*lam[1, p3]*lam[2, p2]) + 
                    (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p2]*lam[2, p3])*(-((barlam[2, p6]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p5])*lam[1, p3]*lam[2, p2]) + 
                   (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p2]*lam[2, p3])*(-((barlam[2, p6]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p6])^5*(-((barlam[2, p7]*(-(barlam[1, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*barlam[2, 
                    p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                  lam[2, et6] - lam[1, et6]*lam[2, p3])))*
             ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - barlam[1, p6]*(lam[2, et5]*
                    (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                        lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                     (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
              (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - barlam[2, p6]*(lam[2, et5]*
                    (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                        lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                     (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                    p2]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[2, p6]*
                  (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                   barlam[2, p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                   lam[2, p2])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                   lam[2, p3]))) + ((-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                     (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p5])*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                  barlam[2, p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                  lam[2, p2])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                  lam[2, p3])))*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                 barlam[2, p6])*lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                  (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(-(lam[2, p2]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))) - 
              (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[
                1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p6]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(-(lam[2, p2]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))))*
             ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[
                2, p2]*((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*lam[1, p3] - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))) - 
              (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[
                1, p2]*((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*lam[2, p3] - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]))*spa[p4, m1])/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*spa[p4, m1]*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*spa[p4, m1]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 spba[p7, {m1, p4}, m1]))^2)/
            ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + barlam[1, p6]*(lam[2, et5]*
                      (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                       (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p2]))) + (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[2, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))^
              2*((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
               (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[2, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))^
              2*(-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                      lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])))) + lam[1, p2]*(
                lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[1, et5]*(-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))) + (barlam[1, p6]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                   (-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p2]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                       spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, 
                        m1])) + (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p4}, m1]))))) + (barlam[1, p6]*
                 barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p6]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(-(lam[2, p2]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[2, et5]*(-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))) + (barlam[1, p6]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                   (-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p2]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                       spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, 
                        m1])) + (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, 
                     p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] - 
                 (lam[1, et5]*(-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p2]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                      ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])*spba[p7, {m1, p4}, m1])) + 
                    (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]))))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p6]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(-(lam[2, p2]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]))))*(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[2, p3] - (lam[2, et5]*(-(lam[2, p2]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))))*
             (-(((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  lam[2, p3] - (lam[2, et5]*(-(lam[2, p2]*(lam[1, p6] - 
                       (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p2]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                      ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])*spba[p7, {m1, p4}, m1])) + 
                    (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                   m1])) + ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*lam[1, p3] - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                  m1]))) - (10*CK*(-(barlam[1, p6]*barlam[2, p2]) + 
              barlam[1, p2]*barlam[2, p6])*(-(barlam[1, p7]*barlam[2, p2]) + 
              barlam[1, p2]*barlam[2, p7])*(barlam[1, p7]*barlam[2, p6] - 
               barlam[1, p6]*barlam[2, p7])^2*((barlam[2, p2]*
                (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - 
                     (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                       (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*((barlam[2, p6]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                       (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                       (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*(-((barlam[2, p6]*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p6] - 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))) + (barlam[1, p6]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                       (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*(-(lam[2, p2]*(lam[1, p6] + 
                 (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(-(lam[2, p2]*
                         (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p6] - 
                         (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*((lam[2, p6] - 
                        (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, p6] - (lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                 (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])))) + lam[1, p2]*(
                lam[2, p6] + (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[2, p2]*
                        (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p6] - 
                        (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                      barlam[2, p7])*((lam[2, p6] - (lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - (lam[2, et6]*
                  (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             ((lam[2, p6] + (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[2, p2]*
                        (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p6] - 
                        (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                      barlam[2, p7])*((lam[2, p6] - (lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - (lam[2, et6]*
                  (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p6] + (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[2, p2]*
                        (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p6] - 
                        (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                      barlam[2, p7])*((lam[2, p6] - (lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - (lam[1, et6]*
                  (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 spba[p7, {m1, p4}, m1]))^5)/
            ((((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3])*((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))) - ((-(barlam[1, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]))*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[2, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3])*((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))))^2*
             (-(lam[2, p2]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p6])*lam[1, p2] + (-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
              lam[1, p2]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p6])*lam[2, p2] + (-(barlam[1, p7]*barlam[2, 
                     p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
             ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*lam[
                2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*lam[
                1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                  {m1, p4}, m1]) - lam[1, p2]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((lam[2, p6] + (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*
                      (-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                       lam[1, p2]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*((lam[2, p6] - 
                        (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, p6] - (lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                 (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (lam[1, p6] + (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[2, p2]*
                        (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p6] - 
                        (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                      barlam[2, p7])*((lam[2, p6] - (lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - (lam[1, et6]*
                  (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/(((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))*spba[p7, {m1, p4}, m1]) - 
               (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[2, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/(((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))*spba[p7, {m1, p4}, m1]))^
              2) - (10*CK*(-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
               barlam[2, p7])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*barlam[2, 
                    p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                  lam[2, et6] - lam[1, et6]*lam[2, p3])))*
             (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))^
              2*(-(lam[2, p2]*((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p5])*lam[1, p3] + (lam[1, et5]*
                   (-((-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*lam[1, p3]*lam[2, p2]) + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                        lam[1, p2]*lam[2, p3])*(-((barlam[2, p2]*
                          (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                         ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                         (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))) - (-(barlam[1, p7]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                     (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                        (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])))*((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                       (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                       (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) + 
              lam[1, p2]*((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*lam[2, p3] + (lam[2, et5]*
                  (-((-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*lam[1, p3]*lam[2, p2]) + (barlam[1, p5]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                       lam[1, p2]*lam[2, p3])*(-((barlam[2, p2]*
                         (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                        (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])))) - (-(barlam[1, p7]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                    (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                       (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (-((barlam[2, p7]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))))*((barlam[2, p2]*
                (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + (((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[1, p3]*lam[2, et5] - 
                    (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p3]*lam[2, et5] - (barlam[1, p5]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                     lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*(((-(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + (((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[1, p3]*lam[2, et5] - 
                    (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))) - ((-(barlam[1, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + (((barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[1, p3]*lam[2, et5] - 
                    (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))) + 
              ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*lam[1, p3]*lam[2, et5] - (barlam[1, p5]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                     lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))))*(((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                (lam[2, et5]*(-((-((barlam[1, p5]*barlam[2, p3] - barlam[1, 
                          p3]*barlam[2, p5])*lam[1, p3]*lam[2, p2]) + 
                      (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p2]*lam[2, p3])*(-((barlam[2, p2]*
                         (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                        (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])))) - (-(barlam[1, p7]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                    (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                       (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (-((barlam[2, p7]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[1, p3] + (lam[1, et5]*(-((-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3]*
                        lam[2, p2]) + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p2]*lam[2, p3])*
                     (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                        (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])))) - (-(barlam[1, p7]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                    (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                       (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (-((barlam[2, p7]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                 m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/
                spba[p7, {m1, p4}, m1])^5)/
            (((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - (((barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3]*
                      lam[2, et5] - (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, et5]*lam[2, p3])*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3])) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (-((barlam[2, p7]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))) - (barlam[1, p6]*(-(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  (((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))^2*(-(lam[2, p2]*(lam[1, p2]*
                  ((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + ((barlam[2, p7]*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - (barlam[1, p7]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]))) + lam[1, p2]*(
                lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - (barlam[1, p2]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))) + ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - (barlam[1, p7]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1])))*(-((lam[2, m1]*spb[m1, p7] + 
                 lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                   (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p6] - 
                 (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p6] - 
                (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                  {m1, p4}, m1]) - lam[1, p2]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-(((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  lam[2, p3] + (lam[2, et5]*(-((-((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3]*
                         lam[2, p2]) + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p2]*lam[2, p3])*
                      (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                         ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                         (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))) - (-(barlam[1, p7]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                     (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                        (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])))*((barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                       (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                       (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                   m1])) + ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*lam[1, p3] + (lam[1, et5]*
                  (-((-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*lam[1, p3]*lam[2, p2]) + (barlam[1, p5]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                       lam[1, p2]*lam[2, p3])*(-((barlam[2, p2]*
                         (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                        ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                        (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])))) - (-(barlam[1, p7]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                    (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                       ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                       (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (-((barlam[2, p7]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  (((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                (((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))*spba[p7, {m1, p4}, m1]) - 
               (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  (((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                (((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))*spba[p7, {m1, p4}, m1]))^
              2) - (10*CK*(-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))^
              5*((barlam[2, p2]*(-((((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p3]*lam[2, et5] - 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) - barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))) - (barlam[1, p2]*
                (-((((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))))*(-((barlam[2, p2]*
                 (-((((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3]*lam[2, et5] - (barlam[1, p5]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                       lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1])))) + (barlam[1, p2]*
                (-((((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))))*(-((barlam[2, p6]*
                  (-((((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3]*lam[2, et5] - (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                        lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) - barlam[1, p7]*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))) + (barlam[1, p6]*
                 (-((((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3]*lam[2, et5] - (barlam[1, p5]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                       lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))^2*
             (-(((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])) - (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*(lam[2, m1]*spb[m1, p7] + 
                 lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                   (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                   (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])))*((barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p5])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3])) - (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p6]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-(((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])) - (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*(lam[2, p6] - (lam[2, et6]*
                   (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p5])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - (barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3])) - (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - (barlam[1, p5]*barlam[2, 
                       p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                {m1, p4}, m1])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
               spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                spa[p4, m1])/spba[p7, {m1, p4}, m1])*
             ((barlam[2, p4]*spa[p4, m1]*(-((((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p3]*lam[2, et5] - 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) - barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
              (barlam[1, p4]*spa[p4, m1]*(-((((barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p3]*lam[2, et5] - 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
            ((-((barlam[2, p7]*((((barlam[1, p5]*barlam[2, p3] - barlam[1, 
                          p3]*barlam[2, p5])*lam[1, p3]*lam[2, et5] - 
                      (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))) + (barlam[1, p7]*
                 ((((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))^2*
             (((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*((((barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3]*
                      lam[2, et5] - (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, et5]*lam[2, p3])*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])))/
                   ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3])) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                    barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - ((-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                 ((((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3]*lam[2, et5] - (barlam[1, p5]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))^2*(lam[2, p2]*(lam[1, m1]*
                 spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p6]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p6]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p6]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(
                lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - (barlam[1, p5]*barlam[2, 
                       p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p6]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*((barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(
                lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - (barlam[1, p5]*barlam[2, 
                       p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*lam[
                2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                  {m1, p4}, m1]) - (barlam[1, p5]*barlam[2, p3] - 
                barlam[1, p3]*barlam[2, p5])*lam[1, p3]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3])) - (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - (barlam[1, p5]*barlam[2, 
                       p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3])) - (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p5])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - (barlam[1, p5]*barlam[2, 
                       p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
           (10*CK*(barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])^
              5*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
             ((barlam[2, p2]*(-(barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]))) - (barlam[1, p2]*(-(barlam[2, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]))))*(-((barlam[2, p2]*(-(barlam[1, p6]*
                    (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]))))*(-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                 (-(barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1])))) + ((-(barlam[1, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                (-(barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                 barlam[1, p3]*barlam[2, p5])*(barlam[1, p7]*barlam[2, p6] - 
                 barlam[1, p6]*barlam[2, p7])*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3])*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                 barlam[1, p6]*barlam[2, p7])*(lam[2, m1]*spb[m1, p7] + 
                 lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                   (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                   (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])))*((lam[2, p6] - (lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p4}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*(
                lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p6]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*((lam[2, p6] - (lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                   p7])*((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p5])*lam[2, p3] - (lam[2, et5]*
                   ((lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, p6] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                       spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, 
                        m1])) + (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p4}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[1, p3] - (lam[1, et5]*((lam[2, p6] - (lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]))*spa[p4, m1])/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*spa[p4, m1]*
                 (-(barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                 spa[p4, m1]*(-(barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                       (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))*spba[p7, {m1, p4}, m1]))^2)/
            (((barlam[2, p6]*(barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))) - (barlam[1, p6]*(barlam[2, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))))^2*(-((barlam[2, p7]*(barlam[1, p6]*
                    (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))) + (barlam[1, p7]*(barlam[2, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))))^2*(lam[2, p2]*((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*lam[1, p3] - 
                (lam[1, et5]*((lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))) - 
              lam[1, p2]*((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*lam[2, p3] - (lam[2, et5]*
                  ((lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                        lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, p6] - 
                     (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                         lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[2, et5]*(-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))) + (barlam[1, p6]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                   ((lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, p6] - 
                      (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                          barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p4}, m1]))))*
                ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  lam[1, p3] - (lam[1, et5]*((lam[2, p6] - (lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                       spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, 
                        m1])) + (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p4}, m1]))))) + (lam[1, m1]*spb[m1, p7] + 
                lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                  (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*((lam[2, p6] - (lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1]))))*(
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[2, p3] - (lam[2, et5]*((lam[2, p6] - (lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))))*
             ((lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*(
                lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p6]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*((lam[2, p6] - (lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1]))))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*(
                lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p6]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*((lam[2, p6] - (lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]))*spa[p4, m1])/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p4}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
           (10*CK*(barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
             (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p3]))) + (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
             (lam[2, p2]*((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*lam[1, p3] - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p6]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))))*(-((barlam[1, p4]*barlam[2, p2]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                  barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
              lam[1, p2]*((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*lam[2, p3] - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p6]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))))*(-((barlam[1, p4]*barlam[2, p2]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                  barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
             (lam[2, p2]*(lam[1, p6] - (lam[1, et6]*(-(lam[1, p5]*lam[2, 
                      p3]) + lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))))*(-((barlam[1, p4]*
                   barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]) - lam[1, p2]*(lam[2, p6] - (lam[2, et6]*
                  (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))))*(-((barlam[1, p4]*
                   barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]))*(-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))) + (barlam[1, p6]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
              (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]))*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                   (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) + 
               ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))^2*((barlam[1, p4]*barlam[2, p2]*
                 spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                 barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])^5)/
            ((-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-(((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  lam[2, p3] - (lam[2, et5]*(-(lam[2, p2]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                      barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])))))*(lam[1, p6] - 
                 (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                        p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]))/((lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                       spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, 
                        m1])) + (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p4}, m1])))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p6]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))))) + ((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*lam[1, p3] - 
                (lam[1, et5]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p6]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))))*(lam[2, p6] - (lam[2, et6]*
                  (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))))))*
             (-((lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                    lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                      barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                        p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]))/((lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                       spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, 
                        m1])) + (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p4}, m1])))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p6]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                  spba[p7, {m1, p4}, m1])) + (lam[1, p6] - 
                (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-(lam[2, p2]*((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p5])*lam[1, p3] - (lam[1, et5]*
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                        p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]))/((lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p6]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))))*(-((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) + 
              lam[1, p2]*((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*lam[2, p3] - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p6]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                    ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))))*(-((barlam[1, p4]*barlam[2, p2]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                  barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) - (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/spba[p7, 
                     {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p2]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) - (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))^2*(-((barlam[2, p4]*spa[p4, m1]*
                  (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2]) - (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])*spba[p7, {m1, p4}, m1])) + 
               (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) - (barlam[2, p4]*
                    spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                       lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])*
                 spba[p7, {m1, p4}, m1]))^2) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p6])*(-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p3]))) + (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
             (-(((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  lam[2, p3] - (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                        p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]))/((lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])) + ((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*lam[1, p3] - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                  spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                  barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
             (-((lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                    lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                      barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                       spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, 
                        m1])) + (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p4}, m1])))/((-((barlam[2, p6]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])) + (lam[1, p6] - 
                (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                  spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                  barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
             ((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                   barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
              (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                   barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                   barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                   barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]))*(-(barlam[1, p7]*(lam[2, et5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                   (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[2, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1])))^2*
             (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                spba[p7, {m1, p4}, m1])^5)/((lam[2, p2]*(lam[1, p6] - 
                (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))) - lam[1, p2]*(lam[2, p6] - 
                (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))))*(-(((barlam[1, p5]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p5])*lam[2, p3] - 
                 (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                        p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]))/((lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                        p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]))/((lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                      ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[1, p6] - 
                 (lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                       spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, 
                        m1])) + (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]))*spa[p4, m1])/((-(barlam[1, p5]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p4}, m1])))/((-((barlam[2, p6]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))) + 
              ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[1, p3] - (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))*(lam[2, p6] - (lam[2, et6]*
                  (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                     ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                        lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                      spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]))*
                     spa[p4, m1])/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p4}, m1])))/
                 ((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))))*((lam[2, m1]*spb[m1, p7] + 
                lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                  (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[2, p3] - (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                  spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                  barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
              ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[1, p3] - (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                       (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])))/
                     ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p6]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                  spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                  barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p7]*(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               (barlam[1, p7]*(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2*
             (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])*spba[p7, {m1, p4}, 
                   m1])) + (barlam[1, p4]*spa[p4, m1]*(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1])*spba[p7, {m1, p4}, m1]))^
              2) - (10*CK*(-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
               barlam[2, p7])*(-((barlam[2, p6]*(-(barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                   barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])))/((-(barlam[1, p5]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p3]))) + (barlam[1, p6]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])))/((-(barlam[1, p5]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                   lam[2, et6] - lam[1, et6]*lam[2, p3])))^5*
             (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                 (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                          ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                      lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                     ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))/((lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]) + (lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
              (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]) + (lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                {m1, p4}, m1])*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                 spa[p4, m1])/spba[p7, {m1, p4}, m1])^2*
             ((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/spba[p7, {m1, p4}, m1]))/(
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                 m1]) - (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])) - (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/spba[p7, {m1, p4}, m1]))/(
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                 m1]))*(-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) - (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                (((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, 
                  {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                 m1])))/(((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                 barlam[2, p5])*lam[2, p3]*(lam[1, p6] - (lam[1, et6]*
                  (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*
                 barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3]*(
                lam[2, p6] - (lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p5])*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             (-(lam[2, p2]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                  ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) + lam[1, p2]*(
                lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))*(lam[2, p2]*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                  {m1, p4}, m1]))*(-((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                  spb[p4, p7] + (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*
                      (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                          ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                      lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                     ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))/((lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p6]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2*
             (((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
               ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]))*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p5]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))))/spba[p7, {m1, p4}, m1]))/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))^2)))/
         ((-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5])*
          (-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                   lam[2, et6] - lam[1, et6]*lam[2, p5])))/
              ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
               (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
            (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                  lam[2, et6] - lam[1, et6]*lam[2, p5])))/
             ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
              (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))^2*
          ((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                  lam[2, et6] - lam[1, et6]*lam[2, p5])))/
             ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
              (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
            (barlam[1, p5]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                  lam[2, et6] - lam[1, et6]*lam[2, p5])))/
             ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
              (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))^2) + 
        ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])^5*
          ((-10*CK*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - ((-(barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))/((barlam[1, p7]*barlam[2, 
                      p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                 (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) - 
              (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - ((-(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))/((barlam[1, p7]*barlam[2, 
                      p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                 (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))*
             (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - ((-(barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))) + 
              (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - ((-(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))/((barlam[1, p7]*barlam[2, 
                      p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                 (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))*
             (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - ((-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*lam[2, et5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))) + (barlam[1, p6]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - ((-(barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))^2*
             (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
               (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^5*
             (lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                (lam[1, et5]*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p2]*((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                (lam[2, et5]*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                       barlam[2, p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*(-((barlam[2, p4]*spa[p4, m1]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) - lam[1, p2]*(
                (barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[2, p6] - (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                       barlam[2, p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*(-((barlam[2, p4]*spa[p4, m1]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                {m1, p4}, m1])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
               spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                spa[p4, m1])/spba[p7, {m1, p4}, m1])*
             ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                 ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                  lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (barlam[1, p2]*
                   (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*spa[p4, m1]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - ((-(barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                  lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (barlam[1, p2]*
                   (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                spba[p7, {m1, p4}, m1])))/
            ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + ((-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*lam[2, et5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))) + (barlam[1, p2]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + ((-(barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))^2*
             (-(((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2]) + ((-(barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                     ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
               ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + ((-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p5] - barlam[1, p5]*barlam[2, p7])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^2*
             (lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                (lam[1, et5]*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                (lam[2, et5]*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-(lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - (barlam[1, p2]*
                   (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                (lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                      barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                   (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[2, p4]*spa[p4, m1]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                    (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      spba[p7, {m1, p4}, m1])))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*((barlam[1, p6]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                      barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p2]*((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[2, p6] - (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                       barlam[2, p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*(-((barlam[2, p4]*spa[p4, m1]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                (lam[2, et5]*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p6] - 
                (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                       barlam[2, p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*(-((barlam[2, p4]*spa[p4, m1]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                (lam[1, et5]*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p6] - 
                (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                       barlam[2, p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*(-((barlam[2, p4]*spa[p4, m1]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                   p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                  spba[p7, {m1, p4}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p5]) + barlam[1, p5]*barlam[2, p7])*lam[1, p2]*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                  m1]))) - (10*CK*((barlam[2, p2]*(-(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                 ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                  lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (barlam[1, p3]*
                   (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) - 
              (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - ((-(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))/((barlam[1, p7]*barlam[2, 
                      p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])))))/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                 (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))*
             (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - ((-(barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))) + 
              (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - ((-(barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))/((barlam[1, p7]*barlam[2, 
                      p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])))))/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                 (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))*
             (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p3])) - ((-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*lam[2, et5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))/((lam[1, p3]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))) + (barlam[1, p6]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - ((-(barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))^2*
             (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
               (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^5*
             (lam[2, p3]*((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                (lam[1, et5]*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p3]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p3]*((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                (lam[2, et5]*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p3]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p3]*((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                       barlam[2, p7])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*(-((barlam[2, p4]*spa[p4, m1]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) - lam[1, p3]*(
                (barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[2, p6] - (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                       barlam[2, p7])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*(-((barlam[2, p4]*spa[p4, m1]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                {m1, p4}, m1])*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
               spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                spa[p4, m1])/spba[p7, {m1, p4}, m1])*
             ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                 ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                  lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (barlam[1, p3]*
                   (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*spa[p4, m1]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - ((-(barlam[2, p5]*(lam[1, p5]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                  lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (barlam[1, p3]*
                   (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                spba[p7, {m1, p4}, m1])))/
            ((-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) + ((-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*lam[2, et5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))/((lam[1, p3]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))) + (barlam[1, p3]*
                 (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + ((-(barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))^2*
             (-(((barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3]) + ((-(barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                     ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
               ((barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + ((-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p5] - barlam[1, p5]*barlam[2, p7])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^2*
             (lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                (lam[1, et5]*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p3]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                (lam[2, et5]*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p3]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-(lam[2, p3]*((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - (barlam[1, p3]*
                   (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                (lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                      barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                   (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[2, p4]*spa[p4, m1]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                    (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      spba[p7, {m1, p4}, m1])))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*((barlam[1, p6]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                      barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p3]*((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[2, p6] - (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                       barlam[2, p7])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*(-((barlam[2, p4]*spa[p4, m1]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                (lam[2, et5]*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p3]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p6] - 
                (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                       barlam[2, p7])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*(-((barlam[2, p4]*spa[p4, m1]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                (lam[1, et5]*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p3]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                     barlam[1, p5]*barlam[2, p7])*lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p6] - 
                (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                       barlam[2, p7])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*(-((barlam[2, p4]*spa[p4, m1]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                   p7])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                  spba[p7, {m1, p4}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p5]) + barlam[1, p5]*barlam[2, p7])*lam[1, p3]*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                  m1]))) - (10*CK*(barlam[1, p3]*barlam[2, p2] - 
              barlam[1, p2]*barlam[2, p3])*((barlam[2, p3]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                   lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) - 
              (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                   lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (barlam[1, p2]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))*
             (-(lam[2, p2]*((lam[1, et5]*(-((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                       lam[1, p2]*lam[2, p3])) - (-((barlam[2, p2]*
                         (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                     (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                     (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                    (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + (-(barlam[1, p7]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]))) + lam[1, p2]*(
                (lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-((barlam[2, p2]*(-(barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                     (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1])))*(-(lam[2, p3]*((lam[1, et5]*
                   (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                         p3])) - (-((barlam[2, p2]*(-(barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                      (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                     (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                    (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + (-(barlam[1, p7]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]))) + lam[1, p3]*(
                (lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-((barlam[2, p2]*(-(barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                     (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1])))*(-((barlam[2, p2]*(-(barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                   barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))) + (barlam[1, p2]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                     spba[p7, {m1, p4}, m1]))))^2*
             (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
              (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + ((-(barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))/((barlam[1, p7]*barlam[2, 
                      p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p7])*((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))) - ((barlam[1, p2]*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[1, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p5]) + barlam[1, p5]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[1, p3]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))*(lam[2, et6]*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                    spba[p7, {m1, p4}, m1]))))*
             (-(((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + ((-(barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p5] - barlam[1, p5]*barlam[2, p7])*
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
              ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + ((-(barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                      barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))/((barlam[1, p7]*barlam[2, 
                      p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p7])*((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p4]*
                 spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                 barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1])^5)/
            ((-(lam[1, p3]*lam[2, p2]) + lam[1, p2]*lam[2, p3])*
             (-(lam[2, p3]*(lam[1, p2]*((barlam[2, p2]*(-(barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (barlam[1, p2]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*((barlam[2, p3]*
                     (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))) + lam[1, p3]*(
                lam[2, p2]*((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - (barlam[1, p2]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                lam[2, p3]*((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - (barlam[1, p3]*
                    (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))*
             ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) - 
                  ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[1, p3]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))) - (barlam[1, p6]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) - ((-(barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[1, p3]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))^2*
             (lam[2, p2]*((lam[1, et5]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                      lam[1, p2]*lam[2, p3])) - (-((barlam[2, p2]*
                        (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, p2]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1])) - lam[1, p2]*((lam[2, et5]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-((barlam[2, p2]*(-(barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                     (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p7])*lam[2, p2]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[
                          2, p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1])))*(-((lam[2, m1]*spb[m1, p7] + 
                 lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*lam[2, et6]*(lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p4])/spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p6] - 
                 (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p6] - 
                (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) - 
                  ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                (((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
                 spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*spa[p4, m1]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) - ((-(barlam[2, p5]*(lam[1, p5]*
                         lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))*((-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                (((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p3]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
                 spba[p7, {m1, p4}, m1]))^2) - 
           (10*CK*(barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
             (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])^2*
             (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
             ((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[1, p6]*
                  (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
              (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[2, p6]*
                  (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[1, p6]*
                  (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
              (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[2, p6]*
                  (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             (-((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[1, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p3]))) + (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[2, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                       (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             (-(lam[2, p2]*(lam[1, p6] + (lam[1, et5]*(-((barlam[1, p3]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                      (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                    (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                      lam[1, p2]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(-(lam[2, p3]*(lam[1, p6] - (lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                      lam[1, p3]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                      barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])))) + lam[1, p2]*(
                lam[2, p6] + (lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                      lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[2, p2]*
                       (lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p6] - 
                       (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[2, p3]*
                       (lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p6] - 
                       (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p6]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3])) - (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             (-(lam[2, p3]*(lam[1, p6] + (lam[1, et5]*(-((barlam[1, p3]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                      (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                    (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                      lam[1, p2]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(-(lam[2, p3]*(lam[1, p6] - (lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                      lam[1, p3]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                      barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])))) + lam[1, p3]*(
                lam[2, p6] + (lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                      lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[2, p2]*
                       (lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p6] - 
                       (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[2, p3]*
                       (lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p6] - 
                       (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p6]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3])) - (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*spa[p4, m1]*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                     spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))^5)/
            ((-(lam[1, p3]*lam[2, p2]) + lam[1, p2]*lam[2, p3])*
             (-(((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p6])*lam[1, p3])*lam[2, p3]) + 
              lam[1, p3]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*lam[2, p3]))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                       lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) - barlam[2, p6]*(lam[2, et5]*
                      (lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                       (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))*(-(barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3]))*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))) + ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) - barlam[1, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*
                 (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p5] - barlam[1, p5]*barlam[2, p7])*
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]))*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))))^2*(lam[2, p2]*(lam[1, p6] + (lam[1, et5]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[2, p2]*(lam[1, p6] - 
                        (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p6] - 
                       (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[2, p3]*
                       (lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p6] - 
                       (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p6]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3])) - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) - lam[1, p2]*(
                lam[2, p6] + (lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                      lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[2, p2]*
                       (lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p6] - 
                       (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[2, p3]*
                       (lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p6] - 
                       (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p6]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3])) - (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                   p7])*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*(
                lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) - 
                  barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                (((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]))*spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*
                 spa[p4, m1]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) - barlam[2, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                (((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]))*spba[p7, {m1, p4}, m1]))^2) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p6])^5*((barlam[2, p3]*(-(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                 barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                       (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
              (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - barlam[2, p6]*(lam[2, et5]*
                    (lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p6]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                  lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p6]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2]))) + (barlam[1, p3]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                     (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p6]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                  lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
              (barlam[1, p3]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                     (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))*(-(barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p6])*(barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                  barlam[2, p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                  lam[2, p2])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]))) - ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - barlam[1, p6]*(lam[2, et5]*
                    (lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))*(-(barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p6])*(barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                  barlam[2, p7])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                  lam[2, p2])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]))))*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                 barlam[2, p6])*lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[1, et6]*(lam[2, p5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(lam[2, p2]*(lam[1, p6] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p6] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*spa[p4, m1]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                      m1])))) - (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                 barlam[2, p6])*lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[2, et6]*(lam[2, p5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(lam[2, p2]*(lam[1, p6] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p6] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*spa[p4, m1]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))))*
             ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[
                2, p2]*((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]) - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*
                      spa[p4, m1]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                      m1])))) - (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                 barlam[2, p6])*lam[1, p2]*((-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*
                      spa[p4, m1]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))))*
             ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*spa[p4, m1]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p6]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])*spba[p7, {m1, p4}, 
                  m1]))^2*(-((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                  barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))*spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                spba[p7, {m1, p4}, m1])))/
            ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + barlam[1, p6]*(lam[2, et5]*
                      (lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                       (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p6]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]))) + (barlam[1, p2]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p6]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])))^2*
             ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p6]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])) - (barlam[1, p6]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p6]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])))^2*
             (-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*(lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p4])/spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                      barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p2]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[1, et5]*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                    (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(lam[2, p2]*(lam[1, p6] - 
                       (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p6] - 
                      (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*spa[p4, m1]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                    (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      spba[p7, {m1, p4}, m1]))))) + (barlam[1, p6]*
                 barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(lam[2, p2]*(lam[1, p6] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p6] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*spa[p4, m1]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))))*
             (lam[2, p3]*((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]) - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*
                      spa[p4, m1]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                      m1])))) - lam[1, p3]*((-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*
                      spa[p4, m1]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[2, et5]*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                    (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(lam[2, p2]*(lam[1, p6] - 
                       (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p6] - 
                      (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*spa[p4, m1]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                    (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      spba[p7, {m1, p4}, m1]))))*((-(barlam[1, p7]*barlam[2, 
                      p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 (lam[1, et5]*(-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p2]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*
                       spa[p4, m1]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                    (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      spba[p7, {m1, p4}, m1]))))) + (lam[1, m1]*spb[m1, p7] + 
                lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[1, et6]*(lam[2, p5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(lam[2, p2]*(lam[1, p6] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p6] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p4]*spa[p4, m1]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))))*(
                (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1]) - (lam[2, et5]*(-(lam[2, p2]*(lam[1, p6] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p6] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))))) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                barlam[2, p6])^5*((barlam[2, p2]*(-(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                 barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                       (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
              (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - barlam[2, p6]*(lam[2, et5]*
                    (lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p6]*barlam[2, 
                    p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                  lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - barlam[1, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3]))) + (barlam[1, p2]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                     (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p6]*barlam[2, 
                    p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                  lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
              (barlam[1, p2]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (((-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                     (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))*(-(barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                  barlam[2, p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                  lam[2, p3])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]))) - ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - barlam[1, p6]*(lam[2, et5]*
                    (lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))*(-(barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                  barlam[2, p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                  lam[2, p3])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]))))*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                 barlam[2, p6])*lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[1, et6]*(lam[2, p5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(lam[2, p3]*(lam[1, p6] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p6] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p4]*spa[p4, m1]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                      m1])))) - (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                 barlam[2, p6])*lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[2, et6]*(lam[2, p5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(lam[2, p3]*(lam[1, p6] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p6] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p4]*spa[p4, m1]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))))*
             ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*lam[
                2, p3]*((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]) - (lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, p6] - (lam[1, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p4]*
                      spa[p4, m1]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                      m1])))) - (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                 barlam[2, p6])*lam[1, p3]*((-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, p6] - (lam[1, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p4]*
                      spa[p4, m1]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))))*
             ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[1, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*spa[p4, m1]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])*spba[p7, {m1, p4}, 
                  m1]))^2*(-((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p5]*
                    (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                  barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                   barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))*spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*
                spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                spba[p7, {m1, p4}, m1])))/
            ((-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) + barlam[1, p6]*(lam[2, et5]*
                      (lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                       (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p6]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]))) + (barlam[1, p3]*
                 (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             ((barlam[2, p6]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + barlam[1, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])) - (barlam[1, p6]*
                 (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             (-(lam[2, p3]*(lam[1, p6] - (lam[1, et6]*(lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p4])/spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                      barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p3]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[1, et5]*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                    (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(lam[2, p3]*(lam[1, p6] - 
                       (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p6] - 
                      (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*(-((barlam[2, p4]*spa[p4, m1]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                    (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      spba[p7, {m1, p4}, m1]))))) + (barlam[1, p6]*
                 barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(lam[2, p3]*(lam[1, p6] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p6] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p4]*spa[p4, m1]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))))*
             (lam[2, p2]*((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]) - (lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, p6] - (lam[1, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p4]*
                      spa[p4, m1]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                      m1])))) - lam[1, p2]*((-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, p6] - (lam[1, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p4]*
                      spa[p4, m1]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (lam[2, et5]*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                    (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(lam[2, p3]*(lam[1, p6] - 
                       (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p6] - 
                      (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*(-((barlam[2, p4]*spa[p4, m1]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                    (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      spba[p7, {m1, p4}, m1]))))*((-(barlam[1, p7]*barlam[2, 
                      p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 (lam[1, et5]*(-(lam[2, p3]*(lam[1, p6] - (lam[1, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p3]*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p4]*
                       spa[p4, m1]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                    (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      spba[p7, {m1, p4}, m1]))))) + (lam[1, m1]*spb[m1, p7] + 
                lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[1, et6]*(lam[2, p5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                   (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p5])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(lam[2, p3]*(lam[1, p6] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p6] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p4]*spa[p4, m1]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))))*(
                (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1]) - (lam[2, et5]*(-(lam[2, p3]*(lam[1, p6] - 
                      (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p6] - 
                     (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))))) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                p6])*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
              (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p2]*((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]) - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p6]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*(-((barlam[1, p4]*
                   barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]) - lam[1, p2]*((-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p6]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*(-((barlam[1, p4]*
                   barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]))*(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*
                  (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*(-((barlam[1, p4]*
                   barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]) - lam[1, p2]*(lam[2, p6] - (lam[2, et6]*
                  (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*(-((barlam[1, p4]*
                   barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]))*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                 (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
              (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-(((-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                  (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                       lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/spba[p7, 
                     {m1, p4}, m1]))/((barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))*(-(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) + 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/spba[p7, {m1, p4}, m1]))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))^2*((barlam[1, p4]*barlam[2, p2]*
                 spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                 barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])^5)/
            ((-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p3]*(lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))) - lam[1, p3]*(
                lam[2, p6] - (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))))*
             (-(((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - (lam[2, et5]*(-(lam[2, p2]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p6]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))*
                (lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                      barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                        p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(lam[2, p5]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   (-((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                      (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))))) + ((-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p6]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*(lam[2, p6] - 
                (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))))*
             (-(lam[2, p2]*((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                    barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                    spba[p7, {m1, p4}, m1]) - (lam[1, et5]*
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                        p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(lam[2, p5]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p6]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))*
                (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                    m1])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*(
                (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1]) - (lam[2, et5]*(-(lam[2, p2]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p2])*(-((barlam[2, p6]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*(-((barlam[1, p4]*
                   barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]))*(-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) - (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/spba[p7, 
                     {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p2]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) - (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))^2*(-((barlam[2, p4]*spa[p4, m1]*
                  (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2]) - (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])*spba[p7, {m1, p4}, m1])) + 
               (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) - (barlam[2, p4]*
                    spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                       lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])*
                 spba[p7, {m1, p4}, m1]))^2) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p6])*(-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
              (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p3]*((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]) - (lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p6]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*(-((barlam[1, p4]*
                   barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]) - lam[1, p3]*((-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p6]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*(-((barlam[1, p4]*
                   barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]))*(lam[2, p3]*(lam[1, p6] - (lam[1, et6]*
                  (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*(-((barlam[1, p4]*
                   barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]) - lam[1, p3]*(lam[2, p6] - (lam[2, et6]*
                  (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*(-((barlam[1, p4]*
                   barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]))*((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                 (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
              (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-(((-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                  (-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                       lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/spba[p7, 
                     {m1, p4}, m1]))/((barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p4]*barlam[2, p3]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               ((-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))*(-(barlam[2, p3]*
                    (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/spba[p7, {m1, p4}, m1]))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))^2*((barlam[1, p4]*barlam[2, p3]*
                 spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                 barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])^5)/
            ((-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p2]*(lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))) - lam[1, p2]*(
                lam[2, p6] - (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))))*
             (-(((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - (lam[2, et5]*(-(lam[2, p3]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p6]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))*
                (lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                      barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])) - (lam[1, et5]*
                   (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                        p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(lam[2, p5]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   (-((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                      (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))))) + ((-(barlam[1, p7]*barlam[2, p5]) + 
                  barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p6]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*(lam[2, p6] - 
                (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p5]*(lam[1, p5]*
                          lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                     (-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))))*
             (-(lam[2, p3]*((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                    barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                    spba[p7, {m1, p4}, m1]) - (lam[1, et5]*
                   (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                        p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(lam[2, p5]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p6]*
                       (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))*
                (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                    m1])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*(
                (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1]) - (lam[2, et5]*(-(lam[2, p3]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p6]*
                      (-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p6]*(-(barlam[2, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*(-((barlam[1, p4]*
                   barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]))*(-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3]) - (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/spba[p7, 
                     {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p3]*
                 (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) - (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))^2*(-((barlam[2, p4]*spa[p4, m1]*
                  (barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3]) - (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])*spba[p7, {m1, p4}, m1])) + 
               (barlam[1, p4]*spa[p4, m1]*(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) - (barlam[2, p4]*
                    spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                       lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])*
                 spba[p7, {m1, p4}, m1]))^2) - 
           (10*CK*(barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
             (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
               (barlam[1, p6]*(-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^5*
             (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                 (lam[1, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                        lam[2, p3])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                    (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                          ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                      lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                       et5] - lam[1, et5]*lam[2, p3])*((barlam[1, p4]*
                       barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1])) - ((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*lam[1, et6]*(lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p4])/spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])))) + lam[1, p2]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                (lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(lam[2, p5]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p4]*barlam[2, p3]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[2, et6]*(lam[2, p5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                 (lam[1, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                        lam[2, p3])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[1, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                          lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                    (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                          ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                      lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                       et5] - lam[1, et5]*lam[2, p3])*((barlam[1, p4]*
                       barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1])) - ((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*lam[1, et6]*(lam[2, p5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p4])/spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])))) + lam[1, p3]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                (lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(lam[2, p5]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p4]*barlam[2, p3]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[2, et6]*(lam[2, p5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) - (barlam[1, p4]*
                   spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])) - (barlam[1, p3]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) - (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))*((barlam[1, p4]*barlam[2, p2]*
                 spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                 barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])^2*
             ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                {m1, p4}, m1])*((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) - (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
              (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[2, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) - 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[1, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) - 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/spba[p7, {m1, p4}, m1]))/
                (((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
              (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[2, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) - 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))/
            ((-(lam[1, p3]*lam[2, p2]) + lam[1, p2]*lam[2, p3])*
             (-(lam[2, p3]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              lam[1, p3]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                (lam[1, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(lam[2, p5]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p4]*barlam[2, p3]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[1, et6]*(lam[2, p5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                (lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7] - ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*lam[2, et6]*(lam[2, p5]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p4]*barlam[2, p3]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - ((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*lam[2, et6]*(lam[2, p5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                   p7])*(lam[2, p6] - (lam[2, et6]*(lam[2, p5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                      barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*(
                lam[1, p6] - (lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3]) + (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7] - ((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                          (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/spba[p7, 
                     {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p6]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))^2*
             (((-(barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                      lam[2, p5])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))*(-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] - 
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*lam[1, et6]*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p4]*spb[p4, p7] - ((barlam[1, p6]*
                          barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                         lam[2, et6]*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/spba[p7, {m1, p4}, m1]))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))) - ((-(barlam[1, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] - ((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))))^2)))/
         (((barlam[2, p5]*(barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                    spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                 p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                   m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                  spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*(barlam[2, p5]*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
               barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                   s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                   m1]))))^2*(-((barlam[2, p7]*(barlam[1, p5]*
                 (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                 barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                 (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                    m1])))) + (barlam[1, p7]*(barlam[2, p5]*
                (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
               barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]))))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                   s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                   m1]))))^2*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
              spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
             (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])^5*
          ((-10*CK*(barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                 p3])^5*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]))) + 
              (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3])))/(
                (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
               lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - ((-(barlam[1, p7]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p7])*lam[1, et5]*(lam[1, p3]*
                    lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
               lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - ((-(barlam[1, p7]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p7])*lam[2, et5]*(lam[1, p3]*
                    lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
               lam[2, p3]*(lam[1, p7] - (lam[1, et5]*(lam[1, p3]*lam[2, p2] - 
                   lam[1, p2]*lam[2, p3])*(-((barlam[1, p4]*barlam[2, p2]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
               lam[1, p3]*(lam[2, p7] - (lam[2, et5]*(lam[1, p3]*lam[2, p2] - 
                   lam[1, p2]*lam[2, p3])*(-((barlam[1, p4]*barlam[2, p2]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
              (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))*(barlam[1, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])) - (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                     barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                   (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])) - (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                     barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                   (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]))*(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) - (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])))) + ((-(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]))*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                  spba[p7, {m1, p4}, m1]))/((barlam[1, p3]*barlam[2, p2] - 
                 barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                 m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                {m1, p4}, m1])*((barlam[2, p4]*(-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]))*spa[p4, m1])/((barlam[1, p3]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])*spba[p7, {m1, p4}, 
                  m1]) - (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[2, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]))*
                 spa[p4, m1])/((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p3])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                   lam[2, p3])*spba[p7, {m1, p4}, m1]))^2)/
            ((lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
             ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
               (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             (-((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]))) + 
               (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             (-((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p3])*lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                  spb[p4, p7] + (lam[1, et6]*(-((barlam[1, p3]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                        lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                        barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                       barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1])) - ((-(barlam[1, p7]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p7])*lam[1, et5]*(lam[1, p3]*
                     lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
               lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - ((-(barlam[1, p7]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p7])*lam[2, et5]*(lam[1, p3]*
                    lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             ((lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))*(lam[1, p7] - (lam[1, et5]*
                  (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))*(lam[2, p7] - (lam[2, et5]*
                  (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                 (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                        lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                     ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                      lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                       barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1])) - ((-(barlam[1, p7]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p7])*lam[2, et5]*(lam[1, p3]*
                     lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] - 
                 (lam[1, et5]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                   (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - ((-(barlam[1, p7]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p7])*lam[1, et5]*(lam[1, p3]*
                    lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] - 
                (lam[2, et5]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
           (10*CK*(-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                p7])*((lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))*(lam[1, m1]*spb[m1, p7] + 
                lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - ((-(barlam[1, p7]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p7])*lam[1, et5]*(lam[2, p2]*
                    (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - lam[1, p2]*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(
                -((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                    spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))*(lam[2, m1]*spb[m1, p7] + 
                lam[2, p4]*spb[p4, p7] + (lam[2, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - ((-(barlam[1, p7]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p7])*lam[2, et5]*(lam[2, p2]*
                    (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - lam[1, p2]*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(
                -((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                    spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - ((lam[2, et5]*(lam[1, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                  (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])))*((barlam[2, p2]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
              (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - ((lam[2, et5]*(lam[1, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                  (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])))*((barlam[2, p2]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) + 
              (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - ((lam[2, et5]*(lam[1, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                  (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])))*((barlam[2, p2]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) + 
              (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - ((lam[2, et5]*(lam[1, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                  (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])))*((barlam[2, p2]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*
             ((lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))*(-((barlam[2, p2]*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, 
                       m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                    spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] - 
                (lam[1, et5]*(lam[2, p2]*(lam[1, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - lam[1, p2]*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))*(-((barlam[2, p2]*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, 
                       m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                    spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] - 
                (lam[2, et5]*(lam[2, p2]*(lam[1, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - lam[1, p2]*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - (barlam[1, p2]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))^5*
             (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                 m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                {m1, p4}, m1])*((barlam[2, p4]*spa[p4, m1]*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))*spba[p7, 
                  {m1, p4}, m1]) - (barlam[1, p4]*spa[p4, m1]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))*spba[p7, 
                  {m1, p4}, m1]))^2)/((lam[2, p2]*(lam[1, p2]*
                 (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])) - lam[1, p2]*(lam[2, p2]*
                 (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))*
             (-((lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                  ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))*(lam[1, m1]*spb[m1, p7] + 
                 lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                   (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                         p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                     ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                      lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                       barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1])) - ((-(barlam[1, p7]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p7])*lam[1, et5]*(lam[2, p2]*
                     (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, p2]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))/((lam[2, et5]*(lam[1, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(-((barlam[1, p7]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                      barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                 (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))*(lam[2, m1]*spb[m1, p7] + 
                lam[2, p4]*spb[p4, p7] + (lam[2, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - ((-(barlam[1, p7]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p7])*lam[2, et5]*(lam[2, p2]*
                    (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - lam[1, p2]*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(
                -((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                    spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
               (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))))^2*
             (lam[2, p3]*(lam[1, p7] - (lam[1, et5]*(lam[2, p2]*
                    (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - lam[1, p2]*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              lam[1, p3]*(lam[2, p7] - (lam[2, et5]*(lam[2, p2]*
                    (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - lam[1, p2]*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                 (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                        lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                     ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                      lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                       barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1])) - ((-(barlam[1, p7]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p7])*lam[2, et5]*(lam[2, p2]*
                     (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, p2]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))/((lam[2, et5]*(lam[1, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(-((barlam[1, p7]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                      barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                (lam[1, p7] - (lam[1, et5]*(lam[2, p2]*(lam[1, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, p2]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(-((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - ((-(barlam[1, p7]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p7])*lam[1, et5]*(lam[2, p2]*
                    (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - lam[1, p2]*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] - 
                (lam[2, et5]*(lam[2, p2]*(lam[1, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - lam[1, p2]*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p2]*
                     (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                   (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))*((barlam[2, p2]*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
               ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p2]*
                     (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                   (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))*((barlam[2, p2]*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))))^2) - 
           (10*CK*(barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])^
              2*(-(lam[2, p3]*(lam[1, p2] + (lam[1, et5]*
                   (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                         p3])) - (lam[2, p2]*(lam[1, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, 
                          p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, p2]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, 
                          p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, 
                          p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) - (barlam[2, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - (lam[2, p3]*(lam[1, p2]*
                         (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, p3]*(lam[2, p2]*
                         (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*((barlam[2, p3]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) - (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p3]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) - (barlam[2, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((barlam[1, p3]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) + (lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))) + lam[1, p3]*(lam[2, p2] + 
                (lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (lam[2, p2]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, p2]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - (lam[2, p3]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, p3]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p3]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((barlam[1, p3]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (lam[2, et5]*(lam[1, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*((barlam[2, p2]*(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))*((lam[2, p2] + 
                (lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (lam[2, p2]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, p2]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - (lam[2, p3]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, p3]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p3]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((barlam[1, p3]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (lam[2, et5]*(lam[1, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*((barlam[2, p2]*(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))*(lam[1, p2]*
                 (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])) - (lam[1, p2] + 
                (lam[1, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (lam[2, p2]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, p2]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - (lam[2, p3]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, p3]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p3]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((barlam[1, p3]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (lam[2, et5]*(lam[1, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*((barlam[2, p2]*(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))*(lam[2, p2]*
                 (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))*((barlam[2, p2]*
                (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + ((lam[2, et5]*(lam[1, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
              (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) + 
              (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*
             ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
              (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             ((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
              (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-(((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1]))/(((barlam[1, p3]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (lam[2, et5]*(lam[1, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*((barlam[2, p2]*(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + ((lam[2, et5]*(lam[1, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                  spba[p7, {m1, p4}, m1]))/(((barlam[1, p3]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + (lam[2, et5]*(lam[1, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                     barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                   (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                spba[p7, {m1, p4}, m1])^5)/((lam[2, p3]*(lam[1, p2] + 
                (lam[1, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (lam[2, p2]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, p2]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - (lam[2, p3]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, p3]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p3]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((barlam[1, p3]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (lam[2, et5]*(lam[1, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*((barlam[2, p2]*(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))) - lam[1, p3]*(lam[2, p2] + 
                (lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (lam[2, p2]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, p2]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - (lam[2, p3]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, p3]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p3]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((barlam[1, p3]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (lam[2, et5]*(lam[1, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*((barlam[2, p2]*(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))))*(-(lam[2, p3]*
                (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                  ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) + lam[1, p3]*(
                lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))*
             (((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
                 lam[2, p3] + (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                   ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))*(-((barlam[2, p2]*
                     (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                  (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*(
                lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])) - ((-(barlam[1, p3]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p3])*lam[1, p3] + 
                (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                   ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))*(-((barlam[2, p2]*
                     (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                  (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*(
                lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3]) - 
                   ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                         (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                   ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))) + (barlam[1, p7]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) - ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))))^2*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))*(-((barlam[2, p4]*spa[p4, m1]*
                  (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                       lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) - ((lam[2, et5]*(lam[1, p2]*
                         (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                         (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 (((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p3])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p3]) + (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*spba[p7, {m1, p4}, m1])) + 
               (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[2, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) - 
                  ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                (((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                   ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p2]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*spba[p7, {m1, p4}, m1]))^2) - 
           (10*CK*(-((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                 (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                        lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                     ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                      lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                       barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1])) - ((-(barlam[1, p7]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p7])*lam[2, et5]*
                   (-((lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + (lam[1, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(-((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                  ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))*(-((barlam[2, p7]*
                    (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                 (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - ((-(barlam[1, p7]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p7])*lam[1, et5]*
                  (-((lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p2]*
                 (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))*(-((barlam[2, p7]*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, 
                       m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                    spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             ((lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))*(lam[1, p2] - (lam[1, et5]*
                  (-((lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                       p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(
                -((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                    spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))*(lam[2, p2] - (lam[2, et5]*
                  (-((lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                       p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(
                -((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                    spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - ((lam[2, et5]*
                       (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                         (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) + 
               (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - ((lam[2, et5]*
                      (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))))^2*
             ((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - ((lam[2, et5]*
                     (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                  (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])))*((barlam[2, p7]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
              (barlam[1, p3]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - ((lam[2, et5]*
                     (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                  (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])))*((barlam[2, p7]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - ((lam[2, et5]*
                      (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) + 
              (barlam[1, p3]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - ((lam[2, et5]*
                     (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                  (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])))*((barlam[2, p7]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*
             ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))^5*
             (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                 m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                {m1, p4}, m1])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
               spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                spa[p4, m1])/spba[p7, {m1, p4}, m1])*
             ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                  (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])))*((barlam[2, p7]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))*spba[p7, 
                 {m1, p4}, m1]) - (barlam[1, p4]*spa[p4, m1]*
                (-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))) - ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                  (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])))*((barlam[2, p7]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))*spba[p7, 
                 {m1, p4}, m1])))/((lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - ((-(barlam[1, p7]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p7])*lam[1, et5]*
                  (-((lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - ((-(barlam[1, p7]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p7])*lam[2, et5]*
                  (-((lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - ((-(barlam[1, p7]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p7])*lam[2, et5]*
                  (-((lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p2] - 
                (lam[1, et5]*(-((lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p4])/spba[p7, {m1, p4}, m1])) + (lam[1, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - ((-(barlam[1, p7]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p7])*lam[1, et5]*
                  (-((lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p2] - 
                (lam[2, et5]*(-((lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p4])/spba[p7, {m1, p4}, m1])) + (lam[1, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                  ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))*(lam[1, p2] - 
                 (lam[1, et5]*(-((lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + (lam[1, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                   (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                (-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                 (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))*(lam[2, p2] - (lam[2, et5]*
                  (-((lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                       p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(
                -((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                    spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[2, p7]*(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])) + ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
               (barlam[1, p7]*(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])) + ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))))^2*
             (-((lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                  ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                  s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (((barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p2]*
                     (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                   (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))*((barlam[2, p7]*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
               ((barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p2]*
                     (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                   (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))*((barlam[2, p7]*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))))^2) - 
           (10*CK*(-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                barlam[2, p7])^2*((barlam[2, p7]*(barlam[1, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])) + ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
              (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                  ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) + 
              (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*
             (-(lam[2, p3]*(lam[1, p7] + (lam[1, et5]*
                   (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                       lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) - (lam[2, p3]*
                       (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, p3]*(lam[2, p2]*
                         (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*((barlam[2, p3]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) - (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p3]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) - (barlam[2, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - (-((lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, 
                          p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + (lam[1, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, 
                          p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[2, p7]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) - (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) - (barlam[2, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((-(barlam[1, p7]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                   (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + (lam[1, m1]*s[m1, p4])/
                  spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (lam[2, p3]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, p3]*(lam[2, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p3]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - (-((lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, 
                          p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + (lam[1, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))*((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((-(barlam[1, p7]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                   ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))*
             (-((lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                  ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))*(lam[1, p7] + 
                 (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (lam[2, p3]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, p3]*(lam[2, p2]*
                         (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*((barlam[2, p3]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) - (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p3]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) - (barlam[2, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - (-((lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                          (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, 
                          p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + (lam[1, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, 
                          p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[2, p7]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) - (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) - (barlam[2, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((-(barlam[1, p7]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                   (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + (lam[1, m1]*s[m1, p4])/
                  spba[p7, {m1, p4}, m1])) + (lam[1, p2]*
                 (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (lam[2, p3]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, p3]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p3]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - (-((lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, 
                          p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + (lam[1, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))*((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((-(barlam[1, p7]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                   ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))*((barlam[2, p3]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1])) - (barlam[1, p3]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
              (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-(((barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])) + ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1]))/(((-(barlam[1, p7]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                   ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              ((barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) + ((lam[2, et5]*(lam[1, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                  spba[p7, {m1, p4}, m1]))/(((-(barlam[1, p7]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                     barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                   (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                 m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                spba[p7, {m1, p4}, m1])^5)/
            ((-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                 (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                        lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                     ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                      lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                       barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1])))) + lam[1, p2]*(lam[2, m1]*
                 spb[m1, p7] + lam[2, p4]*spb[p4, p7] + (lam[2, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))))*(-(lam[2, p3]*(lam[1, p2]*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                  ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) + lam[1, p3]*(
                lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))*(((barlam[1, p7]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p7])*lam[2, p3] + 
                (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                   ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))*(-((barlam[2, p7]*
                     (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*(
                lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])) - ((barlam[1, p7]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p7])*lam[1, p3] + 
                (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                   ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))*(-((barlam[2, p7]*
                     (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*(
                lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))*
             (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p3])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                         (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3]) + (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*((barlam[2, p7]*(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))) + (barlam[1, p2]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])) - ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))))^2*
             (lam[2, p3]*(lam[1, p7] + (lam[1, et5]*
                  (-((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (lam[2, p3]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, p3]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p3]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - (-((lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, 
                          p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + (lam[1, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))*((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((-(barlam[1, p7]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                   ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + (lam[1, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (lam[2, p3]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, p3]*(lam[2, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p3]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - (-((lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, 
                          p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + (lam[1, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))*((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((-(barlam[1, p7]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                   ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))*(-((barlam[2, p4]*spa[p4, m1]*
                  (-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                       lam[2, p3])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                         (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 (((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p3]) + (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*spba[p7, {m1, p4}, m1])) + 
               (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                  ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                (((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3]) + (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*((barlam[2, p7]*(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p7]*(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))*spba[p7, {m1, p4}, m1]))^2) - 
           (10*CK*(-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                barlam[2, p7])^5*(-((barlam[2, p2]*(-(barlam[1, p3]*
                     (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))) + (barlam[1, p2]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p7]*
                    barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*lam[
                2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - ((-(barlam[1, p7]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p7])*lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*lam[
                1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - ((-(barlam[1, p7]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p7])*lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*lam[
                2, p3]*(lam[1, p2] - (lam[1, et5]*(-(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*lam[
                1, p3]*(lam[2, p2] - (lam[2, et5]*(-(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (((-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])) - (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                     barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                   (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])) - (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                     et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                     barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                   (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                  barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])))) + ((-(barlam[1, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                  spba[p7, {m1, p4}, m1]))/((-(barlam[1, p7]*barlam[2, p3]) + 
                 barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                 m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                {m1, p4}, m1])*((barlam[2, p4]*spa[p4, m1]*
                (-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                 barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*spba[p7, {m1, p4}, m1]) - 
              (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                spba[p7, {m1, p4}, m1]))*(-((barlam[2, p4]*spa[p4, m1]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, 
                  {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                  spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                 m1])))/((-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[1, p7]*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p3]))) + (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))^
              2*((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
               (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))^
              2*(-((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                 (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                        lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                     ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                      lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                       barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1])) - ((-(barlam[1, p7]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p7])*lam[2, et5]*
                   (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                  ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - ((-(barlam[1, p7]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p7])*lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p2]*
                 (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))*(-((barlam[1, p7]*barlam[2, 
                   p3] - barlam[1, p3]*barlam[2, p7])*lam[2, p3]*
                (lam[1, p2] - (lam[1, et5]*(-(lam[2, p3]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                    lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                      barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*lam[
                1, p3]*(lam[2, p2] - (lam[2, et5]*(-(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - ((-(barlam[1, p7]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p7])*lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p2] - 
                (lam[1, et5]*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - ((-(barlam[1, p7]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p7])*lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p2] - 
                (lam[2, et5]*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                   {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
           (10*CK*(-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p7])*(lam[2, p3]*(lam[1, p2] - (lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] + (lam[1, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
               (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                   {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1]) - lam[1, p3]*(lam[2, p2] - 
                (lam[2, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
               (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                   {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1]))*(lam[2, p3]*(lam[1, p7] - 
                (lam[1, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p3])) + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*(
                -((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                   {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] - 
                (lam[2, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p3])) + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*(
                -((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                   {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1]))*((barlam[2, p2]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1])) - (barlam[1, p2]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] + (lam[1, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] + (lam[1, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7] + (lam[1, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                    spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] + (lam[1, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2*
             (((barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                  spba[p7, {m1, p4}, m1])*(-(barlam[1, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                 (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])) - ((barlam[1, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])) - (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7])))/spba[p7, {m1, p4}, m1])*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] + (lam[1, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])))*
             (-(((barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1])*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))) + ((barlam[1, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1])*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] + (lam[1, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])))*((barlam[1, p4]*barlam[2, p3]*
                 spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                 barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])^5)/
            ((-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                 (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                        lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                     ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                      lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                       barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*
                 spb[m1, p7] + lam[2, p4]*spb[p4, p7] + (lam[2, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))))*((lam[2, p2]*(-((barlam[1, p4]*
                     barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*barlam[2, 
                      p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*(
                lam[1, p2] - (lam[1, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p3]))) - (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))*(lam[2, p2] - (lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7] + (lam[1, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p3]))))*((lam[2, p2] - (lam[2, et5]*(-(lam[2, p3]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
               (lam[1, p7] - (lam[1, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p3])) + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p2] - (lam[1, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
               (lam[2, p7] - (lam[2, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p3])) + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-(lam[2, p3]*(lam[1, p7] - (lam[1, et5]*(-(lam[2, p3]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                       (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                    lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                        p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                   (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3])) + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                    m1])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] - 
                (lam[2, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p3])) + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*(
                -((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                   {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1]))*(-((barlam[2, p3]*(barlam[1, p3]*
                    (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) - 
                   (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                          (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                    spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) - (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7] + (lam[1, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2*
             (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3]) - (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                          (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                    spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])*
                  spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                 (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) - (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                       (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])*
                 spba[p7, {m1, p4}, m1]))^2) - 
           (10*CK*(-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p7])^5*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                 lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                   (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                         p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                     ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                      lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                       barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1])) + (lam[1, et5]*
                   (-((lam[2, p3]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, p3]*(lam[2, p2]*
                          (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*((barlam[2, p3]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) - (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p3]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) - (barlam[2, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) - (-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                          (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*(-((barlam[1, 
                          p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1])))/((lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7] + (lam[2, et6]*
                          (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                        (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                       (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                          (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                       (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(-((barlam[2, p4]*spa[p4, m1]*
                         (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                          spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                      (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, 
                          p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                      (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) - (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                     (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))))) + 
              lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) + (lam[2, et5]*
                  (-((lam[2, p3]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, p3]*(lam[2, p2]*
                         (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*((barlam[2, p3]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) - (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p3]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) - (barlam[2, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) - (-(lam[2, p3]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                          (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                       (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(-((barlam[2, p4]*spa[p4, m1]*
                        (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                          spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                     (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(-((barlam[2, p4]*spa[p4, m1]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                    (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) + (lam[2, et5]*
                  (-((lam[2, p3]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, p3]*(lam[2, p2]*
                         (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*((barlam[2, p3]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) - (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p3]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) - (barlam[2, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) - (-(lam[2, p3]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                          (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                       (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(-((barlam[2, p4]*spa[p4, m1]*
                        (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                          spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                     (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(-((barlam[2, p4]*spa[p4, m1]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                    (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))))*(
                lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])) - (lam[1, m1]*spb[m1, p7] + 
                lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) + (lam[1, et5]*
                  (-((lam[2, p3]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, p3]*(lam[2, p2]*
                         (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*((barlam[2, p3]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) - (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p3]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) - (barlam[2, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) - (-(lam[2, p3]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                          (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                       (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(-((barlam[2, p4]*spa[p4, m1]*
                        (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                          spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                     (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(-((barlam[2, p4]*spa[p4, m1]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                    (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))))*(
                lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))*((barlam[2, p3]*
                (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
              (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                  spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (((barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                  spba[p7, {m1, p4}, m1])*(barlam[1, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                    (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))) - 
              ((barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                  spba[p7, {m1, p4}, m1])*(barlam[2, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                    (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))))*
             ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                 m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                spba[p7, {m1, p4}, m1])^2*(-((barlam[2, p4]*spa[p4, m1]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, 
                  {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                  spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, {m1, p4}, 
                 m1]))*((barlam[2, p4]*spa[p4, m1]*(barlam[1, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/(((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))*
                spba[p7, {m1, p4}, m1]) - (barlam[1, p4]*spa[p4, m1]*
                (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/(((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))*
                spba[p7, {m1, p4}, m1]))*(-((barlam[2, p4]*spa[p4, m1]*
                 (barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/(((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                   (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                    (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))*
                 spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(barlam[2, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/(((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))*
                spba[p7, {m1, p4}, m1])))/((lam[2, p3]*(lam[1, m1]*
                 spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) + (lam[1, et5]*
                  (-((lam[2, p3]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, p3]*(lam[2, p2]*
                         (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*((barlam[2, p3]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) - (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p3]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) - (barlam[2, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) - (-(lam[2, p3]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                          (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                       (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(-((barlam[2, p4]*spa[p4, m1]*
                        (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                          spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                     (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(-((barlam[2, p4]*spa[p4, m1]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                    (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))) - 
              lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) + (lam[2, et5]*
                  (-((lam[2, p3]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, p3]*(lam[2, p2]*
                         (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*((barlam[2, p3]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) - (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p3]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) - (barlam[2, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) - (-(lam[2, p3]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                          (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                       (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (lam[1, m1]*spb[m1, p7] + 
                       lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                      (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(-((barlam[2, p4]*spa[p4, m1]*
                        (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                          spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                     (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et5]*
                     (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(-((barlam[2, p4]*spa[p4, m1]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                    (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))))*
             (-(lam[2, p3]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                  ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) + lam[1, p3]*(
                lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))*
             (-((lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                  ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))*(lam[1, p3]*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*
                     spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/(((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                   (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))) + 
              (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))*(lam[2, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p2]*
                   (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                   (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                   ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))*((barlam[2, p4]*
                    spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, 
                     {m1, p4}, m1]) - (barlam[1, p4]*spa[p4, m1]*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, 
                     {m1, p4}, m1]))))*(-(lam[2, p2]*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                  {m1, p4}, m1]))*(-((barlam[2, p2]*(-(barlam[1, p3]*
                     (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                   ((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                         (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                          (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                    spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                   (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                    (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))) + 
               (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) + 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))))^2*
             ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) + 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))) - 
               (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - ((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) + 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                 (lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))))^2) - 
           (10*CK*(barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
             (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
             ((lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))*(lam[1, p2] - (lam[1, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[
                          2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*(
                (barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                   barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                      lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 (((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                       barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                   barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                      lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 (((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                       barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) - 
              (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))*(lam[2, p2] - (lam[2, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[
                          2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*(
                (barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                   barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                      lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 (((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                       barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                   barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                      lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 (((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                       barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))*
             ((lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))*(lam[1, p7] - (lam[1, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[
                          2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*(
                (barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                   barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                      lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 (((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                       barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                   barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                      lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 (((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                       barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) - 
              (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                 (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                 ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))*(lam[2, p7] - (lam[2, et5]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[
                          2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*(
                (barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                   barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                      lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 (((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                       barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                   barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                      lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 (((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                       barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))*
             (-((barlam[2, p2]*(-(((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, 
                          p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, 
                          p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p2]*
                     (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                   (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                  (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/(((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, 
                     {m1, p4}, m1])))) + (barlam[1, p2]*
                (-(((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p2]*
                    (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                  (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])))*
                (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/(((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, 
                     {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, 
                    {m1, p4}, m1]))))*((barlam[2, p3]*
                (-(((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                 (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p2]*
                    (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                  (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])))*
                (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/(((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, 
                     {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, 
                    {m1, p4}, m1]))) - (barlam[1, p3]*
                (-(((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p2]*
                    (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                  (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])))*
                (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/(((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, 
                     {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, 
                    {m1, p4}, m1]))))*(-((barlam[2, p3]*
                 (-(((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                         (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p2]*
                     (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                   (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                  (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/(((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, 
                     {m1, p4}, m1])))) + (barlam[1, p3]*
                (-(((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                 (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p2]*
                    (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                  (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1])))*
                (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/(((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, 
                     {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, 
                    {m1, p4}, m1]))))*(-((barlam[2, p7]*
                  (-(((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                          (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7] + (lam[1, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                    spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))) + 
               (barlam[1, p7]*(-(((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, 
                          p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                         (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, 
                          p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p2]*
                     (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                   (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                  (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/(((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, 
                     {m1, p4}, m1]))))^2*(-((barlam[2, p4]*spa[p4, m1]*
                  (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                    spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                    ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, 
                   {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, 
                  {m1, p4}, m1]))^5)/(((lam[2, m1]*spb[m1, p7] + 
                lam[2, p4]*spb[p4, p7] + (lam[2, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])))*(lam[1, p2]*(-((barlam[1, p4]*
                     barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*barlam[2, 
                      p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) - (-(lam[2, p3]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                         p7]))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                         p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])))*(lam[2, p2]*(-((barlam[1, p4]*
                     barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + lam[2, p3]*(-((barlam[1, p4]*barlam[2, 
                      p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (lam[2, p3]*(lam[1, p2] - (lam[1, et5]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p4]*spb[p4, p7] + (lam[2, et6]*
                       (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[
                          2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) - 
              lam[1, p3]*(lam[2, p2] - (lam[2, et5]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p4]*spb[p4, p7] + (lam[2, et6]*
                       (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[
                          2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))))))*
             ((lam[2, p2] - (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7] + (lam[2, et6]*
                       (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[
                          2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*(
                lam[1, p7] - (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7] + (lam[2, et6]*
                       (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[
                          2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p2] - (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7] + (lam[2, et6]*
                       (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[
                          2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*(
                lam[2, p7] - (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7] + (lam[2, et6]*
                       (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[
                          2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                  ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))*(lam[1, p7] - 
                 (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                        p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                         ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                     (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                   (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p7])*(lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[
                          2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                ((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/(((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, 
                    {m1, p4}, m1]) - (barlam[1, p4]*spa[p4, m1]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, 
                    {m1, p4}, m1]))) + (lam[1, p2]*(-((barlam[1, p4]*
                     barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*barlam[2, 
                      p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*(
                lam[2, p7] - (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7] + (lam[2, et6]*
                       (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                         (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[
                          2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*(
                (barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                   barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                      lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 (((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                       barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]) - 
                (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                   barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                      lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 (((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                       barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))*
             (-(((barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                    spba[p7, {m1, p4}, m1])*(((lam[2, et5]*(lam[1, p2]*
                         (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                         (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                          (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                    spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                    ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                       barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                     (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[2, p4]*spa[p4, m1]*
                      (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])))) + 
               ((barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1])*(((lam[2, et5]*(lam[1, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - lam[1, et5]*(lam[2, p2]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p2]*
                     (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                   (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                   ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                      barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                    (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[2, p4]*spa[p4, m1]*
                     (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                  (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/(((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, 
                     {m1, p4}, m1]))))^2*(-((barlam[2, p4]*spa[p4, m1]*
                  (((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                         (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                          (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                         spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                         ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                    spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                   (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))*
                  spba[p7, {m1, p4}, m1])) + (barlam[1, p4]*spa[p4, m1]*
                 (((lam[2, et5]*(lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + lam[1, p3]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - lam[1, et5]*(lam[2, p2]*
                        (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[2, p3]*
                        (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, 
                          p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                          barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                     ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) + (lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7] + (lam[1, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7] + (lam[2, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))/
                        ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                   spba[p7, {m1, p4}, m1]))/((lam[2, et5]*(lam[1, p2]*
                     (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + lam[1, p3]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                   (lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/(((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*spba[p7, {m1, p4}, m1])) + 
                  (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/(((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*spba[p7, 
                     {m1, p4}, m1]))*spba[p7, {m1, p4}, m1]))^2)))/
         ((lam[1, p6]*lam[2, p5] - lam[1, p5]*lam[2, p6])*
          ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) - 
               barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1])) + (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                  lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                      p7])))/spba[p7, {m1, p4}, m1]))/
             ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*(
                (barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                  spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                  barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
              (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*(
                -((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                   {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1])) - (barlam[1, p5]*
              (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                   lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3]) - barlam[2, p7]*(lam[2, et6]*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                    spba[p7, {m1, p4}, m1])) + (barlam[2, p4]*spa[p4, m1]*
                 (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                      p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                     spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
             ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*(
                (barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                  spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                  barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
              (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*(
                -((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                   {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1])))^2*
          (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) - 
                barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1])) + (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*
                    (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                   lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7])))/spba[p7, {m1, p4}, m1]))/
              ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
               (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                    m1])/spba[p7, {m1, p4}, m1]))) + 
            (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) - 
               barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                  lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                      p7])))/spba[p7, {m1, p4}, m1]))/
             ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*(
                (barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1]) + (lam[1, p3]*lam[2, et6] - 
                lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                  spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                  barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
              (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*(
                -((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                   {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1])))^2) + 
        (((-10*CK*(-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                barlam[2, p5])^2*(-(barlam[1, p7]*barlam[2, p2]) + 
               barlam[1, p2]*barlam[2, p7])^5*((barlam[2, p5]*
                (barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + barlam[1, p5]*(lam[2, et5]*(lam[1, p5] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + ((lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))) - (barlam[1, p5]*(barlam[2, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + (lam[1, et6]*
                       (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   lam[1, et5]*(lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                        (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))))*(-((barlam[2, p5]*
                 (barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + barlam[1, p5]*(lam[2, et5]*(lam[1, p5] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))) + (barlam[1, p5]*
                (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + ((lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))))*(-(lam[2, p3]*(lam[1, p5] + 
                 (lam[1, et5]*(-((-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(-(lam[2, p3]*
                         (lam[1, p5] + (lam[1, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))))) + lam[1, p3]*
                        (lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))) - ((barlam[2, p3]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p3]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                         lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                       ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) - ((barlam[2, p5]*
                        (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                      (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, 
                          p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                     ((lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                       ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (lam[1, p5] + 
                        (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                         ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))*((barlam[1, p5]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                        (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p3]) + ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, et5]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))) + (lam[1, et6]*
                   (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                         p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))) + lam[1, p3]*(
                lam[2, p5] + (lam[2, et5]*(-((-(barlam[1, p5]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[2, p3]*
                        (lam[1, p5] + (lam[1, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p5] + (lam[2, et6]*
                          (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p5]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))) - ((barlam[2, p3]*(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p3]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) - ((barlam[2, p5]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                     (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((lam[2, p5] + (lam[2, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p5]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (lam[1, p5] + 
                       (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                       (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3]) + ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[2, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             ((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - (barlam[1, p3]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (-(((barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                (((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3]) + ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))*
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))) + 
              ((barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + barlam[1, p5]*(lam[2, et5]*(lam[1, p5] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + ((lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             ((lam[2, p5] + (lam[2, et5]*(-((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(-(lam[2, p3]*
                        (lam[1, p5] + (lam[1, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p5] + (lam[2, et6]*
                          (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p5]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))) - ((barlam[2, p3]*(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p3]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) - ((barlam[2, p5]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                     (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((lam[2, p5] + (lam[2, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p5]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (lam[1, p5] + 
                       (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                       (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3]) + ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[2, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
              (lam[1, p5] + (lam[1, et5]*(-((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(-(lam[2, p3]*
                        (lam[1, p5] + (lam[1, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p5] + (lam[2, et6]*
                          (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p5]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))) - ((barlam[2, p3]*(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p3]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) - ((barlam[2, p5]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                     (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((lam[2, p5] + (lam[2, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p5]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (lam[1, p5] + 
                       (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                       (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3]) + ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[1, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
            ((-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p3])) - barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] + (lam[1, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                     lam[1, et5]*(lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) - ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                        (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                         lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                     (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3]) + ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))) + (barlam[1, p2]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) - ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))^2*
             ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] + (lam[1, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                    lam[1, et5]*(lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) - ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) - (barlam[1, p7]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) - ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))^2*
             (lam[2, p3]*(lam[1, p5] + (lam[1, et5]*
                  (-((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(-(lam[2, p3]*(lam[1, p5] + 
                         (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                          ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))) + lam[1, p3]*
                       (lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))) - ((barlam[2, p3]*(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p3]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) - ((barlam[2, p5]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                     (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((lam[2, p5] + (lam[2, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p5]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (lam[1, p5] + 
                       (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                       (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3]) + ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[1, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              lam[1, p3]*(lam[2, p5] + (lam[2, et5]*
                  (-((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(-(lam[2, p3]*(lam[1, p5] + 
                         (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                          ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))) + lam[1, p3]*
                       (lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))) - ((barlam[2, p3]*(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p3]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) - ((barlam[2, p5]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                     (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((lam[2, p5] + (lam[2, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p5]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (lam[1, p5] + 
                       (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                       (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3]) + ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[2, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-(lam[2, p3]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                     p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                 (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))) + lam[1, p3]*((barlam[1, p5]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1])))*(((barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                (-((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                  (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                  (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1])))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
              ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[1, p3] + (-((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                  (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                  (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                    barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1])))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
             (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                   {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
           (10*CK*(barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
             (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])^5*
             (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p3])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))^
              2*(-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                    p3]))) + (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             ((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (((-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                 barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                 barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                  barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))) + 
              ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                 barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*lam[
                2, p3]*(lam[1, p5] + (lam[1, et6]*(-((barlam[1, p3]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                       lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                   (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p5]) - (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                      lam[2, p5]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[1, et5]*(-(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))/((barlam[1, p5]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))) - (barlam[1, p7]*barlam[2, p3] - 
                barlam[1, p3]*barlam[2, p7])*lam[1, p3]*(lam[2, p5] + 
                (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[2, et5]*(-(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))/((barlam[1, p5]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))))*((barlam[1, p7]*barlam[2, p3] - 
                barlam[1, p3]*barlam[2, p7])*lam[2, p3]*(lam[1, p2] - 
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  lam[1, et5]*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]))) - (barlam[1, p7]*barlam[2, p3] - 
                barlam[1, p3]*barlam[2, p7])*lam[1, p3]*(lam[2, p2] - 
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  lam[2, et5]*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3])))))/((-((barlam[2, p3]*(barlam[1, p3]*
                    (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))) + (barlam[1, p3]*
                 (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p7]*
                    barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
               (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))^
              2*(-((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                   p7])*lam[2, p3]*(lam[1, p2] - ((barlam[1, p7]*barlam[2, 
                      p5] - barlam[1, p5]*barlam[2, p7])*lam[1, et5]*
                   (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3])))) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                 barlam[2, p7])*lam[1, p3]*(lam[2, p2] - 
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  lam[2, et5]*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]))))*((lam[1, p2] - ((barlam[1, p7]*barlam[2, 
                     p5] - barlam[1, p5]*barlam[2, p7])*lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*(
                lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                      lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                   (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                       p5]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                      barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[2, et5]*(-(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))/((barlam[1, p5]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))) - (lam[1, p5] + 
                (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[1, et5]*(-(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))/((barlam[1, p5]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])))*(lam[2, p2] - 
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  lam[2, et5]*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]))))*(-((lam[2, p5] + (lam[2, et6]*
                   (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                         p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - 
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p7])*lam[2, et5]*(-(lam[2, p3]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                    lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))/((barlam[1, p5]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])))*((barlam[1, p5]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                 (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]))) + (lam[1, p5] + 
                (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[1, et5]*(-(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))/((barlam[1, p5]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])))*((barlam[1, p5]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1])))*(-(lam[2, p3]*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                  {m1, p4}, m1]))) - (10*CK*(barlam[1, p3]*barlam[2, p2] - 
               barlam[1, p2]*barlam[2, p3])^2*(barlam[1, p7]*barlam[2, p5] - 
               barlam[1, p5]*barlam[2, p7])^5*(-(lam[2, p3]*(lam[1, p2] + 
                 (lam[1, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                        lam[2, p3])) - ((barlam[2, p2]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p2]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                         lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p2]*
                       ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) - ((barlam[2, p3]*
                        (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                          (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                         barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                      (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, 
                          p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                     (lam[2, p3]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                         lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      lam[1, p3]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                         lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                  ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p3])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p3]) + ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, et5]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))))) + lam[1, p3]*(
                lam[2, p2] + (lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                      lam[1, p2]*lam[2, p3])) - ((barlam[2, p2]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                     (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p2]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p2]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) - ((barlam[2, p3]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                     (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*
             ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/((barlam[1, p3]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))) - (barlam[1, p2]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/((barlam[1, p3]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))))*(-((barlam[2, p2]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))) + (barlam[1, p2]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + ((lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/((barlam[1, p3]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))))*((barlam[2, p2]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
              (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*((barlam[2, p3]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
              (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*(-(((barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[2, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  ((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                (((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))*
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))) + 
              ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + ((lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             ((lam[2, p2] + (lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                      lam[1, p2]*lam[2, p3])) - ((barlam[2, p2]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                     (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p2]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p2]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) - ((barlam[2, p3]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                     (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))*((barlam[1, p5]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1])) - (lam[1, p2] + 
                (lam[1, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - ((barlam[2, p2]*(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p2]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p2]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) - ((barlam[2, p3]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                     (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))*((barlam[1, p5]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))))/((lam[2, p3]*(lam[1, p2] + 
                (lam[1, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - ((barlam[2, p2]*(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p2]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p2]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) - ((barlam[2, p3]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                     (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))) - lam[1, p3]*(
                lam[2, p2] + (lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                      lam[1, p2]*lam[2, p3])) - ((barlam[2, p2]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                     (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p2]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p2]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) - ((barlam[2, p3]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                         (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                     (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*
             ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) - 
                  ((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) - (barlam[1, p5]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) - ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))^2*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3]) - 
                   ((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                         lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                         lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                     (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))) + (barlam[1, p7]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) - ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))^2*
             (-(lam[2, p3]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                     p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                 (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))) + lam[1, p3]*((barlam[1, p5]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1])))*
             (((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
                 lam[2, p3] + (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                  (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                  (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1])))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
              ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
                 lam[1, p3] + (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                  (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                  (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                    barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1])))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
             ((lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                      lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                   (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                       p5]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                      barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p5] + (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                      lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                   (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                       p5]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                      barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                  m1]))) - (10*CK*(barlam[1, p5]*barlam[2, p2] - 
              barlam[1, p2]*barlam[2, p5])*(-(barlam[1, p5]*barlam[2, p3]) + 
              barlam[1, p3]*barlam[2, p5])*(-((barlam[2, p2]*
                  (-(((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                         (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                         (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                      (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                        (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/(((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))) + (barlam[1, p2]*
                 (-(((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                         lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                         lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                     (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/(((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))))^2*((barlam[2, p3]*
                (-(((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                        lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/(((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                    lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                        p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              (barlam[1, p3]*(-(((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/(((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                    lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                        p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p3]*(-(((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                        (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                         lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                     (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/(((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))))) + (barlam[1, p3]*
                (-(((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                        lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/(((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                    lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                        p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p5]*(-(((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                        (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                         lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                     (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/(((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))))) + (barlam[1, p5]*
                (-(((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                        lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/(((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                       lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                    lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                        p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
               (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^5*
             (-((-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p7]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, p5] + 
                 (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                        lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - 
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p7])*lam[2, et5]*(-(((barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                       (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) + ((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                       lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                     barlam[2, p5])*(lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))*
                ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                      p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
              (-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])))) + (barlam[1, p7]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[1, p5] + 
                (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[1, et5]*(-(((barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                      (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))*((barlam[1, p5]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1])))*
             (-((-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p7]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, p2] - 
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   lam[2, et5]*(-(((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) + ((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                       lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                     barlam[2, p5])*(lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))*
                ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                      p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
              (-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])))) + (barlam[1, p7]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[1, p2] - 
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  lam[1, et5]*(-(((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                       lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))*((barlam[1, p5]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))))/
            (((barlam[2, p7]*(((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/(((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))) - (barlam[1, p7]*
                 (((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/(((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))))^2*
             (((((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/(((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))*((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
               ((((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/(((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                        lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))*((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))^2*
             (lam[2, p3]*(lam[1, p5] + (lam[1, et6]*(-((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                   (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p5]) - (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*
                      lam[2, p5]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[1, et5]*(-(((barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                      (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))) - lam[1, p3]*(
                lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                      lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                   (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                       p5]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                      barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[2, et5]*(-(((barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                      (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))))*
             ((lam[1, p2] - ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                    barlam[2, p7])*lam[1, et5]*(-(((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                      (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))*(lam[2, p5] + 
                (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[2, et5]*(-(((barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                      (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))) - (lam[1, p5] + 
                (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[1, et5]*(-(((barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                      (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))*(lam[2, p2] - 
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  lam[2, et5]*(-(((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                       lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))))*
             ((-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])))) + (barlam[1, p7]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[2, p2] - 
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  lam[2, et5]*(-(((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                       lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))*((barlam[1, p5]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1])) - (-((barlam[2, p7]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (barlam[1, p7]*
                  (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[1, p2] - 
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  lam[1, et5]*(-(((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                       lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))*((barlam[1, p5]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1])))*
             (-(((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                      p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                   m1])) + ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))) - 
           (10*CK*(barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])^
              5*(barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
             (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]))) + 
               (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]))) + 
              (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3])))/(
                (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
               lam[2, p3]*(lam[1, p5] - ((-(barlam[1, p7]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p7])*lam[1, et5]*(lam[1, p3]*
                    lam[2, p2] - lam[1, p2]*lam[2, p3]))/((barlam[1, p7]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
               lam[1, p3]*(-(((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                     barlam[2, p7])*lam[2, et5]*(lam[1, p3]*lam[2, p2] - 
                    lam[1, p2]*lam[2, p3]))/((barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]))) + lam[2, p5] + 
                (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))*(barlam[1, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((barlam[1, p3]*barlam[2, p2] - 
                 barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((barlam[1, p3]*barlam[2, p2] - 
                 barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]))*(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))/((barlam[1, p3]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))) + 
              ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((barlam[1, p3]*barlam[2, p2] - 
                 barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
               lam[2, p3]*(lam[1, p7] - ((barlam[1, p5]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p5])*lam[1, et5]*(lam[1, p3]*
                    lam[2, p2] - lam[1, p2]*lam[2, p3]))/((barlam[1, p7]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
               lam[1, p3]*(-(((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                     barlam[2, p5])*lam[2, et5]*(lam[1, p3]*lam[2, p2] - 
                    lam[1, p2]*lam[2, p3]))/((barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]))) + lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
            ((lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
             ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
               (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             (-((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]))) + 
               (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             (-((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p3])*lam[2, p3]*(lam[1, p5] - ((-(barlam[1, p7]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p7])*lam[1, et5]*
                   (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3])) + (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                       lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*
                        lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                        p5]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))) + (-(barlam[1, p3]*barlam[2, p2]) + 
                barlam[1, p2]*barlam[2, p3])*lam[1, p3]*(
                -(((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p7])*lam[2, et5]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                     lam[2, p3]))/((barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]))) + lam[2, p5] + 
                (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-((-(((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*lam[2, et5]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                      lam[2, p3]))/((barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]))) + lam[2, p5] + 
                 (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                        lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[1, p7] - 
                 ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                   lam[1, et5]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                      p3]))/((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                   m1])) + (lam[1, p5] - ((-(barlam[1, p7]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p7])*lam[1, et5]*(lam[1, p3]*
                    lam[2, p2] - lam[1, p2]*lam[2, p3]))/((barlam[1, p7]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                -(((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                      p5])*lam[2, et5]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                     lam[2, p3]))/((barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]))) + lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*(
                lam[1, p7] - ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p5])*lam[1, et5]*(lam[1, p3]*lam[2, p2] - 
                   lam[1, p2]*lam[2, p3]))/((barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])) + (lam[1, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]) - ((barlam[1, p5]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))*(-(((barlam[1, p5]*barlam[2, 
                      p2] - barlam[1, p2]*barlam[2, p5])*lam[2, et5]*
                   (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                  ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3]))) + lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))) - 
           (10*CK*(-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                barlam[2, p5])^5*(-(barlam[1, p7]*barlam[2, p2]) + 
              barlam[1, p2]*barlam[2, p7])*(-((barlam[2, p2]*
                 (-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3]))) + (barlam[1, p2]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                    p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                  lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p3])) - barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] + (lam[1, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                     lam[1, et5]*(lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))) + (barlam[1, p7]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*lam[
                2, p3]*(lam[1, p2] - ((barlam[1, p7]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p7])*lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, p5] + (lam[1, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p5] + (lam[2, et6]*
                       (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p3]))) - (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                 barlam[2, p5])*lam[1, p3]*(lam[2, p2] - 
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  lam[2, et5]*(-(lam[2, p3]*(lam[1, p5] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p5]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p3]*(lam[2, p5] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p7])*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]))))*
             ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (((-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))*(barlam[1, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                 barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                 barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))*(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                     lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                    barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))) + 
              ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                    lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                 barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*lam[
                2, p3]*(lam[1, p7] - ((barlam[1, p5]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p5])*lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, p5] + (lam[1, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p5] + (lam[2, et6]*
                       (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p3])) + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*lam[
                1, p3]*(lam[2, p7] - ((barlam[1, p5]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p5])*lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, p5] + (lam[1, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p5] + (lam[2, et6]*
                       (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p3])) + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
            ((-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) + barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] + (lam[1, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                     lam[1, et5]*(lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))) + (barlam[1, p3]*
                 (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             ((barlam[2, p5]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] + (lam[1, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                    lam[1, et5]*(lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])) - (barlam[1, p5]*(barlam[2, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p5]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             (-(lam[2, p3]*(lam[1, p5] + (lam[1, et6]*(-((barlam[1, p3]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                      (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                    (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                        p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                         p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                     (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                      barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[1, p3]*(lam[2, p5] + 
                (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-((lam[2, p2] - ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p7])*lam[2, et5]*(-(lam[2, p3]*(lam[1, p5] + 
                       (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p3]*(lam[2, p5] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p7])*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])))*
                ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                      p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
              (lam[1, p2] - ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                    barlam[2, p7])*lam[1, et5]*(-(lam[2, p3]*(lam[1, p5] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p3]*(lam[2, p5] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p7])*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3])))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
             (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                lam[2, p3]*(lam[1, p7] - ((barlam[1, p5]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p5])*lam[1, et5]*
                   (-(lam[2, p3]*(lam[1, p5] + (lam[1, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p5] + (lam[2, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p5]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p7])*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*lam[
                1, p3]*(lam[2, p7] - ((barlam[1, p5]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p5])*lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, p5] + (lam[1, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p5] + (lam[2, et6]*
                       (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p3])) + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((lam[2, p2] - ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                    barlam[2, p7])*lam[2, et5]*(-(lam[2, p3]*(lam[1, p5] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p3]*(lam[2, p5] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p7])*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3])))*(lam[1, p7] - 
                ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[1, et5]*(-(lam[2, p3]*(lam[1, p5] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p5]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p3]*(lam[2, p5] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p7])*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p2] - ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                    barlam[2, p7])*lam[1, et5]*(-(lam[2, p3]*(lam[1, p5] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p3]*(lam[2, p5] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p7])*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3])))*(lam[2, p7] - 
                ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[2, et5]*(-(lam[2, p3]*(lam[1, p5] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p5]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p3]*(lam[2, p5] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p7])*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
           (10*CK*(-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                p7])*(barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                p7])*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p2])) - 
                 ((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/(((barlam[2, p2]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - (barlam[1, p2]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                    lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                        p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - ((lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/(((barlam[2, p2]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - (barlam[1, p2]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                    lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                        p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                (((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))))) + (barlam[1, p3]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/(((barlam[2, p2]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - (barlam[1, p2]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                    lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                        p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - ((lam[2, et5]*
                       ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                       ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                 (((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))) + (barlam[1, p5]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                (((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))))^2*(-((barlam[2, p7]*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                (((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))))) + (barlam[1, p7]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/(((barlam[2, p2]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - (barlam[1, p2]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                    lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                        p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
               (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^5*
             (-((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, p5] - 
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p7])*lam[2, et5]*(lam[2, p2]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*
                     barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[2, et6]*
                   (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                         p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, 
                     p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                 (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
              (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])))) + (barlam[1, p2]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[1, p5] - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[1, et5]*(lam[2, p2]*((barlam[1, p5]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[1, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
             ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])))) + (barlam[1, p2]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))*(lam[1, p7] - 
                ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[1, et5]*(lam[2, p2]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[1, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]) - (-((barlam[2, p2]*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (barlam[1, p2]*
                  (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))*(lam[2, p7] - 
                ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[2, et5]*(lam[2, p2]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1])))/
            (((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                (((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))) - (barlam[1, p2]*(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  ((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                (((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))))^2*
             (((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                (((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))*((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
               ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                (((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))*((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))^2*
             (lam[2, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1])) - lam[1, p2]*((barlam[1, p5]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1])))*
             ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])))) + (barlam[1, p2]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[2, p5] - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[2, et5]*(lam[2, p2]*((barlam[1, p5]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[2, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
              (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])))) + (barlam[1, p2]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[1, p5] - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[1, et5]*(lam[2, p2]*((barlam[1, p5]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[1, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
             (lam[2, p3]*(lam[1, p7] - ((barlam[1, p5]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p5])*lam[1, et5]*(lam[2, p2]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, p2]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[1, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] - 
                ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[2, et5]*(lam[2, p2]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))*(-((lam[2, p5] - 
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p7])*lam[2, et5]*(lam[2, p2]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*
                     barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[2, et6]*
                   (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                         p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[1, p7] - 
                 ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                   lam[1, et5]*(lam[2, p2]*((barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*
                     barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[1, m1]*s[m1, p4])/
                  spba[p7, {m1, p4}, m1])) + (lam[1, p5] - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[1, et5]*(lam[2, p2]*((barlam[1, p5]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[1, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[2, p7] - ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p5])*lam[2, et5]*(lam[2, p2]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, p2]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))) - 
           (10*CK*(barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
             (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
             (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] + 
                       (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                       (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))) - ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                (((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))))) + (barlam[1, p2]*
                (-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p5]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))) - ((lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/(((barlam[2, p5]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                    lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                        p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             ((barlam[2, p3]*(-(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))) - ((lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/(((barlam[2, p5]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                    lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                        p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              (barlam[1, p3]*(-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))) - ((lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/(((barlam[2, p5]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                    lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                        p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] + 
                       (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                       (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))) - ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                (((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))))) + (barlam[1, p3]*
                (-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p5]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))) - ((lam[2, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/(((barlam[2, p5]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - (barlam[1, p5]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                   (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                    lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                        p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p7]*(-(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] + 
                        (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                         ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))) - lam[1, et5]*
                       (lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))) - ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                        (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                         lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                     (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                       (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                 (((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))) + (barlam[1, p7]*
                 (-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + (lam[1, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p5]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                     lam[1, et5]*(lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))) - ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                (((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))))^2*((barlam[2, p5]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
               (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^5*
             (-((lam[2, p2] - ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p7])*lam[2, et5]*((lam[2, p5] + (lam[2, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p5]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (lam[1, p5] + (lam[1, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p7]*
                      barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))*
                (-((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p5]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, 
                     p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                 (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]))) + (lam[1, p2] - 
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  lam[1, et5]*((lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                        (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - (lam[1, p5] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))*(-((barlam[2, p5]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (barlam[1, p5]*
                  (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1])))*
             ((-((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                     (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])))) + (barlam[1, p5]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))*(lam[1, p7] - 
                ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[1, et5]*((lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                        (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - (lam[1, p5] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[1, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]) - (-((barlam[2, p5]*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (barlam[1, p5]*
                  (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))*(lam[2, p7] - 
                ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[2, et5]*((lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                        (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - (lam[1, p5] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1])))/((lam[2, p3]*(lam[1, p2] - 
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  lam[1, et5]*((lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                        (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - (lam[1, p5] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))) - lam[1, p3]*(
                lam[2, p2] - ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                    barlam[2, p7])*lam[2, et5]*((lam[2, p5] + (lam[2, et6]*
                       (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - (lam[1, p5] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))))*
             ((barlam[2, p5]*(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                (((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))) - (barlam[1, p5]*(barlam[2, p5]*
                   (lam[2, et5]*(lam[1, p5] + (lam[1, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                    lam[1, et5]*(lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                (((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))))^2*
             (((barlam[2, p5]*(lam[2, et5]*(lam[1, p5] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p5]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                (((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))*((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
               ((barlam[1, p5]*(lam[2, et5]*(lam[1, p5] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p5]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                     lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                (((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))*((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))^2*
             ((lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                      lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                   (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                       p5]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                      barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
              (lam[1, p5] + (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                      lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                   (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                       p5]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                      barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
             ((lam[2, p2] - ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                    barlam[2, p7])*lam[2, et5]*((lam[2, p5] + (lam[2, et6]*
                       (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - (lam[1, p5] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))*(lam[1, p7] - 
                ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[1, et5]*((lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                        (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - (lam[1, p5] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[1, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]) - (lam[1, p2] - 
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  lam[1, et5]*((lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                        (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - (lam[1, p5] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))*(lam[2, p7] - 
                ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[2, et5]*((lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                        (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - (lam[1, p5] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))*
             (-((-((barlam[2, p5]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p5]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, 
                     p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                 (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]))*(lam[1, p7] - 
                 ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                   lam[1, et5]*((lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - (lam[1, p5] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p5]) - (-(barlam[1, p5]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                      (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p7])*(lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[1, m1]*s[m1, p4])/
                  spba[p7, {m1, p4}, m1])) + (-((barlam[2, p5]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                       lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (barlam[1, p5]*
                  (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                      lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))*(lam[2, p7] - 
                ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[2, et5]*((lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                        (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(-(lam[1, p5]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p5]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - (lam[1, p5] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (-(lam[1, p5]*lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(-(lam[1, p5]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p5]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                     (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                       barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))) - 
           (10*CK*(-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p5])^5*(-(barlam[1, p7]*barlam[2, p3]) + 
               barlam[1, p3]*barlam[2, p7])^2*((barlam[2, p7]*
                (barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))) - (barlam[1, p7]*(barlam[2, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))))*(-((barlam[2, p7]*
                 (barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + ((barlam[2, p7]*(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))) + (barlam[1, p7]*
                (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p5]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                     lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))))*((barlam[2, p3]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
              (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*((barlam[2, p7]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
              (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                  (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*(-(((barlam[2, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  ((lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p5]*
                   (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                  barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/(((-(barlam[1, p7]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + ((barlam[2, p7]*(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))*
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))) + 
              ((barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                      (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                        barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                    lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-(lam[2, p3]*(lam[1, p7] + (lam[1, et5]*
                   (-(((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                          barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                       (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                          barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                      (lam[2, p3]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       lam[1, p3]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                          lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - ((barlam[2, p7]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                         (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + ((barlam[1, p5]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                        (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p7]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                   ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, et5]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))) + (lam[1, m1]*s[m1, p4])/
                  spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                (lam[2, et5]*(-(((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, 
                          p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p3]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                         lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                       ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))) - (-(barlam[1, p7]*
                       barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                    (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                        (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + ((barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + ((barlam[2, p7]*(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))*(-(((barlam[1, p5]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                 (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                  lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                   barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]))*(lam[1, p7] + 
                 (lam[1, et5]*(-(((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, 
                          p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p3]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                          lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                         (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                        ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                         (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))) - (-(barlam[1, p7]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                     (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, 
                          p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                      (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, 
                          p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                     (-(((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                         (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p3]) + ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, et5]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                        lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))) + (lam[1, m1]*s[m1, p4])/
                  spba[p7, {m1, p4}, m1])) + ((barlam[1, p5]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, et5]*
                  (-(((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, 
                          p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                      (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, 
                          p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                     (lam[2, p3]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                         lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      lam[1, p3]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                         lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                        (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + ((barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + ((barlam[2, p7]*(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1])))/((-(lam[2, p2]*(lam[1, p5] + 
                 (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                        lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p5]) - (-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     (-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, p5]) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*(lam[2, p5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, p5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))) + lam[1, p2]*(
                lam[2, p5] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                      lam[1, p2]*lam[2, p3])) - (-(barlam[1, p5]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p5])*(-(lam[1, p5]*
                       lam[2, p2]) + lam[1, p2]*lam[2, p5]) - 
                   (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(-(lam[1, p5]*lam[2, p3]) + lam[1, p3]*lam[2, 
                       p5]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                      barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p7])*(lam[2, p5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p3])) - ((lam[2, et5]*
                       ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                       ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + ((barlam[2, p7]*(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))) + (barlam[1, p2]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + ((barlam[2, p7]*(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))^2*
             ((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - ((lam[2, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + ((barlam[2, p7]*(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) - (barlam[1, p5]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - ((lam[2, et5]*((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*
                        lam[2, et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + ((barlam[2, p7]*(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))^2*
             (-(lam[2, p3]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                     p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                 (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))) + lam[1, p3]*((barlam[1, p5]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1])))*(((barlam[1, p7]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p7])*lam[2, p3] + 
                (-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                         lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                  (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                    barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1])))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
              ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 lam[1, p3] + (-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p5]*
                      (lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, p5]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p5])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p5]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                  (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                   lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                    barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1])))*(
                (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                 lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
             (lam[2, p3]*(lam[1, p7] + (lam[1, et5]*
                  (-(((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, 
                          p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                      (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, 
                          p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p5]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                     (lam[2, p3]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                         lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      lam[1, p3]*((barlam[1, p5]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                         lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                          barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                        (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + ((barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + ((barlam[2, p7]*(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[1, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                (lam[2, et5]*(-(((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, 
                          p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p3]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p5]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                         lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                       ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                        (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))) - (-(barlam[1, p7]*
                       barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                    (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(((barlam[1, p5]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p5])*lam[2, p2] + 
                        (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p5])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                          p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + ((barlam[1, p5]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p5])*lam[1, p2] + 
                       (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p5])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + 
                         barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + ((barlam[2, p7]*(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p5]*(lam[1, p5]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p5]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                          lam[2, p5]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p5])*lam[1, p2] + (barlam[1, p5]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p5])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p5])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))))*
          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
            (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1])^
           5)/((lam[2, p6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
              spb[p4, p7]) - lam[1, p6]*(lam[2, m1]*spb[m1, p7] + 
             lam[2, p4]*spb[p4, p7]))*
          ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) - 
               barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                  lam[2, p5]) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1]))) - (barlam[1, p6]*(-(barlam[2, p2]*
                 (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
               barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                  lam[2, p3]) - barlam[2, p5]*(lam[1, p5]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p5]) - barlam[2, p7]*(lam[2, et6]*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                    spba[p7, {m1, p4}, m1]))))/
             ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*(
                lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
              (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*(
                lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
              (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*(
                lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^2*
          ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p2]*(lam[1, p2]*
                   lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) - 
               barlam[1, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                  lam[2, p5]) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))))/(((-(barlam[1, p5]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                 barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1])))*spba[p7, {m1, p4}, m1]) - 
            (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p2]*(lam[1, p2]*
                   lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) - 
               barlam[2, p5]*(lam[1, p5]*lam[2, et6] - lam[1, et6]*
                  lam[2, p5]) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))))/(((-(barlam[1, p5]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                 barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                 barlam[1, p5]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1])))*spba[p7, {m1, p4}, m1]))^2) + 
        (((-10*CK*(-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                barlam[2, p6])^2*(-(barlam[1, p7]*barlam[2, p2]) + 
               barlam[1, p2]*barlam[2, p7])^5*((barlam[2, p6]*
                (barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + barlam[1, p6]*(lam[2, et5]*(lam[1, p6] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + ((lam[2, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))) - (barlam[1, p6]*(barlam[2, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[2, p6]*(lam[2, et5]*(lam[1, p6] + (lam[1, et6]*
                       (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   lam[1, et5]*(lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                        (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + ((lam[2, et5]*((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))))*(-((barlam[2, p6]*
                 (barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + barlam[1, p6]*(lam[2, et5]*(lam[1, p6] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + ((lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))) + (barlam[1, p6]*
                (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + barlam[2, p6]*(lam[2, et5]*(lam[1, p6] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + ((lam[2, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))))*(-(lam[2, p3]*(lam[1, p6] + 
                 (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(-(lam[2, p3]*
                         (lam[1, p6] + (lam[1, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                          barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))))) + lam[1, p3]*
                        (lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                          barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))) - ((barlam[2, p3]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p3]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p6]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                         lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                       ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) - ((barlam[2, p6]*
                        (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                      (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                     ((lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                       ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (lam[1, p6] + 
                        (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                         ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))*((barlam[1, p6]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                  ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p3]) + ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, et5]*((barlam[1, p6]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                        lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))) + (lam[1, et6]*
                   (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                         p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))) + lam[1, p3]*(
                lam[2, p6] + (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, 
                         p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[2, p3]*
                        (lam[1, p6] + (lam[1, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                          barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p6] + (lam[2, et6]*
                          (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))) - ((barlam[2, p3]*(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p3]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p6]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                        lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) - ((barlam[2, p6]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                     (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((lam[2, p6] + (lam[2, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (lam[1, p6] + 
                       (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3]) + ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[2, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             ((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - (barlam[1, p3]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (-(((barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + barlam[2, p6]*(lam[2, et5]*(lam[1, p6] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + ((lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                (((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3]) + ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))*
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))) + 
              ((barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + barlam[1, p6]*(lam[2, et5]*(lam[1, p6] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + ((lam[2, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             ((lam[2, p6] + (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(-(lam[2, p3]*
                        (lam[1, p6] + (lam[1, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                          barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p6] + (lam[2, et6]*
                          (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))) - ((barlam[2, p3]*(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p3]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p6]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                        lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) - ((barlam[2, p6]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                     (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((lam[2, p6] + (lam[2, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (lam[1, p6] + 
                       (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3]) + ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[2, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                     p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
              (lam[1, p6] + (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(-(lam[2, p3]*
                        (lam[1, p6] + (lam[1, et6]*(-((barlam[1, p3]*barlam[
                          2, p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                          barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p6] + (lam[2, et6]*
                          (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))) - ((barlam[2, p3]*(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p3]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p6]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                        lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) - ((barlam[2, p6]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                     (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((lam[2, p6] + (lam[2, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (lam[1, p6] + 
                       (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3]) + ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[1, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                     p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
            ((-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p3])) - barlam[1, p6]*(lam[2, et5]*
                      (lam[1, p6] + (lam[1, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                     lam[1, et5]*(lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) - ((lam[2, et5]*((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                     (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3]) + ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))) + (barlam[1, p2]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) - ((lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))^2*
             ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - barlam[1, p6]*(lam[2, et5]*
                     (lam[1, p6] + (lam[1, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                    lam[1, et5]*(lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) - ((lam[2, et5]*((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) - (barlam[1, p7]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) - ((lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))^2*
             (lam[2, p3]*(lam[1, p6] + (lam[1, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(-(lam[2, p3]*(lam[1, p6] + 
                         (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                          ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))) + lam[1, p3]*
                       (lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))) - ((barlam[2, p3]*(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p3]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p6]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                        lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) - ((barlam[2, p6]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                     (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((lam[2, p6] + (lam[2, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (lam[1, p6] + 
                       (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3]) + ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[1, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              lam[1, p3]*(lam[2, p6] + (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(-(lam[2, p3]*(lam[1, p6] + 
                         (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                          ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))) + lam[1, p3]*
                       (lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))) - ((barlam[2, p3]*(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p3]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p6]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                        lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) - ((barlam[2, p6]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                     (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((lam[2, p6] + (lam[2, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (lam[1, p6] + 
                       (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3]) + ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[2, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-(lam[2, p3]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                     p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                 (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))) + lam[1, p3]*((barlam[1, p6]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1])))*(((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                (-((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                  (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1])))*(
                (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                     p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
              ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[1, p3] + (-((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                  (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                    barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1])))*(
                (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                     p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
             (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                   {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
           (10*CK*(barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
             (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])^5*
             (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p3])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))^
              2*(-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                    p3]))) + (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (((-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))*(barlam[1, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                 barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                 barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                  barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))) + 
              ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                 barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*lam[
                2, p3]*(lam[1, p6] + (lam[1, et6]*(-((barlam[1, p3]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                       lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[1, et5]*(-(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))/((barlam[1, p6]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))) - (barlam[1, p7]*barlam[2, p3] - 
                barlam[1, p3]*barlam[2, p7])*lam[1, p3]*(lam[2, p6] + 
                (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[2, et5]*(-(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))/((barlam[1, p6]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))))*((barlam[1, p7]*barlam[2, p3] - 
                barlam[1, p3]*barlam[2, p7])*lam[2, p3]*(lam[1, p2] - 
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  lam[1, et5]*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]))) - (barlam[1, p7]*barlam[2, p3] - 
                barlam[1, p3]*barlam[2, p7])*lam[1, p3]*(lam[2, p2] - 
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  lam[2, et5]*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3])))))/((-((barlam[2, p3]*(barlam[1, p3]*
                    (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))) + (barlam[1, p3]*
                 (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p7]*
                    barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
               (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))^
              2*(-((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                   p7])*lam[2, p3]*(lam[1, p2] - ((barlam[1, p7]*barlam[2, 
                      p6] - barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                   (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                  ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3])))) + (barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                 barlam[2, p7])*lam[1, p3]*(lam[2, p2] - 
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  lam[2, et5]*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]))))*((lam[1, p2] - ((barlam[1, p7]*barlam[2, 
                     p6] - barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*(
                lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                      lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                       p6]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                      barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[2, et5]*(-(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))/((barlam[1, p6]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))) - (lam[1, p6] + 
                (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[1, et5]*(-(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))/((barlam[1, p6]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])))*(lam[2, p2] - 
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  lam[2, et5]*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])))/((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]))))*(-((lam[2, p6] + (lam[2, et6]*
                   (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                         p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - 
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p7])*lam[2, et5]*(-(lam[2, p3]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                    lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))/((barlam[1, p6]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])))*((barlam[1, p6]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                 (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]))) + (lam[1, p6] + 
                (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[1, et5]*(-(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])))/((barlam[1, p6]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])))*((barlam[1, p6]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1])))*(-(lam[2, p3]*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                  {m1, p4}, m1]))) - (10*CK*(barlam[1, p3]*barlam[2, p2] - 
               barlam[1, p2]*barlam[2, p3])^2*(barlam[1, p7]*barlam[2, p6] - 
               barlam[1, p6]*barlam[2, p7])^5*(-(lam[2, p3]*(lam[1, p2] + 
                 (lam[1, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                        lam[2, p3])) - ((barlam[2, p2]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p2]*((barlam[1, p6]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                         lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p2]*
                       ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) - ((barlam[2, p3]*
                        (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                         barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                      (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                     (lam[2, p3]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      lam[1, p3]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                  ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p3])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p3]) + ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, et5]*((barlam[1, p6]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                        lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))))) + lam[1, p3]*(
                lam[2, p2] + (lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                      lam[1, p2]*lam[2, p3])) - ((barlam[2, p2]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                     (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p2]*((barlam[1, p6]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                        lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p2]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) - ((barlam[2, p3]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                     (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p6]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                        lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*
             ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/((barlam[1, p3]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))) - (barlam[1, p2]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + ((lam[2, et5]*((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/((barlam[1, p3]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))))*(-((barlam[2, p2]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + ((lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))) + (barlam[1, p2]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + ((lam[2, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/((barlam[1, p3]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))))*((barlam[2, p2]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
              (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*((barlam[2, p3]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
              (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*(-(((barlam[2, p2]*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[2, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  ((lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                (((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))*
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))) + 
              ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + ((lam[2, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             ((lam[2, p2] + (lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                      lam[1, p2]*lam[2, p3])) - ((barlam[2, p2]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                     (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p2]*((barlam[1, p6]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                        lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p2]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) - ((barlam[2, p3]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                     (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p6]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                        lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))*((barlam[1, p6]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1])) - (lam[1, p2] + 
                (lam[1, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - ((barlam[2, p2]*(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p2]*((barlam[1, p6]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                        lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p2]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) - ((barlam[2, p3]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                     (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p6]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                        lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))*((barlam[1, p6]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))))/((lam[2, p3]*(lam[1, p2] + 
                (lam[1, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - ((barlam[2, p2]*(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p2]*((barlam[1, p6]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                        lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p2]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) - ((barlam[2, p3]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                     (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p6]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                        lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))) - lam[1, p3]*(
                lam[2, p2] + (lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                      lam[1, p2]*lam[2, p3])) - ((barlam[2, p2]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                     (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p2]*((barlam[1, p6]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                        lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p2]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) - ((barlam[2, p3]*
                       (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                     (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p6]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                        lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))))*
             ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) - 
                  ((lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) - (barlam[1, p6]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) - ((lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))^2*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3]) - 
                   ((lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                     (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))) + (barlam[1, p7]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) - ((lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))^2*
             (-(lam[2, p3]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                     p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                 (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))) + lam[1, p3]*((barlam[1, p6]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1])))*
             (((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
                 lam[2, p3] + (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                  (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1])))*(
                (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                     p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
              ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
                 lam[1, p3] + (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                  (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                    barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1])))*(
                (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                     p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
             ((lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                      lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                       p6]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                      barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p6] + (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                      lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                       p6]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                      barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                  m1]))) - (10*CK*(barlam[1, p6]*barlam[2, p2] - 
              barlam[1, p2]*barlam[2, p6])*(-(barlam[1, p6]*barlam[2, p3]) + 
              barlam[1, p3]*barlam[2, p6])*(-((barlam[2, p2]*
                  (-(((lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                      (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                        barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/(((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))) + (barlam[1, p2]*
                 (-(((lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                     (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/(((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))))^2*((barlam[2, p3]*
                (-(((lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/(((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                    lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                        p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              (barlam[1, p3]*(-(((lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/(((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                    lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                        p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p3]*(-(((lam[2, et5]*((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                     (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/(((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))))) + (barlam[1, p3]*
                (-(((lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/(((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                    lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                        p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p6]*(-(((lam[2, et5]*((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                     (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/(((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))))) + (barlam[1, p6]*
                (-(((lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/(((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                    lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                        p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
               (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^5*
             (-((-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p7]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, p6] + 
                 (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                        lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - 
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p7])*lam[2, et5]*(-(((barlam[1, p6]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) + ((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                       lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                     barlam[2, p6])*(lam[2, et5]*((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))*
                ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
              (-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])))) + (barlam[1, p7]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[1, p6] + 
                (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[1, et5]*(-(((barlam[1, p6]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))*((barlam[1, p6]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1])))*
             (-((-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p7]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, p2] - 
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   lam[2, et5]*(-(((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) + ((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                       lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                     barlam[2, p6])*(lam[2, et5]*((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))*
                ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
              (-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])))) + (barlam[1, p7]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[1, p2] - 
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  lam[1, et5]*(-(((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                       lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))*((barlam[1, p6]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))))/
            (((barlam[2, p7]*(((lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/(((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))) - (barlam[1, p7]*
                 (((lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/(((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))))^2*
             (((((lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/(((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))*((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
               ((((lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/(((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, et5]*
                   ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))*((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))^2*
             (lam[2, p3]*(lam[1, p6] + (lam[1, et6]*(-((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                       p6]) - (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                      lam[2, p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[1, et5]*(-(((barlam[1, p6]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))) - lam[1, p3]*(
                lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                      lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                       p6]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                      barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[2, et5]*(-(((barlam[1, p6]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))))*
             ((lam[1, p2] - ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                    barlam[2, p7])*lam[1, et5]*(-(((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))*(lam[2, p6] + 
                (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[2, et5]*(-(((barlam[1, p6]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))) - (lam[1, p6] + 
                (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[1, et5]*(-(((barlam[1, p6]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))*(lam[2, p2] - 
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  lam[2, et5]*(-(((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                       lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))))*
             ((-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])))) + (barlam[1, p7]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[2, p2] - 
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  lam[2, et5]*(-(((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                       lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))*((barlam[1, p6]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1])) - (-((barlam[2, p7]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (barlam[1, p7]*
                  (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[1, p2] - 
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  lam[1, et5]*(-(((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                       lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) + ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                 ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))*((barlam[1, p6]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1])))*
             (-(((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                   m1])) + ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))) - 
           (10*CK*(barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])^
              5*(barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
             (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]))) + 
               (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]))) + 
              (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3])))/(
                (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
               lam[2, p3]*(lam[1, p6] - ((-(barlam[1, p7]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p7])*lam[1, et5]*(lam[1, p3]*
                    lam[2, p2] - lam[1, p2]*lam[2, p3]))/((barlam[1, p7]*
                    barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
               lam[1, p3]*(-(((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                     barlam[2, p7])*lam[2, et5]*(lam[1, p3]*lam[2, p2] - 
                    lam[1, p2]*lam[2, p3]))/((barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]))) + lam[2, p6] + 
                (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))*(barlam[1, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((barlam[1, p3]*barlam[2, p2] - 
                 barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((barlam[1, p3]*barlam[2, p2] - 
                 barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]))*(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))/((barlam[1, p3]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))) + 
              ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((barlam[1, p3]*barlam[2, p2] - 
                 barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
               lam[2, p3]*(lam[1, p7] - ((barlam[1, p6]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p6])*lam[1, et5]*(lam[1, p3]*
                    lam[2, p2] - lam[1, p2]*lam[2, p3]))/((barlam[1, p7]*
                    barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
               lam[1, p3]*(-(((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                     barlam[2, p6])*lam[2, et5]*(lam[1, p3]*lam[2, p2] - 
                    lam[1, p2]*lam[2, p3]))/((barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]))) + lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
            ((lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
             ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
               (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             (-((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]))) + 
               (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             (-((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p3])*lam[2, p3]*(lam[1, p6] - ((-(barlam[1, p7]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p7])*lam[1, et5]*
                   (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                  ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                      p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3])) + (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                       lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                        lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                        p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))) + (-(barlam[1, p3]*barlam[2, p2]) + 
                barlam[1, p2]*barlam[2, p3])*lam[1, p3]*(
                -(((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p7])*lam[2, et5]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                     lam[2, p3]))/((barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]))) + lam[2, p6] + 
                (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-((-(((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*lam[2, et5]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                      lam[2, p3]))/((barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]))) + lam[2, p6] + 
                 (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                        lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[1, p7] - 
                 ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                   lam[1, et5]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                      p3]))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                     barlam[2, p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                   m1])) + (lam[1, p6] - ((-(barlam[1, p7]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p7])*lam[1, et5]*(lam[1, p3]*
                    lam[2, p2] - lam[1, p2]*lam[2, p3]))/((barlam[1, p7]*
                    barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                -(((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                      p6])*lam[2, et5]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                     lam[2, p3]))/((barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]))) + lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                     p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*(
                lam[1, p7] - ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p6])*lam[1, et5]*(lam[1, p3]*lam[2, p2] - 
                   lam[1, p2]*lam[2, p3]))/((barlam[1, p7]*barlam[2, p6] - 
                   barlam[1, p6]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])) + (lam[1, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]) - ((barlam[1, p6]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))*(-(((barlam[1, p6]*barlam[2, 
                      p2] - barlam[1, p2]*barlam[2, p6])*lam[2, et5]*
                   (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                  ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                      p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3]))) + lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                barlam[2, p6])^5*(-(barlam[1, p7]*barlam[2, p2]) + 
              barlam[1, p2]*barlam[2, p7])*(-((barlam[2, p2]*
                 (-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[1, p6]*(lam[2, et5]*(lam[1, p6] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3]))) + (barlam[1, p2]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                    p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                  lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p3])) - barlam[1, p6]*(lam[2, et5]*
                      (lam[1, p6] + (lam[1, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                     lam[1, et5]*(lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))) + (barlam[1, p7]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*lam[
                2, p3]*(lam[1, p2] - ((barlam[1, p7]*barlam[2, p6] - 
                   barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, p6] + (lam[1, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p6] + (lam[2, et6]*
                       (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p3]))) - (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                 barlam[2, p6])*lam[1, p3]*(lam[2, p2] - 
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  lam[2, et5]*(-(lam[2, p3]*(lam[1, p6] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p3]*(lam[2, p6] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p7])*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]))))*
             ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (((-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))*(barlam[1, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                 barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[1, p6]*(lam[2, et5]*(lam[1, p6] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                 barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))*(barlam[1, p2]*(lam[1, p2]*
                     lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                    barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))) + 
              ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[1, p6]*(lam[2, et5]*(lam[1, p6] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                    lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                 barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*lam[
                2, p3]*(lam[1, p7] - ((barlam[1, p6]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p6])*lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, p6] + (lam[1, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p6] + (lam[2, et6]*
                       (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p3])) + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*lam[
                1, p3]*(lam[2, p7] - ((barlam[1, p6]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p6])*lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, p6] + (lam[1, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p6] + (lam[2, et6]*
                       (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p3])) + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
            ((-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) + barlam[1, p6]*(lam[2, et5]*
                      (lam[1, p6] + (lam[1, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                     lam[1, et5]*(lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))) + (barlam[1, p3]*
                 (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + barlam[2, p6]*(lam[2, et5]*(lam[1, p6] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             ((barlam[2, p6]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + barlam[1, p6]*(lam[2, et5]*
                     (lam[1, p6] + (lam[1, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                    lam[1, et5]*(lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])) - (barlam[1, p6]*(barlam[2, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  barlam[2, p6]*(lam[2, et5]*(lam[1, p6] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             (-(lam[2, p3]*(lam[1, p6] + (lam[1, et6]*(-((barlam[1, p3]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                      (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                    (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                        p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                     (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[1, p3]*(lam[2, p6] + 
                (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                       lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-((lam[2, p2] - ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                     barlam[2, p7])*lam[2, et5]*(-(lam[2, p3]*(lam[1, p6] + 
                       (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p3]*(lam[2, p6] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p7])*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])))*
                ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
              (lam[1, p2] - ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                    barlam[2, p7])*lam[1, et5]*(-(lam[2, p3]*(lam[1, p6] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p3]*(lam[2, p6] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p7])*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3])))*(
                (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                     p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
             (-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                lam[2, p3]*(lam[1, p7] - ((barlam[1, p6]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p6])*lam[1, et5]*
                   (-(lam[2, p3]*(lam[1, p6] + (lam[1, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p6] + (lam[2, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p7])*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*lam[
                1, p3]*(lam[2, p7] - ((barlam[1, p6]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p6])*lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, p6] + (lam[1, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p6] + (lam[2, et6]*
                       (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p3])) + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((lam[2, p2] - ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                    barlam[2, p7])*lam[2, et5]*(-(lam[2, p3]*(lam[1, p6] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p3]*(lam[2, p6] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p7])*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3])))*(lam[1, p7] - 
                ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  lam[1, et5]*(-(lam[2, p3]*(lam[1, p6] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p3]*(lam[2, p6] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p7])*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p2] - ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                    barlam[2, p7])*lam[1, et5]*(-(lam[2, p3]*(lam[1, p6] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p3]*(lam[2, p6] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p7])*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3])))*(lam[2, p7] - 
                ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  lam[2, et5]*(-(lam[2, p3]*(lam[1, p6] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p3]*(lam[2, p6] + 
                     (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((-(barlam[1, p7]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p7])*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
           (10*CK*(-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                p7])*(barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                p7])*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p2])) - 
                 ((lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/(((barlam[2, p2]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - (barlam[1, p2]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                    lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                        p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - ((lam[2, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/(((barlam[2, p2]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - (barlam[1, p2]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                    lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                        p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - ((lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                (((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))))) + (barlam[1, p3]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - ((lam[2, et5]*((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/(((barlam[2, p2]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - (barlam[1, p2]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                    lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                        p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - ((lam[2, et5]*
                       ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                       ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                 (((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))) + (barlam[1, p6]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - ((lam[2, et5]*((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                (((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))))^2*(-((barlam[2, p7]*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - ((lam[2, et5]*((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                (((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))))) + (barlam[1, p7]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - ((lam[2, et5]*((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/(((barlam[2, p2]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - (barlam[1, p2]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                    lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                        p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
               (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^5*
             (-((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p2]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, p6] - 
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p7])*lam[2, et5]*(lam[2, p2]*((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, p2]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*
                     barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[2, et6]*
                   (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                         p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, 
                     p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                 (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
              (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])))) + (barlam[1, p2]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[1, p6] - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[1, et5]*(lam[2, p2]*((barlam[1, p6]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, p2]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[1, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                     p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
             ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])))) + (barlam[1, p2]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))*(lam[1, p7] - 
                ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  lam[1, et5]*(lam[2, p2]*((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, p2]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[1, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]) - (-((barlam[2, p2]*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (barlam[1, p2]*
                  (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))*(lam[2, p7] - 
                ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  lam[2, et5]*(lam[2, p2]*((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, p2]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1])))/
            (((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + ((lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                (((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))) - (barlam[1, p2]*(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  ((lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                (((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))))^2*
             (((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + ((lam[2, et5]*((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                (((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))*((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
               ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + ((lam[2, et5]*((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                (((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))*((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))^2*
             (lam[2, p2]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1])) - lam[1, p2]*((barlam[1, p6]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1])))*
             ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])))) + (barlam[1, p2]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[2, p6] - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[2, et5]*(lam[2, p2]*((barlam[1, p6]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, p2]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[2, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                     p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
              (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])))) + (barlam[1, p2]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*(lam[1, p6] - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[1, et5]*(lam[2, p2]*((barlam[1, p6]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, p2]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[1, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                     p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
             (lam[2, p3]*(lam[1, p7] - ((barlam[1, p6]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p6])*lam[1, et5]*(lam[2, p2]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, p2]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[1, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] - 
                ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  lam[2, et5]*(lam[2, p2]*((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, p2]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))*(-((lam[2, p6] - 
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p7])*lam[2, et5]*(lam[2, p2]*((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, p2]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*
                     barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[2, et6]*
                   (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                         p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[1, p7] - 
                 ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                   lam[1, et5]*(lam[2, p2]*((barlam[1, p6]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, p2]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*
                     barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[1, m1]*s[m1, p4])/
                  spba[p7, {m1, p4}, m1])) + (lam[1, p6] - 
                ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*lam[1, et5]*(lam[2, p2]*((barlam[1, p6]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, p2]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[1, et6]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                     lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                   (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[2, p7] - ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p6])*lam[2, et5]*(lam[2, p2]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, p2]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((barlam[1, p7]*barlam[2, 
                     p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))) - 
           (10*CK*(barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
             (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
             (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[2, et5]*(lam[1, p6] + 
                       (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] + 
                       (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))) - ((lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                (((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))))) + (barlam[1, p2]*
                (-(barlam[2, p6]*(lam[2, et5]*(lam[1, p6] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))) - ((lam[2, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/(((barlam[2, p6]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - (barlam[1, p6]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                    lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                        p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             ((barlam[2, p3]*(-(barlam[1, p6]*(lam[2, et5]*(lam[1, p6] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))) - ((lam[2, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/(((barlam[2, p6]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - (barlam[1, p6]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                    lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                        p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              (barlam[1, p3]*(-(barlam[2, p6]*(lam[2, et5]*(lam[1, p6] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))) - ((lam[2, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/(((barlam[2, p6]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - (barlam[1, p6]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                    lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                        p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[2, et5]*(lam[1, p6] + 
                       (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] + 
                       (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))) - ((lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                (((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))))) + (barlam[1, p3]*
                (-(barlam[2, p6]*(lam[2, et5]*(lam[1, p6] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))) - ((lam[2, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))/(((barlam[2, p6]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - (barlam[1, p6]*
                   (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*(lam[2, et5]*
                  ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                    lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                        p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p7]*(-(barlam[1, p6]*(lam[2, et5]*(lam[1, p6] + 
                        (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, 
                          p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                         ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                          barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))) - lam[1, et5]*
                       (lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))) - ((lam[2, et5]*((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                     (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                 (((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))) + (barlam[1, p7]*
                 (-(barlam[2, p6]*(lam[2, et5]*(lam[1, p6] + (lam[1, et6]*
                         (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                     lam[1, et5]*(lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                          (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                          (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                          (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))) - ((lam[2, et5]*((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                (((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))))^2*((barlam[2, p6]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
               (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^5*
             (-((lam[2, p2] - ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                     barlam[2, p7])*lam[2, et5]*((lam[2, p6] + (lam[2, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (lam[1, p6] + (lam[1, et6]*(-((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p7]*
                      barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                   (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))))*
                (-((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p6]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, 
                     p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                 (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]))) + (lam[1, p2] - 
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  lam[1, et5]*((lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                        (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - (lam[1, p6] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))*(-((barlam[2, p6]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (barlam[1, p6]*
                  (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1])))*
             ((-((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                      barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])))) + (barlam[1, p6]*(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                   barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))*(lam[1, p7] - 
                ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  lam[1, et5]*((lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                        (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - (lam[1, p6] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[1, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]) - (-((barlam[2, p6]*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (barlam[1, p6]*
                  (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))*(lam[2, p7] - 
                ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  lam[2, et5]*((lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                        (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - (lam[1, p6] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1])))/((lam[2, p3]*(lam[1, p2] - 
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  lam[1, et5]*((lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                        (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - (lam[1, p6] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))) - lam[1, p3]*(
                lam[2, p2] - ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                    barlam[2, p7])*lam[2, et5]*((lam[2, p6] + (lam[2, et6]*
                       (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - (lam[1, p6] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))))*
             ((barlam[2, p6]*(barlam[1, p6]*(lam[2, et5]*(lam[1, p6] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + ((lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                (((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))) - (barlam[1, p6]*(barlam[2, p6]*
                   (lam[2, et5]*(lam[1, p6] + (lam[1, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                    lam[1, et5]*(lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + ((lam[2, et5]*((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))/
                (((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))))^2*
             (((barlam[2, p6]*(lam[2, et5]*(lam[1, p6] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + ((lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                (((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))*((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
               ((barlam[1, p6]*(lam[2, et5]*(lam[1, p6] + (lam[1, et6]*
                        (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                          p6]) - (-(barlam[1, p7]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] + 
                      (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + ((lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                (((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p6]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))*((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))^2*
             ((lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                      lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                       p6]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                      barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                     p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
              (lam[1, p6] + (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                      lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                       p6]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                      barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                     p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
             ((lam[2, p2] - ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                    barlam[2, p7])*lam[2, et5]*((lam[2, p6] + (lam[2, et6]*
                       (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - (lam[1, p6] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))*(lam[1, p7] - 
                ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  lam[1, et5]*((lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                        (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - (lam[1, p6] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[1, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]) - (lam[1, p2] - 
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  lam[1, et5]*((lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                        (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - (lam[1, p6] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))*(lam[2, p7] - 
                ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  lam[2, et5]*((lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                        (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - (lam[1, p6] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))*
             (-((-((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) + (barlam[1, p6]*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, 
                     p2] - barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                 (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]))*(lam[1, p7] - 
                 ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                   lam[1, et5]*((lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                         (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                         (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                          (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - (lam[1, p6] + 
                      (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, 
                          p6]) - (-(barlam[1, p6]*barlam[2, p3]) + 
                          barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                          (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                         (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p7])*(lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - 
                        barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[1, m1]*s[m1, p4])/
                  spba[p7, {m1, p4}, m1])) + (-((barlam[2, p6]*
                   (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (barlam[1, p6]*
                  (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, 
                    p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))*(lam[2, p7] - 
                ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  lam[2, et5]*((lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                        (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p2]) + 
                          lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                        (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p7])*
                         (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - (lam[1, p6] + 
                     (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (-(lam[1, p6]*lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6]) - (-(barlam[1, p7]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                        (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                          lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p7])*(lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p6])^5*(-(barlam[1, p7]*barlam[2, p3]) + 
               barlam[1, p3]*barlam[2, p7])^2*((barlam[2, p7]*
                (barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + ((lam[2, et5]*((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))) - (barlam[1, p7]*(barlam[2, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))))*(-((barlam[2, p7]*
                 (barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + ((lam[2, et5]*((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + ((barlam[2, p7]*(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))) + (barlam[1, p7]*
                (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + ((lam[2, et5]*((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                       barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])) - lam[1, et5]*((barlam[1, p6]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                     lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1])))))*((barlam[2, p3]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
              (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*((barlam[2, p7]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
              (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                 barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*(-(((barlam[2, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  ((lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[
                          2, p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[2, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                  barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/(((-(barlam[1, p7]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + ((barlam[2, p7]*(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))*
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))))) + 
              ((barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + ((lam[2, et5]*((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                    lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                    lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))*
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                 (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-(lam[2, p3]*(lam[1, p7] + (lam[1, et5]*
                   (-(((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]) + barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                          barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                       (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]) + barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                          barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                      (lam[2, p3]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                          lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                       lam[1, p3]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                          lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - ((barlam[2, p7]*(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                         (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + ((barlam[1, p6]*barlam[2, p2] - 
                          barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p7]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                   ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, et5]*((barlam[1, p6]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                        lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))) + (lam[1, m1]*s[m1, p4])/
                  spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                (lam[2, et5]*(-(((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, 
                          p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p3]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p6]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                         lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                       ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))) - (-(barlam[1, p7]*
                       barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                    (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + ((barlam[1, p6]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + ((barlam[2, p7]*(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))*(-(((barlam[1, p6]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                 (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1]))*(lam[1, p7] + 
                 (lam[1, et5]*(-(((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, 
                          p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p3]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                          barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                         (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p6]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                          lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                        ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))) - (-(barlam[1, p7]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                     (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                      (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                     (-(((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                         (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p3]) + ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, et5]*((barlam[1, p6]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                        lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))) + (lam[1, m1]*s[m1, p4])/
                  spba[p7, {m1, p4}, m1])) + ((barlam[1, p6]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, et5]*
                  (-(((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                      (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                     (lam[2, p3]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      lam[1, p3]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + ((barlam[1, p6]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + ((barlam[2, p7]*(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1])))/((-(lam[2, p2]*(lam[1, p6] + 
                 (lam[1, et6]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                        lam[2, p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*lam[2, 
                         p2]) + lam[1, p2]*lam[2, p6]) - (-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]) - 
                    (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, p6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))) + lam[1, p2]*(
                lam[2, p6] + (lam[2, et6]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                      lam[1, p2]*lam[2, p3])) - (-(barlam[1, p6]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p6])*(-(lam[1, p6]*
                       lam[2, p2]) + lam[1, p2]*lam[2, p6]) - 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, 
                       p6]) - (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                      barlam[2, p7])*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - (-(barlam[1, p7]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                     lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, p6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p3])) - ((lam[2, et5]*
                       ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                       ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + ((barlam[2, p7]*(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))))) + (barlam[1, p2]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - ((lam[2, et5]*((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + ((barlam[2, p7]*(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))^2*
             ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - ((lam[2, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                      ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                       (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))*(barlam[1, p2]*
                      (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + ((barlam[2, p7]*(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))) - (barlam[1, p6]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - ((lam[2, et5]*((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                     lam[1, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                    (barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                   ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                        p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + ((barlam[2, p7]*(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                  (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                    ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))))^2*
             (-(lam[2, p3]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                     p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                 (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))) + lam[1, p3]*((barlam[1, p6]*
                   barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1])))*(((barlam[1, p7]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p7])*lam[2, p3] + 
                (-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1])))*(
                (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                     p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
              ((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                 lam[1, p3] + (-((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                    ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                         p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
                  (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                    (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                       barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*((barlam[1, p6]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                  (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                   lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                    barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1])))*(
                (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                 lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                     p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
             (lam[2, p3]*(lam[1, p7] + (lam[1, et5]*
                  (-(((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[1, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                      (barlam[1, p3]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + barlam[2, 
                          p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6]) + barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, 
                          p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                     (lam[2, p3]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                      lam[1, p3]*((barlam[1, p6]*barlam[2, p2] - barlam[1, 
                          p2]*barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                         lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                          barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + ((barlam[1, p6]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + ((barlam[2, p7]*(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[1, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                (lam[2, et5]*(-(((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]) + barlam[1, 
                          p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p3]*(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                         barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[
                          2, p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(lam[2, p3]*((barlam[1, p6]*
                          barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                         lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) - lam[1, p3]*
                       ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                          barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                        (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))) - (-(barlam[1, p7]*
                       barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                    (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   ((barlam[2, p7]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (barlam[1, p7]*(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                        barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))*(-(((barlam[1, p6]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p6])*lam[2, p2] + 
                        (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[
                          2, p6])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + ((barlam[1, p6]*barlam[2, p2] - 
                         barlam[1, p2]*barlam[2, p6])*lam[1, p2] + 
                       (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + 
                         barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))))/((-(barlam[1, p7]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + ((barlam[2, p7]*(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]) + barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (barlam[1, p7]*(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]) + barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*
                         barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                   (lam[2, et5]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                         barlam[2, p6])*lam[1, p2] + (barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) - lam[1, et5]*
                     ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])))) + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))))*
          ((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
            (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1])^
           5)/((lam[2, p5]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
              spb[p4, p7]) - lam[1, p5]*(lam[2, m1]*spb[m1, p7] + 
             lam[2, p4]*spb[p4, p7]))*
          ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) - 
               barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                  lam[2, p6]) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1]))) - (barlam[1, p5]*(-(barlam[2, p2]*
                 (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
               barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                  lam[2, p3]) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6]) - barlam[2, p7]*(lam[2, et6]*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                    spba[p7, {m1, p4}, m1]))))/
             ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*(
                lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) + 
              (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*(
                lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) + 
              (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*(
                lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^2*
          ((barlam[2, p4]*spa[p4, m1]*(-(barlam[1, p2]*(lam[1, p2]*
                   lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) - 
               barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                  lam[2, p6]) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))))/(((-(barlam[1, p6]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                 barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                 barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1])))*spba[p7, {m1, p4}, m1]) - 
            (barlam[1, p4]*spa[p4, m1]*(-(barlam[2, p2]*(lam[1, p2]*
                   lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) - 
               barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                  lam[2, p6]) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))))/(((-(barlam[1, p6]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                 barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                 barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1])))*spba[p7, {m1, p4}, m1]))^2) + 
        (((-10*CK*(-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                barlam[2, p6])^5*(barlam[1, p7]*barlam[2, p5] - 
              barlam[1, p5]*barlam[2, p7])*(-((barlam[2, p5]*
                 (-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3]))) + (barlam[1, p5]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                     (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p6] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]))))))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - barlam[1, p6]*(lam[2, et5]*
                    (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p6] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]))))))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
              (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - barlam[2, p6]*(lam[2, et5]*
                    (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p6] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]))))))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - barlam[1, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3]))) + (barlam[1, p7]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                     (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p6] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]))))))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*lam[
                2, p3]*(-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*lam[1, et5]*(-(lam[2, p3]*(lam[1, p6] - 
                       (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + lam[1, p3]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*(-((barlam[2, p5]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                          m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[1, p2]*(-((barlam[1, p4]*barlam[2, 
                      p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])) - (barlam[1, p6]*barlam[2, p3] - 
                barlam[1, p3]*barlam[2, p6])*lam[1, p3]*(
                -(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*lam[2, et5]*(-(lam[2, p3]*(lam[1, p6] - 
                       (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + lam[1, p3]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*(-((barlam[2, p5]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                          m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[2, p2]*(-((barlam[1, p4]*barlam[2, 
                      p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])))*((barlam[1, p6]*barlam[2, p3] - 
                barlam[1, p3]*barlam[2, p6])*lam[2, p3]*(lam[1, p5] - 
                (lam[1, et5]*(-(lam[2, p3]*(lam[1, p6] - (lam[1, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])))) + 
                   lam[1, p3]*(lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))))*
                  ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
              (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*lam[
                1, p3]*(lam[2, p5] - (lam[2, et5]*(-(lam[2, p3]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + lam[1, p3]*(lam[2, p6] - 
                     (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))))*((barlam[2, p6]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))) + (barlam[1, p5]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])))*
             (((-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))))*(-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1]))/((-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p2]*
                   lam[2, et6] - lam[1, et6]*lam[2, p2])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])*((barlam[1, p4]*
                    barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])) - ((-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[1, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) - lam[1, et5]*
                     (lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))))*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1]))/((-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p2]*
                   lam[2, et6] - lam[1, et6]*lam[2, p2])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])*((barlam[1, p4]*
                    barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])))^2)/
            ((-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) + barlam[1, p6]*(lam[2, et5]*
                      (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p6] - 
                       (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))) + (barlam[1, p3]*
                 (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])))^2*((barlam[2, p6]*
                 (barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])) - (barlam[1, p6]*(barlam[2, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))))))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))^
              2*(-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                   p6])*lam[2, p3]*(-(((barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*lam[1, et5]*
                    (-(lam[2, p3]*(lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + lam[1, p3]*
                      (lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))))/((lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])*(-((barlam[2, p5]*
                        (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) + 
                 lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*lam[
                1, p3]*(-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*lam[2, et5]*(-(lam[2, p3]*(lam[1, p6] - 
                       (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + lam[1, p3]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*(-((barlam[2, p5]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                          m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[2, p2]*(-((barlam[1, p4]*barlam[2, 
                      p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])))*(-(lam[2, p3]*(lam[1, p6] - 
                 (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                       lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))) + lam[1, p3]*(lam[2, p6] - (lam[2, et6]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             (-((-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*lam[2, et5]*(-(lam[2, p3]*(lam[1, p6] - 
                        (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))) + lam[1, p3]*
                      (lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))))/((lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])*(-((barlam[2, p5]*
                        (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) + 
                 lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*(lam[1, p5] - 
                 (lam[1, et5]*(-(lam[2, p3]*(lam[1, p6] - (lam[1, et6]*
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])))) + 
                    lam[1, p3]*(lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))))*
                   ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])*(-((barlam[2, p5]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                    (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                     barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))) + 
              (-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et5]*(-(lam[2, p3]*(lam[1, p6] - (lam[1, et6]*
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])))) + 
                    lam[1, p3]*(lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[1, p2]*(-((barlam[1, p4]*barlam[2, 
                      p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]))*(lam[2, p5] - (lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + lam[1, p3]*
                    (lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))))*((barlam[2, p6]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             (-((lam[2, p5] - (lam[2, et5]*(-(lam[2, p3]*(lam[1, p6] - 
                       (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + lam[1, p3]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))*((barlam[2, p6]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])*(-((barlam[2, p5]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                    (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])))) - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                     barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                   m1])) + (lam[1, p5] - (lam[1, et5]*(-(lam[2, p3]*
                     (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + lam[1, p3]*(lam[2, p6] - 
                     (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))))*((barlam[2, p6]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                  m1]))) - (10*CK*(-(barlam[1, p5]*barlam[2, p3]) + 
               barlam[1, p3]*barlam[2, p5])^5*
             (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p3])) - barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))) + (barlam[1, p6]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])))^2*((barlam[2, p7]*
                (-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))))))/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
              (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - barlam[2, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))))))/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3]))) + (barlam[1, p7]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))))))/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*lam[
                2, p3]*(-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*lam[1, et5]*(-(lam[2, p3]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + lam[1, p3]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*((barlam[2, p6]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[1, p2]*(-((barlam[1, p4]*barlam[2, 
                      p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])) - (barlam[1, p5]*barlam[2, p3] - 
                barlam[1, p3]*barlam[2, p5])*lam[1, p3]*(
                -(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*lam[2, et5]*(-(lam[2, p3]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + lam[1, p3]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*((barlam[2, p6]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[2, p2]*(-((barlam[1, p4]*barlam[2, 
                      p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])))*((barlam[1, p5]*barlam[2, p3] - 
                barlam[1, p3]*barlam[2, p5])*lam[2, p3]*(lam[1, p6] - 
                (lam[1, et5]*(-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + lam[1, p3]*
                    (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))))*(-((barlam[2, p5]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
              (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*lam[
                1, p3]*(lam[2, p6] - (lam[2, et5]*(-(lam[2, p3]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + lam[1, p3]*(lam[2, p5] - 
                     (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))))*(-((barlam[2, p5]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])) - (barlam[1, p6]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])))*(-((barlam[2, p7]*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))) + (barlam[1, p7]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])))*
             (((-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))))*
                (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])) - ((-(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                 barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) - lam[1, et5]*
                    (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])))))*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1]))))/
            ((-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) + barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))) + (barlam[1, p3]*
                 (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])))^2*((barlam[2, p5]*
                 (barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])) - (barlam[1, p5]*(barlam[2, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) - lam[1, et5]*
                     (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])))^2*
             (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                lam[2, p3]*(lam[1, p6] - (lam[1, et5]*(-(lam[2, p3]*
                      (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + lam[1, p3]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))*(-((barlam[2, p5]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                    (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))) + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                 barlam[2, p5])*lam[1, p3]*(lam[2, p6] - (lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + lam[1, p3]*
                    (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))))*(-((barlam[2, p5]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             ((-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[2, et5]*(-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + lam[1, p3]*
                     (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*((barlam[2, p6]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[2, p2]*(-((barlam[1, p4]*barlam[2, 
                      p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]))*(lam[1, p6] - (lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + lam[1, p3]*
                    (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))))*(-((barlam[2, p5]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
              (-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et5]*(-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + lam[1, p3]*
                     (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*((barlam[2, p6]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[1, p2]*(-((barlam[1, p4]*barlam[2, 
                      p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]))*(lam[2, p6] - (lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + lam[1, p3]*
                    (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))))*(-((barlam[2, p5]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             (-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                    lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                        p7]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))) + lam[1, p3]*(lam[2, p5] - (lam[2, et6]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             (-((-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*lam[2, et5]*(-(lam[2, p3]*(lam[1, p5] - 
                        (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))) + lam[1, p3]*
                      (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))))/((lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])*((barlam[2, p6]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[2, p2]*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et5]*(-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + lam[1, p3]*
                     (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*((barlam[2, p6]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[1, p2]*(-((barlam[1, p4]*barlam[2, 
                      p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))) - 
           (10*CK*(-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                barlam[2, p5])^2*(barlam[1, p7]*barlam[2, p3] - 
              barlam[1, p3]*barlam[2, p7])*(barlam[1, p7]*barlam[2, p5] - 
              barlam[1, p5]*barlam[2, p7])*((barlam[2, p5]*(barlam[1, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) - lam[1, et5]*
                    (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])))) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - (barlam[1, p5]*(barlam[2, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) - lam[1, et5]*
                    (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])))) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*(-((barlam[2, p5]*(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) - lam[1, et5]*
                     (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
              (barlam[1, p5]*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[2, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[1, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
              (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[2, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (-(lam[2, p3]*(lam[1, p5] + (lam[1, et5]*
                   (-((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p5])*(-(lam[2, p3]*(lam[1, p5] - 
                          (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p2])))) + lam[1, p3]*(lam[2, p5] - 
                         (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))))) - (barlam[1, p7]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                     (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                     barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))) + 
              lam[1, p3]*(lam[2, p5] + (lam[2, et5]*
                  (-((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(-(lam[2, p3]*(lam[1, p5] - 
                         (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))) + lam[1, p3]*
                       (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))))) - (barlam[1, p7]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                    (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                      barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             ((lam[2, p5] + (lam[2, et5]*(-((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(-(lam[2, p3]*
                        (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))) + lam[1, p3]*
                       (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))))) - (barlam[1, p7]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                    (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                      barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p5] + (lam[1, et5]*(-((-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(-(lam[2, p3]*
                        (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))) + lam[1, p3]*
                       (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))))) - (barlam[1, p7]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                    (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                      barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p6]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))^5)/
            ((-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p3])) - barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))) + (barlam[1, p6]*(-(barlam[2, p3]*
                    (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                  barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) - lam[1, et5]*
                     (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^2*
             (lam[2, p3]*(lam[1, p5] + (lam[1, et5]*
                  (-((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(-(lam[2, p3]*(lam[1, p5] - 
                         (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))) + lam[1, p3]*
                       (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))))) - (barlam[1, p7]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                    (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                      barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
              lam[1, p3]*(lam[2, p5] + (lam[2, et5]*
                  (-((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p5])*(-(lam[2, p3]*(lam[1, p5] - 
                         (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))) + lam[1, p3]*
                       (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))))) - (barlam[1, p7]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                    (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                      barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                   {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))*(lam[1, p7] + (lam[1, m1]*
                  s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                 lam[1, p3] + (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                  s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (lam[2, p2]*(lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                -((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                   {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1]) - lam[1, p2]*(lam[2, p6] - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                -((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                   {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1]))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                       lam[2, p3])) - barlam[2, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) - barlam[2, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                  (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])))*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                barlam[2, p6])^2*(barlam[1, p7]*barlam[2, p3] - 
              barlam[1, p3]*barlam[2, p7])*(barlam[1, p7]*barlam[2, p6] - 
              barlam[1, p6]*barlam[2, p7])*((barlam[2, p6]*(barlam[1, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
              (barlam[1, p6]*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[2, p6]*(lam[2, et5]*
                    (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p6] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*(-((barlam[2, p6]*(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
              (barlam[1, p6]*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[2, p6]*(lam[2, et5]*
                    (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p6] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*((barlam[2, p7]*(barlam[1, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
              (barlam[1, p7]*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[2, p6]*(lam[2, et5]*
                    (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2]))) - lam[1, et5]*(lam[2, p6] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*(-(lam[2, p3]*(lam[1, p6] + 
                 (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(-(lam[2, p3]*
                         (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p2])))) + lam[1, p3]*(lam[2, p6] - 
                         (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))))) - (barlam[1, p7]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                     (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*((lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))) + lam[1, p3]*(lam[2, p6] + (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(-(lam[2, p3]*(lam[1, p6] - 
                         (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))) + lam[1, p3]*
                       (lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))))) - (barlam[1, p7]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                    (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*((lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                      barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             ((lam[2, p6] + (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(-(lam[2, p3]*
                        (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))) + lam[1, p3]*
                       (lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))))) - (barlam[1, p7]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                    (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*((lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                      barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p6] + (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(-(lam[2, p3]*
                        (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))) + lam[1, p3]*
                       (lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))))) - (barlam[1, p7]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                    (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*((lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                      barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p5]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))^5)/
            ((-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p3])) - barlam[1, p6]*(lam[2, et5]*
                      (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p6] - 
                       (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                     barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))) + (barlam[1, p5]*(-(barlam[2, p3]*
                    (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                  barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^2*
             (lam[2, p3]*(lam[1, p6] + (lam[1, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(-(lam[2, p3]*(lam[1, p6] - 
                         (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))) + lam[1, p3]*
                       (lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))))) - (barlam[1, p7]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                    (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*((lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                      barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
              lam[1, p3]*(lam[2, p6] + (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(-(lam[2, p3]*(lam[1, p6] - 
                         (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])))) + lam[1, p3]*
                       (lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))))) - (barlam[1, p7]*
                      barlam[2, p3] - barlam[1, p3]*barlam[2, p7])*
                    (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*((lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                      barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                   {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[2, p3] + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))*(lam[1, p7] + (lam[1, m1]*
                  s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[1, p3] + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                   spba[p7, {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*
                  s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                   lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                -((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                   {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1]) - lam[1, p2]*(lam[2, p5] - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                -((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                   {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1]))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                       lam[2, p3])) - barlam[2, p6]*(lam[2, et5]*
                      (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p6] - 
                       (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) - barlam[2, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                  (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])))*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                     barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2) - 
           (10*CK*(-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                p5])*(barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                barlam[2, p7])^5*((barlam[2, p3]*(-(barlam[1, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) - lam[1, et5]*
                     (lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
              (barlam[1, p3]*(-(barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - 
                       (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p6] - 
                       (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
              (barlam[1, p3]*(-(barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - 
                       (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p6] - 
                       (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
              (barlam[1, p5]*(-(barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                   p7])*(-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*lam[2, et5]*((lam[2, p6] - (lam[2, et6]*
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) + 
                 lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*(
                -(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*lam[1, et5]*((lam[2, p6] - (lam[2, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[1, p2]*(-((barlam[1, p4]*barlam[2, 
                      p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))*(-((-(barlam[1, p7]*barlam[2, 
                    p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p5] - 
                 (lam[2, et5]*((lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*((barlam[2, p6]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])))) - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                     barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                   m1])) + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                 barlam[2, p7])*(lam[1, p5] - (lam[1, et5]*
                  ((lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - (lam[1, p6] - (lam[1, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))) + (barlam[1, p5]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])))*
             (((-(barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
                     lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))))) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])) - ((-(barlam[1, p6]*
                    (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) - lam[1, et5]*
                      (lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))^2)/
            (((barlam[2, p6]*(barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
               (barlam[1, p6]*(barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^2*
             (-((barlam[2, p7]*(barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - 
                       (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p6] - 
                       (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
               (barlam[1, p7]*(barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^2*
             (lam[2, p3]*(lam[1, p5] - (lam[1, et5]*((lam[2, p6] - 
                     (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - (lam[1, p6] - (lam[1, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
              lam[1, p3]*(lam[2, p5] - (lam[2, et5]*((lam[2, p6] - 
                     (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - (lam[1, p6] - (lam[1, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             (-((-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*lam[2, et5]*((lam[2, p6] - (lam[2, et6]*
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) + 
                 lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*(lam[1, p5] - 
                 (lam[1, et5]*((lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*((barlam[2, p6]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                     barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))) + 
              (-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et5]*((lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[2, p5]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                          m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[1, p2]*(-((barlam[1, p4]*barlam[2, 
                      p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]))*(lam[2, p5] - (lam[2, et5]*
                  ((lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - (lam[1, p6] - (lam[1, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*(
                -(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*lam[2, et5]*((lam[2, p6] - (lam[2, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[2, p2]*(-((barlam[1, p4]*barlam[2, 
                      p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]) - (-(barlam[1, p7]*barlam[2, p6]) + 
                barlam[1, p6]*barlam[2, p7])*(-(((barlam[1, p6]*barlam[2, 
                      p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et5]*
                   ((lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - (lam[1, p6] - (lam[1, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[1, p2]*(-((barlam[1, p4]*barlam[2, 
                      p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))*((lam[2, p6] - (lam[2, et6]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p6] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                  m1]))) - (10*CK*(barlam[1, p7]*barlam[2, p5] - barlam[1, 
                 p5]*barlam[2, p7])^5*((barlam[2, p3]*(-(barlam[1, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) - lam[1, et5]*
                     (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
              (barlam[1, p3]*(-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[2, p3]*(-(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
              (barlam[1, p3]*(-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                        (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))) - lam[1, et5]*
                       (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2]))))) - barlam[1, p7]*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
               (barlam[1, p6]*(-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^2*
             (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                   p7])*(-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*lam[2, et5]*((lam[2, p5] - (lam[2, et6]*
                         (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*((barlam[2, p6]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                          m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[2, p2]*
                  (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*(
                -(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*lam[1, et5]*((lam[2, p5] - (lam[2, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*((barlam[2, p6]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[1, p2]*(-((barlam[1, p4]*barlam[2, 
                      p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))*(-((-(barlam[1, p7]*barlam[2, 
                    p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p6] - 
                 (lam[2, et5]*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[2, p5]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                          m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])))) - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                  spba[p7, {m1, p4}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p6] - 
                (lam[1, et5]*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*(-((barlam[2, p5]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))) + (barlam[1, p3]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])))*((barlam[2, p6]*
                (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])) - (barlam[1, p6]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])))*
             (((-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) - lam[1, et5]*
                     (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])) - ((-(barlam[1, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2]))) - lam[1, et5]*
                     (lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))))) - barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1]))))/
            (((barlam[2, p5]*(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
               (barlam[1, p5]*(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^2*
             (-((barlam[2, p7]*(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
               (barlam[1, p7]*(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^2*
             (lam[2, p3]*(-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*lam[1, et5]*((lam[2, p5] - (lam[2, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*((barlam[2, p6]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[1, p2]*(-((barlam[1, p4]*barlam[2, 
                      p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])) - lam[1, p3]*(
                -(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*lam[2, et5]*((lam[2, p5] - (lam[2, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*((barlam[2, p6]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[2, p2]*(-((barlam[1, p4]*barlam[2, 
                      p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])))*((-(((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*lam[2, et5]*
                   ((lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - (lam[1, p5] - (lam[1, et6]*
                        (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[2, p2]*(-((barlam[1, p4]*barlam[2, 
                      p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]))*(lam[1, p6] - (lam[1, et5]*
                  ((lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - (lam[1, p5] - (lam[1, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
              (-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et5]*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*((barlam[2, p6]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[1, p2]*(-((barlam[1, p4]*barlam[2, 
                      p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]))*(lam[2, p6] - (lam[2, et5]*
                  ((lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - (lam[1, p5] - (lam[1, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*(
                lam[2, p6] - (lam[2, et5]*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*(-((barlam[2, p5]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*(
                lam[1, p6] - (lam[1, et5]*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*(-((barlam[2, p5]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                         m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                  m1]))) - (10*CK*(barlam[1, p6]*barlam[2, p5] - barlam[1, 
                 p5]*barlam[2, p6])^5*(barlam[1, p7]*barlam[2, p3] - 
              barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*
                ((lam[1, et5]*(-((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (lam[1, p3]*lam[2, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                       lam[2, p3]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                        ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                    (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                 lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              lam[1, p3]*((lam[2, et5]*(-((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (lam[1, p3]*lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                      lam[2, p3]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])))) + lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             ((barlam[2, p7]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                 ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) - lam[1, et5]*lam[2, p2]*
                     (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                       m1])))) - (barlam[1, p7]*(barlam[2, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])) + ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p4]*
                         barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) - lam[1, et5]*lam[2, p2]*
                     (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*
             (((lam[2, et5]*(-((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (lam[1, p3]*lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                      lam[2, p3]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])))) + lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              ((lam[1, et5]*(-((barlam[1, p7]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) - (lam[1, p3]*lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                      lam[2, p3]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])))) + lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p3]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))^2*(-((barlam[2, p7]*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))) + (barlam[1, p7]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])))*
             (((barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) + ((lam[1, p2]*lam[2, et5]*
                     (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])) - ((barlam[1, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                 ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) - lam[1, et5]*lam[2, p2]*
                     (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])))*
             (-(((barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])) + ((lam[1, p2]*lam[2, et5]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              ((barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) + ((lam[1, p2]*lam[2, et5]*
                     (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1]))))/
            ((lam[2, p3]*((lam[1, et5]*(-((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (lam[1, p3]*lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                      lam[2, p3]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])))) + lam[1, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
              lam[1, p3]*((lam[2, et5]*(-((barlam[1, p7]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p7])*(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - (lam[1, p3]*lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                      lam[2, p3]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, 
                          p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                       ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])))) + lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-((lam[2, p6] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                         p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p2]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                    lam[1, p2]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                        p7]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))) + (lam[1, p6] - (lam[1, et6]*
                  (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[2, p5] - (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p2]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             ((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                  ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (barlam[1, p5]*(-(barlam[2, p3]*
                    (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) - ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))))^2*(-((barlam[2, p6]*(-(barlam[1, p3]*
                     (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et5]*lam[2, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + (barlam[1, p6]*(-(barlam[2, p3]*
                    (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) - ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))))^2*(-(lam[2, p3]*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                  {m1, p4}, m1]))*((lam[2, p3]*((barlam[2, p3]*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p3]*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                  (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                  m1]))) - (10*CK*(barlam[1, p6]*barlam[2, p5] - 
              barlam[1, p5]*barlam[2, p6])*(barlam[1, p7]*barlam[2, p6] - 
              barlam[1, p6]*barlam[2, p7])*(lam[2, p3]*(lam[1, p6] - 
                (lam[1, et5]*(lam[1, p3]*lam[2, p2]*(-((barlam[1, p4]*
                        barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, p2]*lam[2, p3]*
                    (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                (barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (barlam[1, p3]*
                  (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) - lam[1, p3]*(
                lam[2, p6] - (lam[2, et5]*(lam[1, p3]*lam[2, p2]*
                    (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                (barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (barlam[1, p3]*
                  (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p3]*(lam[1, p5] - (lam[1, et5]*(lam[1, p3]*lam[2, p2]*
                    (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                (barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (barlam[1, p3]*
                  (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) - lam[1, p3]*(
                lam[2, p5] - (lam[2, et5]*(lam[1, p3]*lam[2, p2]*
                    (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                (barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (barlam[1, p3]*
                  (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p3])) - ((lam[1, p2]*lam[2, et5]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                       lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))))) + (barlam[1, p5]*(-(barlam[2, p3]*
                    (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                  ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))^
              2*(-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - ((lam[1, p2]*lam[2, et5]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                       m1]))))) + (barlam[1, p6]*(-(barlam[2, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                 ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) - lam[1, et5]*lam[2, p2]*
                     (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                 (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*
             ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - ((lam[1, p2]*lam[2, et5]*
                     (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                 (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
              (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - ((lam[1, p2]*lam[2, et5]*
                     (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                 (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - ((lam[1, p2]*lam[2, et5]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                       m1]))))) + (barlam[1, p7]*(-(barlam[2, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                 ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) - lam[1, et5]*lam[2, p2]*
                     (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                 (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p3]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))^5)/
            (((lam[2, p6] - (lam[2, et5]*(lam[1, p3]*lam[2, p2]*
                    (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[1, p5] - (lam[1, et5]*(lam[1, p3]*lam[2, p2]*
                    (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
              (lam[1, p6] - (lam[1, et5]*(lam[1, p3]*lam[2, p2]*
                    (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[2, p5] - (lam[2, et5]*(lam[1, p3]*lam[2, p2]*
                    (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             (-(lam[2, p3]*(lam[1, p5] - (lam[1, et5]*(lam[1, p3]*lam[2, p2]*
                     (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - (lam[1, et6]*
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                      barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))*((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                    (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p3]*(lam[2, p5] - (lam[2, et5]*(lam[1, p3]*lam[2, p2]*
                    (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                (barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (barlam[1, p3]*
                  (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) + ((lam[1, p2]*lam[2, et5]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                       lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))))) + (barlam[1, p3]*(barlam[2, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))^
              2*(-((lam[2, p6] - (lam[2, et5]*(lam[1, p3]*lam[2, p2]*
                     (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - (lam[2, et6]*
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (lam[1, p6] - (lam[1, et5]*(lam[1, p3]*lam[2, p2]*
                    (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (lam[1, p3]*lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                  barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
              lam[1, p2]*lam[2, p3]*(-((barlam[1, p4]*barlam[2, p2]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                  barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
             (-(((barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3]) + ((lam[1, p2]*lam[2, et5]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                       lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) + ((barlam[1, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p3]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))^2) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                p6])*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                p6])*((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                 ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) - lam[1, et5]*lam[2, p2]*
                     (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                 (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
              (barlam[1, p3]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - ((lam[1, p2]*lam[2, et5]*
                     (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                 (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - ((lam[1, p2]*lam[2, et5]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                       m1]))))) + (barlam[1, p3]*(-(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                 ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) - lam[1, et5]*lam[2, p2]*
                     (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                 (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - ((lam[1, p2]*lam[2, et5]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                       lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))))) + (barlam[1, p5]*(-(barlam[2, p7]*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                  ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))^
              2*(-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - ((lam[1, p2]*lam[2, et5]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                       m1]))))) + (barlam[1, p6]*(-(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                 ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) - lam[1, et5]*lam[2, p2]*
                     (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                 (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*
             (-((lam[2, p6] - (lam[2, et5]*(lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - (lam[2, et6]*
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])))*((barlam[2, p7]*
                   (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (lam[1, p6] - (lam[1, et5]*(lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                (barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*
                  (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((lam[2, p5] - (lam[2, et5]*(lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - (lam[2, et6]*
                   (-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                      barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])))*((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                    (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (lam[1, p5] - (lam[1, et5]*(lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                (barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*
                  (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p7]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))^5)/
            ((lam[2, p3]*(lam[1, p6] - (lam[1, et5]*(lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
              lam[1, p3]*(lam[2, p6] - (lam[2, et5]*(lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             ((lam[2, p6] - (lam[2, et5]*(lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[1, p5] - (lam[1, et5]*(lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))) - 
              (lam[1, p6] - (lam[1, et5]*(lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                lam[2, p5] - (lam[2, et5]*(lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]))))*
             (-((barlam[2, p7]*(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) + ((lam[1, p2]*lam[2, et5]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                       lam[2, p2]*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))))) + (barlam[1, p7]*(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                  ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))^
              2*((lam[2, p5] - (lam[2, et5]*(lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                (barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*
                  (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p5] - (lam[1, et5]*(lam[2, p2]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p2]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])))*(
                (barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*
                  (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                  {m1, p4}, m1])*(-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                  spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p2]*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*(
                -((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                   {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1]))*
             (-(((barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) + ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p4]*
                          barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et5]*lam[2, p2]*
                       (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) + ((barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                  ((lam[1, p2]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p2]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p2]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))^2))*
          ((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
            (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])^
           5)/((-(lam[2, p2]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                p7])) + lam[1, p2]*(lam[2, m1]*spb[m1, p7] + 
             lam[2, p4]*spb[p4, p7]))*
          (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p2]) - (barlam[1, p4]*spa[p4, m1]*
                  (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
              ((lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])*(
                (barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1] - (barlam[1, p2]*barlam[2, p4]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1]))) + (barlam[1, p2]*(barlam[2, p2]*
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) - 
               (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, 
                      p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                   (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
               lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                 spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                 barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2*
          (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p2]*(lam[1, p2]*
                   lam[2, et6] - lam[1, et6]*lam[2, p2]) - (barlam[1, p4]*
                  spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                     lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                  {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - lam[1, et6]*
                 lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1] - (barlam[1, p2]*barlam[2, p4]*
                  spa[p4, m1])/spba[p7, {m1, p4}, m1])*spba[p7, {m1, p4}, 
                m1])) + (barlam[1, p4]*spa[p4, m1]*(barlam[2, p2]*
                (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2]) - 
               (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, 
                      p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                   (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et6] - 
               lam[1, et6]*lam[2, p2])*((barlam[1, p4]*barlam[2, p2]*
                 spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p2]*
                 barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])*
              spba[p7, {m1, p4}, m1]))^2) + 
        (((-10*CK*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p6])^5*(barlam[1, p7]*barlam[2, p5] - 
              barlam[1, p5]*barlam[2, p7])*(-((barlam[2, p5]*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]))) + (barlam[1, p5]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                     (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))) - lam[1, et5]*(lam[2, p6] - (lam[2, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]))))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - barlam[1, p6]*(lam[2, et5]*
                    (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))) - lam[1, et5]*(lam[2, p6] - (lam[2, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]))))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
              (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - barlam[2, p6]*(lam[2, et5]*
                    (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))) - lam[1, et5]*(lam[2, p6] - (lam[2, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]))))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]))) + (barlam[1, p7]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                     (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))) - lam[1, et5]*(lam[2, p6] - (lam[2, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]))))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[
                2, p2]*(-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p6] - 
                       (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))) + lam[1, p2]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p5]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                          m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[1, p3]*(-((barlam[1, p4]*barlam[2, 
                      p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])) - (barlam[1, p6]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p6])*lam[1, p2]*(
                -(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p6] - 
                       (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))) + lam[1, p2]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p5]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                          m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[2, p3]*(-((barlam[1, p4]*barlam[2, 
                      p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])))*((barlam[1, p6]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p6])*lam[2, p2]*(lam[1, p5] - 
                (lam[1, et5]*(-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*
                        (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])))) + 
                   lam[1, p2]*(lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))))*
                  ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
              (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[
                1, p2]*(lam[2, p5] - (lam[2, et5]*(-(lam[2, p2]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))) + lam[1, p2]*(lam[2, p6] - 
                     (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))))*((barlam[2, p6]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))))*
             (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))) + (barlam[1, p5]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])))*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))))*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1]))/((-(barlam[1, p6]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])*(lam[1, p3]*
                   lam[2, et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                    barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])) - ((-(barlam[1, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[1, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))) - lam[1, et5]*
                     (lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))))*(-(barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1]))/((-(barlam[1, p6]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])*(lam[1, p3]*
                   lam[2, et6] - lam[1, et6]*lam[2, p3])*((barlam[1, p4]*
                    barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])))^2)/
            ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + barlam[1, p6]*(lam[2, et5]*
                      (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p6] - 
                       (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]))) + (barlam[1, p2]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])))^2*((barlam[2, p6]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])) - (barlam[1, p6]*(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                        (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))))))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))^
              2*(-((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                   p6])*lam[2, p2]*(-(((barlam[1, p6]*barlam[2, p5] - 
                     barlam[1, p5]*barlam[2, p6])*lam[1, et5]*
                    (-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))) + lam[1, p2]*
                      (lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))))/((lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])*(-((barlam[2, p5]*
                        (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) + 
                 lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[
                1, p2]*(-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p6] - 
                       (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))) + lam[1, p2]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p5]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                          m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[2, p3]*(-((barlam[1, p4]*barlam[2, 
                      p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])))*(-(lam[2, p2]*(lam[1, p6] - 
                 (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                       lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                       spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])))) + lam[1, p2]*(lam[2, p6] - (lam[2, et6]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))))*
             (-((-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p6] - 
                        (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))) + lam[1, p2]*
                      (lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))))/((lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])*(-((barlam[2, p5]*
                        (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) + 
                 lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*(lam[1, p5] - 
                 (lam[1, et5]*(-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*
                         (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])))) + 
                    lam[1, p2]*(lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))))*
                   ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*(-((barlam[2, p5]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) + (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                    (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])))) - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                     barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))) + 
              (-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et5]*(-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*
                         (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])))) + 
                    lam[1, p2]*(lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[1, p3]*(-((barlam[1, p4]*barlam[2, 
                      p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]))*(lam[2, p5] - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))) + lam[1, p2]*
                    (lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))))*((barlam[2, p6]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))))*
             (-((lam[2, p5] - (lam[2, et5]*(-(lam[2, p2]*(lam[1, p6] - 
                       (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))) + lam[1, p2]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))*((barlam[2, p6]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*(-((barlam[2, p5]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) + (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                    (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])))) - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                     barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                   m1])) + (lam[1, p5] - (lam[1, et5]*(-(lam[2, p2]*
                     (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))) + lam[1, p2]*(lam[2, p6] - 
                     (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))))*((barlam[2, p6]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                  m1]))) - (10*CK*(-(barlam[1, p5]*barlam[2, p2]) + 
               barlam[1, p2]*barlam[2, p5])^5*
             (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]))) + (barlam[1, p6]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])))^2*((barlam[2, p7]*
                (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))) - lam[1, et5]*(lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
              (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))) - lam[1, et5]*(lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]))) + (barlam[1, p7]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))) - lam[1, et5]*(lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                2, p2]*(-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))) + lam[1, p2]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*((barlam[2, p6]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[1, p3]*(-((barlam[1, p4]*barlam[2, 
                      p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])) - (barlam[1, p5]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p5])*lam[1, p2]*(
                -(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))) + lam[1, p2]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*((barlam[2, p6]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[2, p3]*(-((barlam[1, p4]*barlam[2, 
                      p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])))*((barlam[1, p5]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p5])*lam[2, p2]*(lam[1, p6] - 
                (lam[1, et5]*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                        (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))) + lam[1, p2]*
                    (lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))))*(-((barlam[2, p5]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
              (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                1, p2]*(lam[2, p6] - (lam[2, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))) + lam[1, p2]*(lam[2, p5] - 
                     (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))))*(-((barlam[2, p5]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))))*
             ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])) - (barlam[1, p6]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])))*(-((barlam[2, p7]*
                 (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))) + (barlam[1, p7]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])))*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))) - lam[1, et5]*(lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))))*
                (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])) - ((-(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                 barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))) - lam[1, et5]*
                    (lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])))))*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1]))))/
            ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]))) + (barlam[1, p2]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])))^2*((barlam[2, p5]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])) - (barlam[1, p5]*(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))) - lam[1, et5]*
                     (lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])))^2*
             (-((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                lam[2, p2]*(lam[1, p6] - (lam[1, et5]*(-(lam[2, p2]*
                      (lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))) + lam[1, p2]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))*(-((barlam[2, p5]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) + (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                    (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])*((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])))) - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])))) + (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                 barlam[2, p5])*lam[1, p2]*(lam[2, p6] - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))) + lam[1, p2]*
                    (lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))))*(-((barlam[2, p5]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))))*
             ((-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[2, et5]*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                         (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))) + lam[1, p2]*
                     (lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*((barlam[2, p6]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[2, p3]*(-((barlam[1, p4]*barlam[2, 
                      p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]))*(lam[1, p6] - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))) + lam[1, p2]*
                    (lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))))*(-((barlam[2, p5]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
              (-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et5]*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                         (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))) + lam[1, p2]*
                     (lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*((barlam[2, p6]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[1, p3]*(-((barlam[1, p4]*barlam[2, 
                      p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]))*(lam[2, p6] - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))) + lam[1, p2]*
                    (lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))))*(-((barlam[2, p5]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))))*
             (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                    lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                        p7]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])))) + lam[1, p2]*(lam[2, p5] - (lam[2, et6]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))))*
             (-((-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                        (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))) + lam[1, p2]*
                      (lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))))/((lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])*((barlam[2, p6]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) + (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                     (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[2, p3]*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et5]*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                         (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))) + lam[1, p2]*
                     (lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*((barlam[2, p6]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[1, p3]*(-((barlam[1, p4]*barlam[2, 
                      p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))) - 
           (10*CK*(-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p5])*(-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[
                2, p7])*(barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                barlam[2, p7])^2*((barlam[2, p2]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))) - lam[1, et5]*
                    (lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])))) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - (barlam[1, p2]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))) - lam[1, et5]*
                    (lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])))) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*((barlam[2, p5]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))) - lam[1, et5]*
                    (lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])))) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))) - (barlam[1, p5]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))) - lam[1, et5]*
                    (lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])))) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p5] - 
                  barlam[1, p5]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*(-((barlam[2, p5]*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))) - lam[1, et5]*
                     (lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
              (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))) - lam[1, et5]*(lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (-(lam[2, p2]*(lam[1, p5] + (lam[1, et5]*
                   (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p5])*(-(lam[2, p2]*(lam[1, p5] - 
                          (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p3])))) + lam[1, p2]*(lam[2, p5] - 
                         (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))))) - (-(barlam[1, p7]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                     (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      (lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))) - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                     barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))) + 
              lam[1, p2]*(lam[2, p5] + (lam[2, et5]*
                  (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(-(lam[2, p2]*(lam[1, p5] - 
                         (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))) + lam[1, p2]*
                       (lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))))) - (-(barlam[1, p7]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                    (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                      barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))))*
             ((lam[2, p5] + (lam[2, et5]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[2, p2]*
                        (lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))) + lam[1, p2]*
                       (lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))))) - (-(barlam[1, p7]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                    (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                      barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p5] + (lam[1, et5]*(-((-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[2, p2]*
                        (lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))) + lam[1, p2]*
                       (lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))))) - (-(barlam[1, p7]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                    (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                      barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p6]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))^5)/
            ((-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))) + (barlam[1, p6]*(-(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))) - lam[1, et5]*
                     (lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^2*
             (-(lam[2, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p5])*lam[1, p2] + (-(barlam[1, p7]*barlam[2, 
                      p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
              lam[1, p2]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[2, p2] + (-(barlam[1, p7]*barlam[2, 
                     p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
             (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                  {m1, p4}, m1]) - lam[1, p2]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((lam[2, p5] + (lam[2, et5]*(-((-(barlam[1, p5]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p5])*
                      (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))) + lam[1, p2]*
                        (lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))))) - (-(barlam[1, p7]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                     (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                        p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      (lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))) - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                     barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                   m1])) + (lam[1, p5] + (lam[1, et5]*
                  (-((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p5])*(-(lam[2, p2]*(lam[1, p5] - 
                         (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))) + lam[1, p2]*
                       (lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))))) - (-(barlam[1, p7]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                    (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p7])*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p5]*
                      barlam[2, p2]) + barlam[1, p2]*barlam[2, p5])*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (lam[2, p3]*(lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                -((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                   {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1]) - lam[1, p3]*(lam[2, p6] - 
                (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                -((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                   {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1]))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                       lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))) - barlam[2, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                  (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p6])*(-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[
                2, p7])*(barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                barlam[2, p7])^2*((barlam[2, p2]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
              (barlam[1, p2]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p6]*(lam[2, et5]*
                    (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))) - lam[1, et5]*(lam[2, p6] - (lam[2, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*((barlam[2, p6]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
              (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p6]*(lam[2, et5]*
                    (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))) - lam[1, et5]*(lam[2, p6] - (lam[2, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*(-((barlam[2, p6]*(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                        (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))) + barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
              (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p6]*(lam[2, et5]*
                    (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))) - lam[1, et5]*(lam[2, p6] - (lam[2, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))))*(-(lam[2, p2]*(lam[1, p6] + 
                 (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p6])*(-(lam[2, p2]*
                         (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, 
                          et6]*lam[2, p3])))) + lam[1, p2]*(lam[2, p6] - 
                         (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))))) - (-(barlam[1, p7]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                     (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*((lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))) - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])))) + lam[1, p2]*(lam[2, p6] + (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                       barlam[2, p6])*(-(lam[2, p2]*(lam[1, p6] - 
                         (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))) + lam[1, p2]*
                       (lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))))) - (-(barlam[1, p7]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                    (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*((lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                      barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))))*
             ((lam[2, p6] + (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[2, p2]*
                        (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))) + lam[1, p2]*
                       (lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))))) - (-(barlam[1, p7]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                    (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*((lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                      barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p6] + (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[2, p2]*
                        (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))) + lam[1, p2]*
                       (lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))))) - (-(barlam[1, p7]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                    (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*((lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                      barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p5]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))^5)/
            ((-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p6]*(lam[2, et5]*
                      (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p6] - 
                       (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                     barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))) + (barlam[1, p5]*(-(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                        (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^2*
             (-(lam[2, p2]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p6])*lam[1, p2] + (-(barlam[1, p7]*barlam[2, 
                      p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
              lam[1, p2]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p6])*lam[2, p2] + (-(barlam[1, p7]*barlam[2, 
                     p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
             (lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                  {m1, p4}, m1]) - lam[1, p2]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((lam[2, p6] + (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*
                      (-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))) + lam[1, p2]*
                        (lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))))) - (-(barlam[1, p7]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                     (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                    (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*((lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))) - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                  spba[p7, {m1, p4}, m1])) + (lam[1, p6] + 
                (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p6])*(-(lam[2, p2]*
                        (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))) + lam[1, p2]*
                       (lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))))) - (-(barlam[1, p7]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                    (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*((lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))))/((-(barlam[1, p6]*
                      barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (lam[2, p3]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                -((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                   {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1]) - lam[1, p3]*(lam[2, p5] - 
                (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                -((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                   {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1]))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                       lam[2, p2])) - barlam[2, p6]*(lam[2, et5]*
                      (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p6] - 
                       (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))) - barlam[2, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                  (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                      barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                     barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2) - 
           (10*CK*(-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p5])*(barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                barlam[2, p7])^5*((barlam[2, p2]*(-(barlam[1, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))) - lam[1, et5]*
                     (lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))) - barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
              (barlam[1, p2]*(-(barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - 
                       (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p6] - 
                       (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
              (barlam[1, p2]*(-(barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[2, p5]*(-(barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - 
                       (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p6] - 
                       (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
              (barlam[1, p5]*(-(barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                   p7])*(-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*lam[2, et5]*((lam[2, p6] - (lam[2, et6]*
                         (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) + 
                 lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*(
                -(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*lam[1, et5]*((lam[2, p6] - (lam[2, et6]*
                        (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[1, p3]*(-((barlam[1, p4]*barlam[2, 
                      p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))*(-((-(barlam[1, p7]*barlam[2, 
                    p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, p5] - 
                 (lam[2, et5]*((lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*((barlam[2, p6]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                         m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])))) - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                     barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                   m1])) + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                 barlam[2, p7])*(lam[1, p5] - (lam[1, et5]*
                  ((lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - (lam[1, p6] - (lam[1, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))) + (barlam[1, p5]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])))*
             (((-(barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                         (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                     lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))))) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                 (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])) - ((-(barlam[1, p6]*
                    (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))) - lam[1, et5]*
                      (lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))^2)/
            (((barlam[2, p6]*(barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
               (barlam[1, p6]*(barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^2*
             (-((barlam[2, p7]*(barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - 
                       (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p6] - 
                       (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
               (barlam[1, p7]*(barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^2*
             (lam[2, p2]*(lam[1, p5] - (lam[1, et5]*((lam[2, p6] - 
                     (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - (lam[1, p6] - (lam[1, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
              lam[1, p2]*(lam[2, p5] - (lam[2, et5]*((lam[2, p6] - 
                     (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - (lam[1, p6] - (lam[1, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))))*
             (-((-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*lam[2, et5]*((lam[2, p6] - (lam[2, et6]*
                         (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                   ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))))) + 
                 lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*(lam[1, p5] - 
                 (lam[1, et5]*((lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*((barlam[2, p6]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                         m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])))) - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                   ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                       m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                     barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))) + 
              (-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et5]*((lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[2, p5]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                          m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[1, p3]*(-((barlam[1, p4]*barlam[2, 
                      p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]))*(lam[2, p5] - (lam[2, et5]*
                  ((lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - (lam[1, p6] - (lam[1, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))))*
             ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*(
                -(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*lam[2, et5]*((lam[2, p6] - (lam[2, et6]*
                        (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[2, p3]*(-((barlam[1, p4]*barlam[2, 
                      p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]) - (-(barlam[1, p7]*barlam[2, p6]) + 
                barlam[1, p6]*barlam[2, p7])*(-(((barlam[1, p6]*barlam[2, 
                      p5] - barlam[1, p5]*barlam[2, p6])*lam[1, et5]*
                   ((lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - (lam[1, p6] - (lam[1, et6]*
                        (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, 
                          p5] - barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[1, p3]*(-((barlam[1, p4]*barlam[2, 
                      p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))*((lam[2, p6] - (lam[2, et6]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p6] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                  m1]))) - (10*CK*(barlam[1, p7]*barlam[2, p5] - barlam[1, 
                 p5]*barlam[2, p7])^5*((barlam[2, p2]*(-(barlam[1, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))) - lam[1, et5]*
                     (lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))) - barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
              (barlam[1, p2]*(-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[2, p2]*(-(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
              (barlam[1, p2]*(-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]))))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[2, p6]*(-(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                        (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))) - lam[1, et5]*
                       (lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))))) - barlam[1, p7]*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
               (barlam[1, p6]*(-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^2*
             (-((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, 
                   p7])*(-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*lam[2, et5]*((lam[2, p5] - (lam[2, et6]*
                         (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     (lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*((barlam[2, p6]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                          m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1])) - (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[2, p3]*
                  (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*(
                -(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*lam[1, et5]*((lam[2, p5] - (lam[2, et6]*
                        (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*((barlam[2, p6]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                         m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[1, p3]*(-((barlam[1, p4]*barlam[2, 
                      p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1]))*(-((-(barlam[1, p7]*barlam[2, 
                    p5]) + barlam[1, p5]*barlam[2, p7])*(lam[2, p6] - 
                 (lam[2, et5]*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[2, p5]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                          (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                          m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])))) - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                  spba[p7, {m1, p4}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p5]) + barlam[1, p5]*barlam[2, p7])*(lam[1, p6] - 
                (lam[1, et5]*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*(-((barlam[2, p5]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                         m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))) + (barlam[1, p2]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])))*((barlam[2, p6]*
                (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])) - (barlam[1, p6]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])))*
             (((-(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))) - lam[1, et5]*
                     (lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))) - barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])) - ((-(barlam[1, p5]*
                   (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))) - lam[1, et5]*
                     (lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))))) - barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])))*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1]))))/
            (((barlam[2, p5]*(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
               (barlam[1, p5]*(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^2*
             (-((barlam[2, p7]*(barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                       (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) + 
               (barlam[1, p7]*(barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))))/
                ((barlam[1, p7]*barlam[2, p5] - barlam[1, p5]*barlam[2, p7])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))^2*
             (lam[2, p2]*(-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*lam[1, et5]*((lam[2, p5] - (lam[2, et6]*
                        (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*((barlam[2, p6]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                         m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[1, p3]*(-((barlam[1, p4]*barlam[2, 
                      p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])) - lam[1, p2]*(
                -(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*lam[2, et5]*((lam[2, p5] - (lam[2, et6]*
                        (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*((barlam[2, p6]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                         m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[2, p3]*(-((barlam[1, p4]*barlam[2, 
                      p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])))*((-(((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*lam[2, et5]*
                   ((lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - (lam[1, p5] - (lam[1, et6]*
                        (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                   ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[2, p3]*(-((barlam[1, p4]*barlam[2, 
                      p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]))*(lam[1, p6] - (lam[1, et5]*
                  ((lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - (lam[1, p5] - (lam[1, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
              (-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                   lam[1, et5]*((lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                          p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*((barlam[2, p6]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                         m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + lam[1, p3]*(-((barlam[1, p4]*barlam[2, 
                      p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                  (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]))*(lam[2, p6] - (lam[2, et5]*
                  ((lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])))*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]) - (lam[1, p5] - (lam[1, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))))*
             ((-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*(
                lam[2, p6] - (lam[2, et5]*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*(-((barlam[2, p5]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                         m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (-(barlam[1, p7]*barlam[2, p5]) + barlam[1, p5]*barlam[2, p7])*(
                lam[1, p6] - (lam[1, et5]*((lam[2, p5] - (lam[2, et6]*
                       (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                       ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*(-((barlam[2, p5]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                         (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                         m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             ((lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                  m1]))) - (10*CK*(barlam[1, p6]*barlam[2, p5] - barlam[1, 
                 p5]*barlam[2, p6])^5*(-(barlam[1, p7]*barlam[2, p2]) + 
              barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                ((lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (-(lam[1, p3]*lam[2, p2]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*lam[2, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                 lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              lam[1, p2]*((lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (-(lam[1, p3]*lam[2, p2]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])))) + lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             ((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                 ((lam[1, p3]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) - lam[1, et5]*lam[2, p3]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                       m1])))) - (barlam[1, p2]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])) + ((lam[1, p3]*lam[2, et5]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) - lam[1, et5]*lam[2, p3]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*
             (((lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (-(lam[1, p3]*lam[2, p2]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])))) + lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              ((lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (-(lam[1, p3]*lam[2, p2]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])))) + lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1]))) + (barlam[1, p2]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])))*
             (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p7]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))^2*
             (((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) + ((lam[1, p3]*lam[2, et5]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])) - ((barlam[1, p2]*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                 ((lam[1, p3]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) - lam[1, et5]*lam[2, p3]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])))*
             (-(((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])) + ((lam[1, p3]*lam[2, et5]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])) + ((lam[1, p3]*lam[2, et5]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
                ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1]))))/
            ((-(lam[2, p2]*(lam[1, p2]*((barlam[2, p2]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + ((barlam[2, p7]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]))) + lam[1, p2]*(lam[2, p2]*((barlam[2, p2]*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))*
             (-((lam[2, p6] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                         p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                   (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])))*(lam[1, p5] - (lam[1, et6]*(-(lam[2, p3]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
                    lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                        p7]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])))) + (lam[1, p6] - (lam[1, et6]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[2, p5] - (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                        p7] + lam[1, p4]*spb[p4, p7])) + lam[1, p3]*
                    (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))))*
             ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
                  ((lam[1, p3]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))) - (barlam[1, p5]*(-(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) - ((lam[1, p3]*lam[2, et5]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))))^2*(-((barlam[2, p6]*(-(barlam[1, p2]*
                     (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) - ((lam[1, p3]*lam[2, et5]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et5]*lam[2, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))) + (barlam[1, p6]*(-(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])) - ((lam[1, p3]*lam[2, et5]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1])))))^2*(lam[2, p2]*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                  {m1, p4}, m1]))*(-(((lam[2, et5]*(-((-(barlam[1, p7]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*
                      (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                    (-(lam[1, p3]*lam[2, p2]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*lam[2, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                    (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
                 lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              ((lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p7])*(-(lam[2, p2]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                   (-(lam[1, p3]*lam[2, p2]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
                   (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, 
                          p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                          lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                        (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])))) + lam[1, p3]*(-((barlam[1, p4]*barlam[2, p3]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                  m1]))) - (10*CK*(barlam[1, p6]*barlam[2, p5] - 
              barlam[1, p5]*barlam[2, p6])*(barlam[1, p7]*barlam[2, p6] - 
              barlam[1, p6]*barlam[2, p7])*(lam[2, p2]*(lam[1, p6] - 
                (lam[1, et5]*(-(lam[1, p3]*lam[2, p2]*(-((barlam[1, p4]*
                         barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) + lam[1, p2]*lam[2, p3]*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                (barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (barlam[1, p2]*
                  (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) - lam[1, p2]*(
                lam[2, p6] - (lam[2, et5]*(-(lam[1, p3]*lam[2, p2]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                (barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (barlam[1, p2]*
                  (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p2]*(lam[1, p5] - (lam[1, et5]*(-(lam[1, p3]*lam[2, p2]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                (barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (barlam[1, p2]*
                  (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) - lam[1, p2]*(
                lam[2, p5] - (lam[2, et5]*(-(lam[1, p3]*lam[2, p2]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                (barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (barlam[1, p2]*
                  (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - ((lam[1, p3]*lam[2, et5]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                       lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))))) + (barlam[1, p5]*(-(barlam[2, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  ((lam[1, p3]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))^
              2*(-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - ((lam[1, p3]*lam[2, et5]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                       m1]))))) + (barlam[1, p6]*(-(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                 ((lam[1, p3]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) - lam[1, et5]*lam[2, p3]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                 (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*
             ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - ((lam[1, p3]*lam[2, et5]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                 (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
              (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - ((lam[1, p3]*lam[2, et5]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                 (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - ((lam[1, p3]*lam[2, et5]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                       m1]))))) + (barlam[1, p7]*(-(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                 ((lam[1, p3]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) - lam[1, et5]*lam[2, p3]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                 (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p2]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))^5)/
            (((lam[2, p6] - (lam[2, et5]*(-(lam[1, p3]*lam[2, p2]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[1, p5] - (lam[1, et5]*(-(lam[1, p3]*lam[2, p2]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
              (lam[1, p6] - (lam[1, et5]*(-(lam[1, p3]*lam[2, p2]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[2, p5] - (lam[2, et5]*(-(lam[1, p3]*lam[2, p2]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))))*
             (-(lam[2, p2]*(lam[1, p5] - (lam[1, et5]*(-(lam[1, p3]*
                      lam[2, p2]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) + 
                    lam[1, p2]*lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))*((barlam[2, p6]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - (lam[1, et6]*
                   (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                      barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])))*((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                    (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) + 
              lam[1, p2]*(lam[2, p5] - (lam[2, et5]*(-(lam[1, p3]*lam[2, p2]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                (barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (barlam[1, p2]*
                  (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + ((lam[1, p3]*lam[2, et5]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                       lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))))) + (barlam[1, p2]*(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  ((lam[1, p3]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))^
              2*(-((lam[2, p6] - (lam[2, et5]*(-(lam[1, p3]*lam[2, p2]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - (lam[2, et6]*
                   (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (lam[1, p6] - (lam[1, et5]*(-(lam[1, p3]*lam[2, p2]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                    lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-(lam[1, p3]*lam[2, p2]*(-((barlam[1, p4]*barlam[2, p3]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                   barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) + 
              lam[1, p2]*lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*
                   spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                  barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
             (-(((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2]) + ((lam[1, p3]*lam[2, et5]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                       lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) + ((barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  ((lam[1, p3]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))^2) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p6])*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                p6])*((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                 ((lam[1, p3]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) - lam[1, et5]*lam[2, p3]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                 (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))) - 
              (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - ((lam[1, p3]*lam[2, et5]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                 (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - ((lam[1, p3]*lam[2, et5]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                       m1]))))) + (barlam[1, p2]*(-(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                 ((lam[1, p3]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) - lam[1, et5]*lam[2, p3]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                 (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) - ((lam[1, p3]*lam[2, et5]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                       lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))))) + (barlam[1, p5]*(-(barlam[2, p7]*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                  ((lam[1, p3]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))^
              2*(-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) - ((lam[1, p3]*lam[2, et5]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                       m1]))))) + (barlam[1, p6]*(-(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                 ((lam[1, p3]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) - lam[1, et5]*lam[2, p3]*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                 (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))))*
             (-((lam[2, p6] - (lam[2, et5]*(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - (lam[2, et6]*
                   (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7]))*(-((barlam[1, p5]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*((barlam[2, p7]*
                   (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (lam[1, p6] - (lam[1, et5]*(lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                (barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*
                  (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((lam[2, p5] - (lam[2, et5]*(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1])) - (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) - (lam[2, et6]*
                   (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7]))*((barlam[1, p6]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                      barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])))*((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                    (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                      barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                 (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
              (lam[1, p5] - (lam[1, et5]*(lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                (barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*
                  (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p7]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))^5)/
            ((lam[2, p2]*(lam[1, p6] - (lam[1, et5]*(lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
              lam[1, p2]*(lam[2, p6] - (lam[2, et5]*(lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))))*
             ((lam[2, p6] - (lam[2, et5]*(lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[1, p5] - (lam[1, et5]*(lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
              (lam[1, p6] - (lam[1, et5]*(lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p5]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[2, p5] - (lam[2, et5]*(lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))))*
             (-((barlam[2, p7]*(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])) + ((lam[1, p3]*lam[2, et5]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                       lam[2, p3]*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, 
                          m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))))) + (barlam[1, p7]*(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                  ((lam[1, p3]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))))^
              2*((lam[2, p5] - (lam[2, et5]*(lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[2, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                (barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*
                  (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
              (lam[1, p5] - (lam[1, et5]*(lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                   (barlam[1, p6]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[2, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) - 
                (lam[1, et6]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p4]*spb[p4, p7])) + lam[1, p3]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7]))*
                  ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))/((barlam[1, p6]*
                    barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                (barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])) - (barlam[1, p7]*
                  (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
             (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                  {m1, p4}, m1])*(-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                  spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, p3]*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*(
                -((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                   {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1]))*
             (-(((barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])) + ((lam[1, p3]*lam[2, et5]*(-((barlam[1, p4]*
                          barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]) + (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                         spba[p7, {m1, p4}, m1]) - lam[1, et5]*lam[2, p3]*
                       (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*
                         spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                         {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                  ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, 
                      m1])/spba[p7, {m1, p4}, m1]))) + ((barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) + 
                  ((lam[1, p3]*lam[2, et5]*(-((barlam[1, p4]*barlam[2, p3]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*lam[2, p3]*
                      (-((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p3]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) + (barlam[2, p4]*spa[p4, m1]*
                    (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                       barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                   spba[p7, {m1, p4}, m1])))^2))*
          ((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
            (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])^
           5)/((-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                p7])) + lam[1, p3]*(lam[2, m1]*spb[m1, p7] + 
             lam[2, p4]*spb[p4, p7]))*
          (-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]) - (barlam[1, p4]*spa[p4, m1]*
                  (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
              ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*(
                (barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1] - (barlam[1, p3]*barlam[2, p4]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1]))) + (barlam[1, p3]*(barlam[2, p3]*
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) - 
               (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, 
                      p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                   (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
               lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                 spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                 barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2*
          (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p3]*(lam[1, p3]*
                   lam[2, et6] - lam[1, et6]*lam[2, p3]) - (barlam[1, p4]*
                  spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                     lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                  {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                 lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1] - (barlam[1, p3]*barlam[2, p4]*
                  spa[p4, m1])/spba[p7, {m1, p4}, m1])*spba[p7, {m1, p4}, 
                m1])) + (barlam[1, p4]*spa[p4, m1]*(barlam[2, p3]*
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]) - 
               (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, 
                      p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                   (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et6] - 
               lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p3]*
                 spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p3]*
                 barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1])*
              spba[p7, {m1, p4}, m1]))^2) + 
        (((-10*CK*(-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                p5])*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p6])^5*((barlam[2, p3]*(-(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                 barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                  lam[2, et5] - lam[1, et5]*lam[2, p2])) - (barlam[1, p3]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                  lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             (-((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2]))) + (barlam[1, p3]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                  lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])) - barlam[1, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2]))) + (barlam[1, p5]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                    p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                  lam[2, et5] - lam[1, et5]*lam[2, p2])))*
             ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[
                2, p2]*(lam[1, p5] - (lam[1, et5]*(-(lam[2, p2]*(lam[1, p6] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p2]*(lam[2, p6] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))*((barlam[2, p6]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p5]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              (barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[
                1, p2]*(lam[2, p5] - (lam[2, et5]*(-(lam[2, p2]*(lam[1, p6] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p2]*(lam[2, p6] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))*((barlam[2, p6]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p5]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             ((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*lam[
                2, p2]*(-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p6] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p2]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p5]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])) - (barlam[1, p6]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p6])*lam[1, p2]*(
                -(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p6] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p2]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p5]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])))*(-((barlam[2, p5]*(-(barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              (barlam[1, p5]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                    m1])/spba[p7, {m1, p4}, m1])))*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))*(-(barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1]))/((-(barlam[1, p6]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                     spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
               ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))*(-(barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1]))/((-(barlam[1, p6]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                     spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2)/
            ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + barlam[1, p6]*(lam[2, et5]*
                      (lam[1, p6] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                       (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]))) + (barlam[1, p2]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])))^2*
             ((barlam[2, p6]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + barlam[1, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])) - (barlam[1, p6]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2])))^2*
             (-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*((lam[2, m1]*spb[m1, 
                        p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) + 
              lam[1, p2]*(lam[2, p6] - (lam[2, et6]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (lam[2, p3]*(lam[1, p5] - (lam[1, et5]*(-(lam[2, p2]*
                     (lam[1, p6] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p2]*(lam[2, p6] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))*((barlam[2, p6]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p5]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              lam[1, p3]*(lam[2, p5] - (lam[2, et5]*(-(lam[2, p2]*
                     (lam[1, p6] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p2]*(lam[2, p6] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))*((barlam[2, p6]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p5]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                lam[2, p2]*(-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p6] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))) + lam[1, p2]*
                      (lam[2, p6] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])*(-((barlam[2, p5]*
                        (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                   (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]))) + (barlam[1, p6]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p6])*lam[1, p2]*(
                -(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p6] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p2]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p5]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])))*((lam[2, p5] - (lam[2, et5]*
                  (-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p2]*(lam[2, p6] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))*((barlam[2, p6]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p5]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                -(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p6] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p2]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p5]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])) - (lam[1, p5] - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p2]*(lam[2, p6] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))*((barlam[2, p6]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p5]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                -(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p6] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p2]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p5]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])))) - 
           (10*CK*(-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p5])*(-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                barlam[2, p6])^5*((barlam[2, p2]*(-(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                 barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                    p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                  lam[2, et5] - lam[1, et5]*lam[2, p3])) - (barlam[1, p2]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                    p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                  lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - barlam[1, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3]))) + (barlam[1, p2]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                    p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                  lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - barlam[1, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3]))) + (barlam[1, p5]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                    p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                  lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*lam[
                2, p3]*(lam[1, p5] - (lam[1, et5]*(-(lam[2, p3]*(lam[1, p6] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p3]*(lam[2, p6] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))*((barlam[2, p6]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p5]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*lam[
                1, p3]*(lam[2, p5] - (lam[2, et5]*(-(lam[2, p3]*(lam[1, p6] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p3]*(lam[2, p6] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))*((barlam[2, p6]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p5]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*lam[
                2, p3]*(-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*lam[1, et5]*(-(lam[2, p3]*(lam[1, p6] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p3]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*(-((barlam[2, p5]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])) - (barlam[1, p6]*barlam[2, p3] - 
                barlam[1, p3]*barlam[2, p6])*lam[1, p3]*(
                -(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*lam[2, et5]*(-(lam[2, p3]*(lam[1, p6] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p3]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*(-((barlam[2, p5]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])))*(-((barlam[2, p5]*(-(barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              (barlam[1, p5]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                    m1])/spba[p7, {m1, p4}, m1])))*
             (((-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))*(-(barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1]))/((-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                     spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
               ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))*(-(barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1]))/((-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                     spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2)/
            ((-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) + barlam[1, p6]*(lam[2, et5]*
                      (lam[1, p6] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                       (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]))) + (barlam[1, p3]*
                 (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             ((barlam[2, p6]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + barlam[1, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])) - (barlam[1, p6]*
                 (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             (-(lam[2, p3]*(lam[1, p6] - (lam[1, et6]*((lam[2, m1]*spb[m1, 
                        p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) + 
              lam[1, p3]*(lam[2, p6] - (lam[2, et6]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (lam[2, p2]*(lam[1, p5] - (lam[1, et5]*(-(lam[2, p3]*
                     (lam[1, p6] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p3]*(lam[2, p6] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))*((barlam[2, p6]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p5]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              lam[1, p2]*(lam[2, p5] - (lam[2, et5]*(-(lam[2, p3]*
                     (lam[1, p6] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p3]*(lam[2, p6] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))*((barlam[2, p6]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p5]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                lam[2, p3]*(-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                      barlam[2, p6])*lam[1, et5]*(-(lam[2, p3]*(lam[1, p6] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))) + lam[1, p3]*
                      (lam[2, p6] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])*(-((barlam[2, p5]*
                        (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                   (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]))) + (barlam[1, p6]*barlam[2, p3] - 
                barlam[1, p3]*barlam[2, p6])*lam[1, p3]*(
                -(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*lam[2, et5]*(-(lam[2, p3]*(lam[1, p6] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p3]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*(-((barlam[2, p5]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])))*((lam[2, p5] - (lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, p6] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p6] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))*((barlam[2, p6]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p5]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                -(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*lam[1, et5]*(-(lam[2, p3]*(lam[1, p6] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p3]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*(-((barlam[2, p5]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])) - (lam[1, p5] - (lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, p6] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p6] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))*((barlam[2, p6]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p5]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                -(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*lam[2, et5]*(-(lam[2, p3]*(lam[1, p6] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p3]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*(-((barlam[2, p5]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])))) - (10*CK*(barlam[1, p3]*barlam[2, p2] - 
              barlam[1, p2]*barlam[2, p3])*(-(barlam[1, p6]*barlam[2, p2]) + 
               barlam[1, p2]*barlam[2, p6])^2*(-(barlam[1, p6]*barlam[2, 
                 p3]) + barlam[1, p3]*barlam[2, p6])*
             ((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[1, p6]*
                  (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])) - (barlam[1, p3]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[2, p6]*(lam[2, et5]*
                    (lam[1, p6] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])))*((barlam[2, p6]*
                (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[1, p6]*(lam[2, et5]*
                    (lam[1, p6] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])) - (barlam[1, p6]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[2, p6]*(lam[2, et5]*
                    (lam[1, p6] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])))*(-((barlam[2, p6]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + barlam[1, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p3]))) + (barlam[1, p6]*(barlam[2, p2]*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + barlam[2, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                     (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                      ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                          p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                   lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             (-(lam[2, p2]*(lam[1, p6] + (lam[1, et5]*(-((barlam[1, p3]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                      (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                    (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))) + lam[1, p2]*
                       (lam[2, p6] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))) - (-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     (-(lam[2, p3]*(lam[1, p6] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, 
                          p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))/((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))) + lam[1, p3]*
                       (lam[2, p6] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) + 
              lam[1, p2]*(lam[2, p6] + (lam[2, et5]*(-((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))) + lam[1, p2]*
                      (lam[2, p6] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[2, p3]*
                       (lam[1, p6] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))) + lam[1, p3]*
                      (lam[2, p6] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3])) - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-(lam[2, p3]*(lam[1, p6] + (lam[1, et5]*(-((barlam[1, p3]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                      (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                    (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p6])*(-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))) + lam[1, p2]*
                       (lam[2, p6] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))) - (-(barlam[1, p6]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                     (-(lam[2, p3]*(lam[1, p6] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, 
                          p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))/((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))) + lam[1, p3]*
                       (lam[2, p6] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))))))/
                  ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) + 
              lam[1, p3]*(lam[2, p6] + (lam[2, et5]*(-((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))) + lam[1, p2]*
                      (lam[2, p6] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[2, p3]*
                       (lam[1, p6] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))) + lam[1, p3]*
                      (lam[2, p6] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3])) - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               (barlam[1, p5]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, 
                     m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1])))^5)/
            ((-(lam[1, p3]*lam[2, p2]) + lam[1, p2]*lam[2, p3])*
             (-(((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*barlam[2, p6])*
                  lam[1, p2] + (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p6])*lam[1, p3])*lam[2, p3]) + 
              lam[1, p3]*((barlam[1, p6]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p6])*lam[2, p2] + (barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*lam[2, p3]))*
             (-((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3]) - barlam[1, p6]*
                    (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                     lam[1, et5]*(lam[2, p6] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                          (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (-(barlam[1, p6]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]))) + (barlam[1, p5]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) - barlam[2, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                    lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))^
              2*(lam[2, p2]*(lam[1, p6] + (lam[1, et5]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(barlam[1, p6]*barlam[2, p2]) + 
                     barlam[1, p2]*barlam[2, p6])*(-(lam[2, p2]*(lam[1, p6] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))) + lam[1, p2]*
                      (lam[2, p6] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[2, p3]*
                       (lam[1, p6] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))) + lam[1, p3]*
                      (lam[2, p6] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3])) - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              lam[1, p2]*(lam[2, p6] + (lam[2, et5]*(-((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                   (-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p6])*(-(lam[2, p2]*(lam[1, p6] - (lam[1, et6]*
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))) + lam[1, p2]*
                      (lam[2, p6] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) - (-(barlam[1, p6]*barlam[2, 
                        p3]) + barlam[1, p3]*barlam[2, p6])*(-(lam[2, p3]*
                       (lam[1, p6] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))) + lam[1, p3]*
                      (lam[2, p6] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p6]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3])) - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-((lam[2, p5] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])) + (lam[1, p5] - 
                (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                      spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*(
                (barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1]))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                       lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) - barlam[2, p6]*(lam[2, et5]*
                      (lam[1, p6] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                       (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))*(-(barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                   (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                    spba[p7, {m1, p4}, m1]))/(((-(barlam[1, p6]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                   (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p3]))*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) - barlam[1, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))))*(-(barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                  (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1]))/(((-(barlam[1, p6]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p6])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1])))^2) - 
           (10*CK*(-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*
                barlam[2, p5])^5*((barlam[2, p3]*(-(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                 barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])) - (barlam[1, p3]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])))*(-((barlam[2, p3]*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]))) + (barlam[1, p3]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])))*(-((barlam[2, p6]*
                  (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                       lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]))) + (barlam[1, p6]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])))^2*((barlam[1, p5]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p5])*lam[2, p2]*(lam[1, p6] - 
                (lam[1, et5]*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p2]*(lam[2, p5] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
                  (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[2, p6]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                1, p2]*(lam[2, p6] - (lam[2, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p2]*(lam[2, p5] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
                  (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[2, p6]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             ((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                2, p2]*(-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p2]*(lam[2, p5] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])) - (barlam[1, p5]*barlam[2, p2] - 
                barlam[1, p2]*barlam[2, p5])*lam[1, p2]*(
                -(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p2]*(lam[2, p5] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])))*(-((barlam[2, p3]*(-(barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              (barlam[1, p3]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                    m1])/spba[p7, {m1, p4}, m1])))*((barlam[2, p6]*
                (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                    m1])/spba[p7, {m1, p4}, m1])) - (barlam[1, p6]*
                (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                    m1])/spba[p7, {m1, p4}, m1])))*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))*
                (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                    m1])/spba[p7, {m1, p4}, m1])) - 
              ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))*
                (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                    m1])/spba[p7, {m1, p4}, m1]))))/
            ((-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]))) + (barlam[1, p2]*
                 (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])))^2*((barlam[2, p5]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])) - (barlam[1, p5]*(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])))^2*
             (-((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                lam[2, p2]*(lam[1, p6] - (lam[1, et5]*(-(lam[2, p2]*
                      (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p2]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
                   (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*((barlam[2, p6]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])))) - (lam[1, et6]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                      barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) + 
              (barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*lam[
                1, p2]*(lam[2, p6] - (lam[2, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p2]*(lam[2, p5] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
                  (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[2, p6]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, 
                        p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) + 
              lam[1, p2]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (lam[2, p3]*(-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p2]*(lam[2, p5] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])) - lam[1, p3]*(
                -(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p2]*(lam[2, p5] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])))*(-((lam[2, p6] - (lam[2, et5]*
                   (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, 
                          p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))/((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))) + lam[1, p2]*
                     (lam[2, p5] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))*(-((barlam[2, p5]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*((barlam[2, p6]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])))) - (lam[2, et6]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                      barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                (-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*lam[1, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p2]*(lam[2, p5] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))/
                   ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                    ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                   (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]))) + (lam[1, p6] - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p2]*(lam[2, p5] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
                  (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*((barlam[2, p6]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                -(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*lam[2, et5]*(-(lam[2, p2]*(lam[1, p5] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p2]*(lam[2, p5] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))/
                  ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])))) - 
           (10*CK*(-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                barlam[2, p5])^5*((barlam[2, p2]*(-(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                 barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                 barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])) - (barlam[1, p2]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                 barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])))*(-((barlam[2, p2]*
                 (-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3]))) + (barlam[1, p2]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                 barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])))*(-((barlam[2, p6]*
                  (-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                       lam[2, p3])) - barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))) + (barlam[1, p6]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])))^2*((barlam[1, p5]*barlam[2, p3] - 
                barlam[1, p3]*barlam[2, p5])*lam[2, p3]*(lam[1, p6] - 
                (lam[1, et5]*(-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p5] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
                  (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[2, p6]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*lam[
                1, p3]*(lam[2, p6] - (lam[2, et5]*(-(lam[2, p3]*(lam[1, p5] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p5] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
                  (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[2, p6]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             ((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*lam[
                2, p3]*(-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*lam[1, et5]*(-(lam[2, p3]*(lam[1, p5] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p5] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])) - (barlam[1, p5]*barlam[2, p3] - 
                barlam[1, p3]*barlam[2, p5])*lam[1, p3]*(
                -(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*lam[2, et5]*(-(lam[2, p3]*(lam[1, p5] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p5] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])))*(-((barlam[2, p2]*(-(barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                  (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                   spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, m1]*
                   (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                       spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                    m1])/spba[p7, {m1, p4}, m1])))*((barlam[2, p6]*
                (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                    m1])/spba[p7, {m1, p4}, m1])) - (barlam[1, p6]*
                (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                    m1])/spba[p7, {m1, p4}, m1])))*
             (((-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))*
                (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                    m1])/spba[p7, {m1, p4}, m1])) - 
              ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                     (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))*
                (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                    m1])/spba[p7, {m1, p4}, m1]))))/
            ((-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) + barlam[1, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                   barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))) + (barlam[1, p3]*
                 (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])))^2*((barlam[2, p5]*
                 (barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + barlam[1, p5]*(lam[2, et5]*(lam[1, p5] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])) - (barlam[1, p5]*(barlam[2, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])))^2*
             (-((barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*
                lam[2, p3]*(lam[1, p6] - (lam[1, et5]*(-(lam[2, p3]*
                      (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))))) + lam[1, p3]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
                   (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*((barlam[2, p6]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])))) - (lam[1, et6]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                      barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) + 
              (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*barlam[2, p5])*lam[
                1, p3]*(lam[2, p6] - (lam[2, et5]*(-(lam[2, p3]*(lam[1, p5] - 
                      (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p5] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
                  (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[2, p6]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, 
                        p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) + 
              lam[1, p3]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*spb[m1, 
                       p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (lam[2, p2]*(-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                     barlam[2, p6])*lam[1, et5]*(-(lam[2, p3]*(lam[1, p5] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p5] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])) - lam[1, p2]*(
                -(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*lam[2, et5]*(-(lam[2, p3]*(lam[1, p5] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p5] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])))*(-((lam[2, p6] - (lam[2, et5]*
                   (-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, 
                          p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))/((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))) + lam[1, p3]*
                     (lam[2, p5] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))*(-((barlam[2, p5]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*((barlam[2, p6]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])))) - (lam[2, et6]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                      barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                (-(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                       p6])*lam[1, et5]*(-(lam[2, p3]*(lam[1, p5] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p5] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))/
                   ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                    ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))))) + (lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                   (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]))) + (lam[1, p6] - (lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p5] - (lam[2, et6]*
                       ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
                  (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[2, p6]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                -(((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*lam[2, et5]*(-(lam[2, p3]*(lam[1, p5] - 
                       (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p5] - (lam[2, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])))) - (10*CK*(barlam[1, p3]*barlam[2, p2] - 
              barlam[1, p2]*barlam[2, p3])*(-(barlam[1, p5]*barlam[2, p2]) + 
               barlam[1, p2]*barlam[2, p5])^2*(-(barlam[1, p5]*barlam[2, 
                 p3]) + barlam[1, p3]*barlam[2, p5])*
             ((barlam[2, p3]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[1, p5]*
                  (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])) - (barlam[1, p3]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[2, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])))*((barlam[2, p5]*
                (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[1, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])) - (barlam[1, p5]*
                (barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[2, p5]*(lam[2, et5]*
                    (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])))*(-((barlam[2, p5]*
                 (barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]))) + 
              (barlam[1, p5]*(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[2, p5]*
                  (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                   lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                        barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])))*(-(lam[2, p2]*(lam[1, p5] + 
                 (lam[1, et5]*(-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                        barlam[2, p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                        lam[2, p3])) - (-(barlam[1, p5]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p5])*(-(lam[2, p2]*
                        (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))) + lam[1, p2]*
                       (lam[2, p5] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))) - (-(barlam[1, p5]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p5])*
                     (-(lam[2, p3]*(lam[1, p5] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, 
                          p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))/((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))) + lam[1, p3]*
                       (lam[2, p5] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) + 
              lam[1, p2]*(lam[2, p5] + (lam[2, et5]*(-((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                   (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p2]*(lam[2, p5] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) - (-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(-(lam[2, p3]*(lam[1, p5] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p5] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                      spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-(lam[2, p3]*(lam[1, p5] + (lam[1, et5]*(-((barlam[1, p3]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                      (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                    (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p5])*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p2]*(lam[2, p5] - (lam[2, et6]*
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) - (-(barlam[1, p5]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p5])*(-(lam[2, p3]*
                        (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                          ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))))) + lam[1, p3]*
                       (lam[2, p5] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                          ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                         ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))))))/
                  ((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) + 
              lam[1, p3]*(lam[2, p5] + (lam[2, et5]*(-((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                   (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p2]*(lam[2, p5] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) - (-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(-(lam[2, p3]*(lam[1, p5] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p5] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                      spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               (barlam[1, p6]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, 
                     m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1])))^5)/
            ((-(lam[1, p3]*lam[2, p2]) + lam[1, p2]*lam[2, p3])*
             (-(((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*barlam[2, p5])*
                  lam[1, p2] + (barlam[1, p5]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p5])*lam[1, p3])*lam[2, p3]) + 
              lam[1, p3]*((barlam[1, p5]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p5])*lam[2, p2] + (barlam[1, p5]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p5])*lam[2, p3]))*
             (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3]) - barlam[1, p5]*
                    (lam[2, et5]*(lam[1, p5] - (lam[1, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, 
                          p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, 
                          m1]))/((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*
                          barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1])))) - lam[1, et5]*
                      (lam[2, p5] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))))))/((-(barlam[1, p5]*barlam[2, 
                       p2]) + barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*
                     lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p3]))) + (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                      lam[2, et5] - lam[1, et5]*lam[2, p2])) - barlam[2, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) - 
                  barlam[2, p5]*(lam[2, et5]*(lam[1, p5] - (lam[1, et6]*
                        ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
                    lam[1, et5]*(lam[2, p5] - (lam[2, et6]*((lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             (lam[2, p2]*(lam[1, p5] + (lam[1, et5]*(-((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                   (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p2]*(lam[2, p5] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) - (-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(-(lam[2, p3]*(lam[1, p5] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p5] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                      spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              lam[1, p2]*(lam[2, p5] + (lam[2, et5]*(-((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])) - 
                   (-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(-(lam[2, p2]*(lam[1, p5] - (lam[1, et6]*
                          ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p2]*(lam[2, p5] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) - (-(barlam[1, p5]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p5])*(-(lam[2, p3]*(lam[1, p5] - 
                        (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]))))) + lam[1, p3]*(lam[2, p5] - (lam[2, et6]*
                         ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1])))))))/((-(barlam[1, p5]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p5])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2]) + (-(barlam[1, p5]*barlam[2, 
                       p3]) + barlam[1, p3]*barlam[2, p5])*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                      spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-((lam[2, p6] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])) + (lam[1, p6] - 
                (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, 
                       p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                      spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                      spba[p7, {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, 
                       p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                   (barlam[1, p4]*barlam[2, p5]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                 spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                  spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                  barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                       lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) - barlam[2, p5]*(lam[2, et5]*
                      (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                        ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                       (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                          (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                          barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))*
                  (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 (((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                      barlam[2, p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3]))*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) - barlam[1, p5]*(lam[2, et5]*
                     (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                          lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - (lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7])*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        ((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                       ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[
                          2, p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])))) - lam[1, et5]*(lam[2, p5] - 
                      (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                          spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - (lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7])*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*((barlam[1, p6]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p6]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))/((barlam[1, p6]*barlam[2, p5] - 
                         barlam[1, p5]*barlam[2, p6])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))))*
                 (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                (((-(barlam[1, p5]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p5])*(lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, 
                      p2]) + (-(barlam[1, p5]*barlam[2, p3]) + barlam[1, p3]*
                     barlam[2, p5])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]))*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]))*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2) - 
           (10*CK*(barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
             (barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])^5*
             (-(lam[2, p2]*((lam[1, et5]*(-((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                       lam[1, p2]*lam[2, p3])) - (-(lam[2, p2]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                        ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[2, p2]*(-(barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                          (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                          spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - (-(lam[2, p3]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                        ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[2, p3]*(-(barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                          (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                          spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p3]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*
                        (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*
                        (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + (lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                   (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]))) + lam[1, p2]*((lam[2, et5]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                         (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                          spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - (-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                       ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                         (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                          spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[1, p3]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])))*(-(lam[2, p3]*((lam[1, et5]*
                   (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                         p3])) - (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                       ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                          (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                          spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - (-(lam[2, p3]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                        ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[2, p3]*(-(barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                          (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                          spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                         (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                          spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, 
                          p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p3]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*
                        (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*
                        (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                         (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                        (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                         spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))) + (lam[1, p7] + (lam[1, m1]*
                     s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                     barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                   (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]))) + lam[1, p3]*((lam[2, et5]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                         (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                          spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - (-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                       ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                         (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                          spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[1, p3]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])))*((barlam[2, p3]*(barlam[1, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]))*(-(barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                    (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]))) + (lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1])))) - (barlam[1, p3]*(barlam[2, p2]*
                  (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                 barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]))*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]))) + (lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1])))))*(-((barlam[2, p2]*
                  (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p2]*
                 (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1])))^2*
             (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                     m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                        spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                       lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p3]*
                (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                    m1])/spba[p7, {m1, p4}, m1])))*
             (((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + ((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))) + (lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                   barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
              ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + ((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))) + (lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                   barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
             (-(((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + ((lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                (((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                   (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
              ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                    lam[2, p2]) + barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + ((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                    lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                       spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/(
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))) + (lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                    spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                   barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
            ((-(lam[1, p3]*lam[2, p2]) + lam[1, p2]*lam[2, p3])*
             (-(lam[2, p3]*(lam[1, p2]*((barlam[2, p2]*(-(barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p2]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))) + lam[1, p3]*((barlam[2, p3]*
                     (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))) + lam[1, p3]*(lam[2, p2]*
                 ((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*
                       spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                       {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1])) - (barlam[1, p2]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]))) + lam[2, p3]*((barlam[2, p3]*
                    (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                  (barlam[1, p3]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*
                       spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                       {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1])))))*(-((lam[2, p6] - (lam[2, et6]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                      barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                (lam[1, p5] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))) + 
              (lam[1, p6] - (lam[1, et6]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p4]*spa[p4, m1])/
                     spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[2, p5] - (lam[2, et6]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7])*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]))*((barlam[1, p6]*barlam[2, p4]*spa[p4, m1])/
                    spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p6]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (lam[2, p2]*((lam[1, et5]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, p2] - 
                      lam[1, p2]*lam[2, p3])) - (-(lam[2, p2]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                       ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                         (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                          spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - (-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                       ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                         (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                          spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[1, p3]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])))) + (lam[1, p7] + (lam[1, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])) - lam[1, p2]*((lam[2, et5]*
                  (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, 
                        p3])) - (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                         (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                          spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) - (-(lam[2, p3]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                       ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                         (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                          spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                        (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[1, p3]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p4])/spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*
                          spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1])))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])))) + (lam[2, p7] + (lam[2, m1]*
                    s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                    barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                  (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                    {m1, p4}, m1])))*((barlam[2, p5]*(-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])) - 
                  barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))) + (lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))) - (barlam[1, p5]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) - ((lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))) + (lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))))^2*
             (-((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3]) - 
                   ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                       ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*
                       (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                          m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                          {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))) + (barlam[1, p6]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) - ((lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                  (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))) + (lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))))^2) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                p6])*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                p6])*(lam[2, p2]*(lam[1, p6] - (lam[1, et5]*
                  (-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) + 
                   lam[1, p2]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                (barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*
                     spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p2]*(lam[2, p6] - (lam[2, et5]*(-(lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                (barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*
                     spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p2]*(lam[1, p5] - (lam[1, et5]*(-(lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                (barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*
                     spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p2]*(lam[2, p5] - (lam[2, et5]*(-(lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                (barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*
                     spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[2, p3]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - ((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*
                       spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                       {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])))) - (barlam[1, p3]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]))*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])))))*(-((barlam[2, p3]*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]))))) + (barlam[1, p3]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]))*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])))))*(-((barlam[2, p5]*
                  (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                       lam[2, p2])) - ((lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                       ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))) + (barlam[1, p5]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1])))))^2*(-((barlam[2, p6]*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]))))) + (barlam[1, p6]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]))*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])))))*(-((barlam[2, p2]*
                  (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p2]*
                 (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1])))^5)/
            ((lam[2, p3]*(lam[1, p6] - (lam[1, et5]*(-(lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              lam[1, p3]*(lam[2, p6] - (lam[2, et5]*(-(lam[2, p2]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             ((lam[2, p6] - (lam[2, et5]*(-(lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[1, p5] - (lam[1, et5]*(-(lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              (lam[1, p6] - (lam[1, et5]*(-(lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[2, p5] - (lam[2, et5]*(-(lam[2, p2]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-(lam[2, p2]*(lam[1, p5] - (lam[1, et5]*(-(lam[2, p2]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p2]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p2])) - (lam[1, et6]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                      barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                ((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*
                      spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                         lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                      {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - (barlam[1, p2]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])))) + lam[1, p2]*(lam[2, p5] - 
                (lam[2, et5]*(-(lam[2, p2]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]))*((barlam[2, p6]*
                     (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                (barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*
                     spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[2, p2]*(barlam[1, p2]*(lam[1, p2]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p2]) + ((lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                       ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(-((barlam[2, p2]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))) + (barlam[1, p2]*(barlam[2, p2]*
                   (lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2]) + 
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                         barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                         barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1])))))^2*(-(lam[2, p2]*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])) + lam[1, p2]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*(
                (barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1]))*
             (-(((barlam[2, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                      lam[2, p2]) + ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                       ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))*(-(barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                   (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                    spba[p7, {m1, p4}, m1]))/((lam[1, p2]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p2])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[2, p2]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               ((barlam[1, p2]*(lam[1, p2]*lam[2, et5] - lam[1, et5]*
                     lam[2, p2]) + ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p2]*lam[2, et5] - lam[1, et5]*lam[2, p2])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))) + (barlam[1, p2]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1])))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                p6])*(barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                p6])*(lam[2, p3]*(lam[1, p6] - (lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                        barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) + 
                   lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                       barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                (barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (barlam[1, p3]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*
                     spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p3]*(lam[2, p6] - (lam[2, et5]*(-(lam[2, p3]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                (barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (barlam[1, p3]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*
                     spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (lam[2, p3]*(lam[1, p5] - (lam[1, et5]*(-(lam[2, p3]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                (barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (barlam[1, p3]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*
                     spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) - 
              lam[1, p3]*(lam[2, p5] - (lam[2, et5]*(-(lam[2, p3]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                (barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (barlam[1, p3]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*
                     spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             ((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - ((lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, m1]*
                      (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                      m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]))*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*
                       spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                       {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])))) - (barlam[1, p2]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]))*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])))))*(-((barlam[2, p2]*
                 (-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]))))) + (barlam[1, p2]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]))*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])))))*(-((barlam[2, p5]*
                  (-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                       lam[2, p3])) - ((lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                       ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))) + (barlam[1, p5]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1])))))^2*(-((barlam[2, p6]*
                 (-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]))))) + (barlam[1, p6]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1]))*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]))))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])))))*(-((barlam[2, p3]*
                  (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, m1]*
                     (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                         spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                        lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + (barlam[1, p3]*
                 (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                     {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                     m1])/spba[p7, {m1, p4}, m1])))^5)/
            ((lam[2, p2]*(lam[1, p6] - (lam[1, et5]*(-(lam[2, p3]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              lam[1, p2]*(lam[2, p6] - (lam[2, et5]*(-(lam[2, p3]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             ((lam[2, p6] - (lam[2, et5]*(-(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[1, p5] - (lam[1, et5]*(-(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))) - 
              (lam[1, p6] - (lam[1, et5]*(-(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p5]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])) - (lam[1, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p5]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p5]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                lam[2, p5] - (lam[2, et5]*(-(lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                     ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                         m1])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                      spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                  ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, 
                         m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                          lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                        {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])))))*
             (-(lam[2, p3]*(lam[1, p5] - (lam[1, et5]*(-(lam[2, p3]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                        spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1])) + lam[1, p3]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1])*((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                        spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                   ((barlam[2, p6]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                    barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - (lam[1, et6]*
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                        p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                        {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                      barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                  ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, 
                      p6])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*
                ((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*
                      spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                         lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                          spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                      {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])) - (barlam[1, p3]*(-(barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                    (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                        (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                     spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                       spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                        p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                    (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                      {m1, p4}, m1])))) + lam[1, p3]*(lam[2, p5] - 
                (lam[2, et5]*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                        barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                    ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, 
                        m1])/spba[p7, {m1, p4}, m1]))*((barlam[2, p6]*
                     (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])) - (barlam[1, p6]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((barlam[1, p6]*barlam[2, p5] - 
                   barlam[1, p5]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])) - (lam[2, et6]*
                  ((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*((barlam[1, p6]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                     barlam[2, p6]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))/
                 ((barlam[1, p6]*barlam[2, p5] - barlam[1, p5]*barlam[2, p6])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))))*(
                (barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) + (barlam[1, p4]*
                     spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])) - 
                (barlam[1, p3]*(-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))) + (barlam[2, p4]*
                     spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p4]*spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*
                         spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, 
                     {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))))*
             (-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) + ((lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                       ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]) - lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]))*(-(barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))))) + (barlam[1, p3]*(barlam[2, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                         {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                         barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1])*((barlam[1, p7]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1] - (barlam[1, p4]*
                         barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1]))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1])))))^2*(-(lam[2, p3]*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                   m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                  spba[p7, {m1, p4}, m1])) + lam[1, p3]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*(
                (barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1] - (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1]))*
             (-(((barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3]) + ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                          barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                        (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                       ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                          {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                          spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                     (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[2, p4]*spa[p4, m1]*
                        (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                        m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, p4]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))*(-(barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                   (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                    spba[p7, {m1, p4}, m1]))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                       {m1, p4}, m1]))*(-((barlam[2, p3]*(-(barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                       (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                        spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                         (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                       lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[
                          2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1])))*(-((barlam[1, p7]*barlam[2, p4]*
                      spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                     barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1]))) + 
               ((barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1])*((barlam[1, p7]*
                         barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1] - 
                       (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])*
                      ((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                         {m1, p4}, m1] - (barlam[1, p4]*barlam[2, p7]*
                         spa[p4, m1])/spba[p7, {m1, p4}, m1]))*
                    (-(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                          {m1, p4}, m1]))) + (barlam[1, p4]*spa[p4, m1]*
                       (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*
                          spb[p4, p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, 
                       m1]))/((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/
                       spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*
                       spa[p4, m1])/spba[p7, {m1, p4}, m1])))*
                 (-(barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                         m1]))) + (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - 
                     lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                        spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
                 (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                          m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                      (barlam[1, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                          (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                       spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                         spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                          p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                      (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                        {m1, p4}, m1]))) + (barlam[1, p3]*(-(barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/
                          spba[p7, {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))) + 
                     (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*
                          spb[m1, p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                         (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                      spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                        spba[p7, {m1, p4}, m1]))*(-((barlam[1, p7]*barlam[2, 
                         p4]*spa[p4, m1])/spba[p7, {m1, p4}, m1]) + 
                     (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/spba[p7, 
                       {m1, p4}, m1])))*(-((barlam[1, p7]*barlam[2, p4]*
                     spa[p4, m1])/spba[p7, {m1, p4}, m1]) + (barlam[1, p4]*
                    barlam[2, p7]*spa[p4, m1])/spba[p7, {m1, p4}, m1])))^2))*
          (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
               m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
             spba[p7, {m1, p4}, m1])^5)/
         (((lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])*
            (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
           (lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])*
            (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
          (-((barlam[2, p7]*(barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, 
                      {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                  (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
              ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*(
                -((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                   {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1]))) + (barlam[1, p7]*(barlam[2, p7]*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                     {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1])) - 
               (barlam[2, p4]*spa[p4, m1]*(lam[2, et6]*(lam[1, m1]*spb[m1, 
                      p7] + lam[1, p4]*spb[p4, p7]) - lam[1, et6]*
                   (lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7])))/
                spba[p7, {m1, p4}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]) - lam[1, et6]*
                (lam[2, p7] + (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
              (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                spba[p7, {m1, p4}, m1])))^2*
          (-((barlam[2, p4]*spa[p4, m1]*(barlam[1, p7]*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                     spba[p7, {m1, p4}, m1])) - (barlam[1, p4]*spa[p4, m1]*
                  (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                       p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + 
                     lam[2, p4]*spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
              ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                    {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*(
                -((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, 
                   {m1, p4}, m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                 spba[p7, {m1, p4}, m1])*spba[p7, {m1, p4}, m1])) + 
            (barlam[1, p4]*spa[p4, m1]*(barlam[2, p7]*(lam[2, et6]*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, {m1, p4}, 
                     m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p4])/
                    spba[p7, {m1, p4}, m1])) - (barlam[2, p4]*spa[p4, m1]*
                 (lam[2, et6]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, 
                      p7]) - lam[1, et6]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*
                     spb[p4, p7])))/spba[p7, {m1, p4}, m1]))/
             ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p4])/spba[p7, 
                   {m1, p4}, m1]) - lam[1, et6]*(lam[2, p7] + 
                 (lam[2, m1]*s[m1, p4])/spba[p7, {m1, p4}, m1]))*
              (-((barlam[1, p7]*barlam[2, p4]*spa[p4, m1])/spba[p7, {m1, p4}, 
                  m1]) + (barlam[1, p4]*barlam[2, p7]*spa[p4, m1])/
                spba[p7, {m1, p4}, m1])*spba[p7, {m1, p4}, m1]))^2)))/
      ((-(lam[1, p4]*lam[2, m1]) + lam[1, m1]*lam[2, p4])^2*s[m1, p4]*
       (-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + lam[1, p4]*spb[p4, p7])) + 
         lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p4]*spb[p4, p7]))^2) + 
     ((-(lam[2, m1]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7])) + 
         lam[1, m1]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7]))^6*
       (((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])^5*
          ((-10*CK*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3]))) + (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))^
              5*(-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p4])) - (((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                       lam[2, et5] - (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[1, et5]*lam[2, p3])*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))))/((lam[1, p4]*lam[2, et5] - lam[1, et5]*
                    lam[2, p4])*(-((barlam[2, p4]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))))) + (barlam[1, p2]*(-(barlam[2, p4]*
                    (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])) - 
                  (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))))/((lam[1, p4]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p4])*(-((barlam[2, p4]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3])))))^2*((barlam[2, p7]*(-(barlam[1, p4]*
                   (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])) - 
                 (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]))))/((lam[1, p4]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p4])*(-((barlam[2, p4]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])))) - (barlam[1, p7]*(-(barlam[2, p4]*
                   (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])) - 
                 (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]))))/((lam[1, p4]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p4])*(-((barlam[2, p4]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])))))*(-((barlam[2, p7]*(-(barlam[1, p4]*
                    (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])) - 
                  (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))))/((lam[1, p4]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p4])*(-((barlam[2, p4]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))))) + (barlam[1, p7]*(-(barlam[2, p4]*
                   (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])) - 
                 (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]))))/((lam[1, p4]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p4])*(-((barlam[2, p4]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])))))*(lam[2, p4]*((barlam[2, p4]*
                  (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*barlam[2, 
                      p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[1, p4]*lam[2, p3] - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p2]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))))/((lam[1, p4]*lam[2, et5] - lam[1, et5]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              lam[1, p4]*((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3])) - (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[1, p4]*lam[2, p3] - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p2]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))))/((lam[1, p4]*lam[2, et5] - lam[1, et5]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (lam[2, p4]*((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3])) - (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[1, p4]*lam[2, p3] - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p5]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              lam[1, p4]*((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3])) - (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[1, p4]*lam[2, p3] - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p5]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                 m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                {m1, p5}, m1])*(-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/
                spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                spa[p5, m1])/spba[p7, {m1, p5}, m1])*
             ((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4])) - (((barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                     lam[2, et5] - (barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[1, et5]*lam[2, p3])*
                   (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])))*spa[p5, m1])/((lam[1, p4]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p4])*(-((barlam[2, p4]*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])))*spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*
                (-(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4])) - (((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p3]*lam[2, et5] - 
                    (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*spa[p5, m1])/(
                (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))) + (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*spba[p7, {m1, p5}, m1])))/
            (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*lam[
                1, p4]*lam[2, p3] - (barlam[1, p6]*barlam[2, p3] - 
                barlam[1, p3]*barlam[2, p6])*lam[1, p3]*lam[2, p4])*
             (-((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p4]) + (((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                       lam[2, et5] - (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[1, et5]*lam[2, p3])*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))))/((lam[1, p4]*lam[2, et5] - lam[1, et5]*
                    lam[2, p4])*(-((barlam[2, p4]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))))) + (barlam[1, p4]*(barlam[2, p4]*
                   (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]) + 
                  (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))))/((lam[1, p4]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p4])*(-((barlam[2, p4]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3])))))^2*(((-(barlam[2, p3]*(lam[1, p3]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                 (barlam[1, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4]) + (((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3]*lam[2, et5] - 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))))/((-(barlam[1, p6]*barlam[2, 
                     p3]) + barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*
                   lam[2, et6] - lam[1, et6]*lam[2, p3])*(lam[1, p4]*
                   lam[2, et5] - lam[1, et5]*lam[2, p4])*
                 (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))) - ((-(barlam[1, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]))*(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (((barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                      lam[2, et5] - (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, et5]*lam[2, p3])*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3])*(lam[1, p4]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p4])*(-((barlam[2, p4]*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3])))))^2*(-(lam[2, p4]*((barlam[2, p4]*
                   (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])) - (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*(lam[1, p2] - (lam[1, et6]*
                   (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[1, et5]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*lam[1, p4]*lam[2, p3] - 
                    (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p5]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                      ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                    (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))/
                  ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              lam[1, p4]*((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3])) - (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[1, p4]*lam[2, p3] - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p5]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[1, p4]*lam[2, p3] - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p2]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))))/((lam[1, p4]*lam[2, et5] - lam[1, et5]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p2] - 
                (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[1, p4]*lam[2, p3] - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p5]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[1, p4]*lam[2, p3] - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p2]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))))/((lam[1, p4]*lam[2, et5] - lam[1, et5]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p2] - 
                (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[1, p4]*lam[2, p3] - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p5]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*lam[1, p4]*lam[2, p3] - 
                    (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p2]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))))/((lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[1, p4]*lam[2, p3] - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p2]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))))/((lam[1, p4]*lam[2, et5] - lam[1, et5]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
           (10*CK*(barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])^
              5*(-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
             ((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4])) - barlam[1, p2]*(lam[2, et5]*
                    (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                        lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                     (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/(
                (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])) - 
              (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4])) - barlam[2, p2]*(lam[2, et5]*
                    (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                        lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                     (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/(
                (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])))*
             (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p4])) - barlam[1, p2]*(lam[2, et5]*
                     (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]))) + 
              (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4])) - barlam[2, p2]*(lam[2, et5]*
                    (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                        lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                     (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/(
                (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p4]*(lam[1, p4]*
                      lam[2, et5] - lam[1, et5]*lam[2, p4])) - barlam[1, p2]*
                   (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]))) + 
              ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]))*(-(barlam[2, p4]*(lam[1, p4]*
                     lam[2, et5] - lam[1, et5]*lam[2, p4])) - barlam[2, p2]*
                  (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/(
                (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])))*
             ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
               lam[2, p4]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(-(lam[2, p4]*(lam[1, p2] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))) - 
              (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
               lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(-(lam[2, p4]*(lam[1, p2] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))))*
             ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
               lam[2, p4]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[1, p3] - (lam[1, et5]*
                  (-(lam[2, p4]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))) - 
              (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
               lam[1, p4]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[2, p3] - (lam[2, et5]*
                  (-(lam[2, p4]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))))*
             (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]))*spa[p5, m1])/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                spba[p7, {m1, p5}, m1]))*((barlam[2, p5]*spa[p5, m1]*
                 (-(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                      lam[2, p4])) - barlam[1, p2]*(lam[2, et5]*(lam[1, p2] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                 spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*spa[p5, m1]*
                 (-(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                      lam[2, p4])) - barlam[2, p2]*(lam[2, et5]*(lam[1, p2] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                 spba[p7, {m1, p5}, m1]))^2)/
            (((barlam[2, p2]*(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + barlam[1, p2]*(lam[2, et5]*
                     (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])) - 
               (barlam[1, p2]*(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + barlam[2, p2]*(lam[2, et5]*
                     (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])))^2*
             (-((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p4]) + barlam[1, p2]*(lam[2, et5]*
                      (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                          lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                       (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                 ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]))) + 
               (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + barlam[2, p2]*(lam[2, et5]*
                     (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])))^2*
             (-(lam[2, p4]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                      lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, 
                      p3]) + lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*
                      barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                   (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                     {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p4])*lam[2, p4]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                  spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                   (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                   (-(lam[2, p4]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                    lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, 
                        m1])) + (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p5}, m1]))))) + (-(barlam[1, p4]*
                  barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*lam[1, p4]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(-(lam[2, p4]*(lam[1, p2] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                   (-(lam[2, p4]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                    lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, 
                        m1])) + (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p5}, m1]))))*((barlam[1, p6]*barlam[2, 
                     p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3] - 
                 (lam[1, et5]*(-(lam[2, p4]*(lam[1, p2] - (lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                    lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, 
                        m1])) + (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p5}, m1]))))) + (lam[1, m1]*spb[m1, p7] + 
                lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                  (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(-(lam[2, p4]*(lam[1, p2] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1]))))*(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[2, p3] - (lam[2, et5]*(-(lam[2, p4]*(lam[1, p2] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))))*
             (-(((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  lam[2, p3] - (lam[2, et5]*(-(lam[2, p4]*(lam[1, p2] - 
                       (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                    lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, 
                        m1])) + (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p5}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
              ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[1, p3] - (lam[1, et5]*(-(lam[2, p4]*(lam[1, p2] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                  m1]))) - (10*CK*(barlam[1, p4]*barlam[2, p2] - barlam[1, 
                 p2]*barlam[2, p4])^2*(barlam[1, p7]*barlam[2, p2] - 
              barlam[1, p2]*barlam[2, p7])*(barlam[1, p7]*barlam[2, p4] - 
              barlam[1, p4]*barlam[2, p7])*((barlam[2, p2]*(barlam[1, p4]*
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]) + 
                 barlam[1, p2]*(lam[2, et5]*(lam[1, p2] - (lam[1, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p4])*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                   lam[2, p4]) + (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))) - (barlam[1, p2]*(barlam[2, p4]*(lam[1, p4]*
                    lam[2, et5] - lam[1, et5]*lam[2, p4]) + barlam[2, p2]*
                  (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p4])*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                   lam[2, p4]) + (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))))*(-((barlam[2, p2]*(barlam[1, p4]*
                   (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]) + 
                  barlam[1, p2]*(lam[2, et5]*(lam[1, p2] - (lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p4])*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                    lam[2, p4]) + (barlam[1, p7]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))) + (barlam[1, p2]*(barlam[2, p4]*
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]) + 
                 barlam[2, p2]*(lam[2, et5]*(lam[1, p2] - (lam[1, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p4])*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                   lam[2, p4]) + (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))))*((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*
                    lam[2, et5] - lam[1, et5]*lam[2, p4]) + barlam[1, p2]*
                  (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p4])*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                   lam[2, p4]) + (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))) - (barlam[1, p7]*(barlam[2, p4]*(lam[1, p4]*
                    lam[2, et5] - lam[1, et5]*lam[2, p4]) + barlam[2, p2]*
                  (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p4])*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                   lam[2, p4]) + (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))))*(-(lam[2, p4]*(lam[1, p2] + (lam[1, et5]*
                   (-((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p4])*(-(lam[2, p4]*(lam[1, p2] - (lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                          ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                       lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                          ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]) - lam[1, p4]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                    (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p7])*((lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - (lam[1, p2] - (lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p4]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p4])*(lam[1, p4]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p4]) + (barlam[1, p7]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]))) - (lam[1, et6]*
                   (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              lam[1, p4]*(lam[2, p2] + (lam[2, et5]*(-((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     (-(lam[2, p4]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                          ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                      lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                   (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p7])*((lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p2] - 
                       (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((barlam[1, p4]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (barlam[1, p7]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))) - (lam[2, et6]*
                  (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             ((lam[2, p2] + (lam[2, et5]*(-((barlam[1, p4]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[2, p4]*
                        (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p4]*(lam[2, p2] - 
                        (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                   (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p7])*((lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p2] - 
                       (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((barlam[1, p4]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (barlam[1, p7]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))) - (lam[2, et6]*
                  (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
              (lam[1, p2] + (lam[1, et5]*(-((barlam[1, p4]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p4])*(-(lam[2, p4]*
                        (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p4]*(lam[2, p2] - 
                        (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                   (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p7])*((lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p2] - 
                       (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((barlam[1, p4]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (barlam[1, p7]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))) - (lam[1, et6]*
                  (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             ((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 spba[p7, {m1, p5}, m1]))^5)/
            ((((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p4]*(lam[1, p4]*
                      lam[2, et5] - lam[1, et5]*lam[2, p4])) - barlam[1, p2]*
                   (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (barlam[1, p7]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))) - ((-(barlam[1, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]))*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p4])) - barlam[2, p2]*(lam[2, et5]*
                     (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3])*((barlam[1, p4]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (barlam[1, p7]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))))^2*
             ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*lam[
                2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*lam[
                1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (lam[2, p4]*(lam[1, p2] + (lam[1, et5]*(-((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     (-(lam[2, p4]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                          ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                      lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                   (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p7])*((lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p2] - 
                       (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((barlam[1, p4]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (barlam[1, p7]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))) - (lam[1, et6]*
                  (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              lam[1, p4]*(lam[2, p2] + (lam[2, et5]*(-((barlam[1, p4]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                     (-(lam[2, p4]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                          ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                      lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                   (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p7])*((lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p2] - 
                       (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((barlam[1, p4]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (barlam[1, p7]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))) - (lam[2, et6]*
                  (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                   {m1, p5}, m1])) + lam[1, p4]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                 lam[2, p4] + (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                   spba[p7, {m1, p5}, m1]))*(lam[1, p7] + (lam[1, m1]*
                  s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
              ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
                 lam[1, p4] + (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                   spba[p7, {m1, p5}, m1]))*(lam[2, p7] + (lam[2, m1]*
                  s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             ((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                      lam[2, et5] - lam[1, et5]*lam[2, p4])) - barlam[1, p2]*
                   (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/(((barlam[1, p4]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (barlam[1, p7]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))*spba[p7, {m1, p5}, m1]) - 
               (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                      lam[2, et5] - lam[1, et5]*lam[2, p4])) - barlam[2, p2]*
                   (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/(((barlam[1, p4]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p4])*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (barlam[1, p7]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))*spba[p7, {m1, p5}, m1]))^
              2) - (10*CK*(barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                2, p7])*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3]))) + (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))^
              2*(-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
             (-(lam[2, p4]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p6])*lam[1, p3] + (lam[1, et5]*
                   (-(((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p4]*lam[2, p3] - (barlam[1, p6]*
                          barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                        lam[1, p3]*lam[2, p4])*(-((barlam[2, p4]*
                          (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                         ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                         (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))) - (-((barlam[2, p7]*
                         (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                        (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])))*((barlam[1, p6]*barlam[2, 
                          p3] - barlam[1, p3]*barlam[2, p6])*lam[2, p3]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - (barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]) - lam[1, p4]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                  ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                    (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                       (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                       (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))) + 
              lam[1, p4]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[2, p3] + (lam[2, et5]*
                  (-(((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p4]*lam[2, p3] - (barlam[1, p6]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                       lam[1, p3]*lam[2, p4])*(-((barlam[2, p4]*
                         (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                        (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])))) - (-((barlam[2, p7]*
                        (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                       (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1])) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p4]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4])*(-((barlam[2, p4]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (-((barlam[2, p7]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))))*((barlam[2, p7]*
                (barlam[1, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                    lam[2, p4]) + (((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p3]*lam[2, et5] - 
                    (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                 (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))) - (barlam[1, p7]*(barlam[2, p4]*
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]) + 
                 (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                 (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                     (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))))*(((-(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                (barlam[1, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                    lam[2, p4]) + (((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p3]*lam[2, et5] - 
                    (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))) - ((-(barlam[1, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                (barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                    lam[2, p4]) + (((barlam[1, p6]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p6])*lam[1, p3]*lam[2, et5] - 
                    (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(barlam[1, p4]*(lam[1, p4]*
                     lam[2, et5] - lam[1, et5]*lam[2, p4]) + 
                  (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))) + 
              ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]))*(barlam[2, p4]*(lam[1, p4]*
                    lam[2, et5] - lam[1, et5]*lam[2, p4]) + 
                 (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))))*(((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*lam[2, p3] + 
                (lam[2, et5]*(-(((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                         barlam[2, p6])*lam[1, p4]*lam[2, p3] - 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p4]*
                         (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                        (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])))) - (-((barlam[2, p7]*
                        (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                       (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1])) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p4]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4])*(-((barlam[2, p4]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (-((barlam[2, p7]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
              ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[1, p3] + (lam[1, et5]*(-(((barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p4]*lam[2, p3] - 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p4]*
                         (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                        (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])))) - (-((barlam[2, p7]*
                        (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                       (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1])) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p4]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4])*(-((barlam[2, p4]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (-((barlam[2, p7]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                  m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                spba[p7, {m1, p5}, m1])^5)/
            ((lam[2, p4]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[1, p3] + (lam[1, et5]*
                  (-(((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p4]*lam[2, p3] - (barlam[1, p6]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                       lam[1, p3]*lam[2, p4])*(-((barlam[2, p4]*
                         (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                        (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])))) - (-((barlam[2, p7]*
                        (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                       (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1])) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p4]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4])*(-((barlam[2, p4]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (-((barlam[2, p7]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))) - lam[1, p4]*(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[2, p3] + (lam[2, et5]*(-(((barlam[1, p6]*barlam[2, p3] - 
                        barlam[1, p3]*barlam[2, p6])*lam[1, p4]*lam[2, p3] - 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p4]*
                         (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                        (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])))) - (-((barlam[2, p7]*
                        (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                          barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                       (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - (barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1])) - (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p4]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4])*(-((barlam[2, p4]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (-((barlam[2, p7]*(-(barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))))*
             ((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p4])) - (((barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                      lam[2, et5] - (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, et5]*lam[2, p3])*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3])) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))/((lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*(-((barlam[2, p4]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (-((barlam[2, p7]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))) - (barlam[1, p2]*(-(barlam[2, p4]*
                    (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])) - 
                  (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))))^2*(-((lam[2, m1]*spb[m1, p7] + 
                 lam[2, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                   (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p2] - 
                 (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p2] - 
                (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                   {m1, p5}, m1])) + lam[1, p4]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             ((lam[2, p4]*((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - (barlam[1, p4]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))) + ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - (barlam[1, p7]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3])))*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                   spba[p7, {m1, p5}, m1]))*(lam[1, p7] + (lam[1, m1]*
                  s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
              (lam[1, p4]*((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - (barlam[1, p4]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))) + ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - (barlam[1, p7]*
                    (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3])))*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                   spba[p7, {m1, p5}, m1]))*(lam[2, p7] + (lam[2, m1]*
                  s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             ((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                      lam[2, et5] - lam[1, et5]*lam[2, p4])) - 
                  (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                (((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))*spba[p7, {m1, p5}, m1]) - 
               (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                      lam[2, et5] - lam[1, et5]*lam[2, p4])) - 
                  (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                (((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))) + (barlam[1, p4]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))*spba[p7, {m1, p5}, m1]))^
              2) - (10*CK*(-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))^
              5*(-((barlam[2, p2]*(-((((barlam[1, p6]*barlam[2, p3] - 
                         barlam[1, p3]*barlam[2, p6])*lam[1, p3]*lam[2, 
                         et5] - (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                          barlam[2, p6])*lam[1, et5]*lam[2, p3])*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((-((barlam[2, p7]*(-(barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))) + (barlam[1, p2]*
                 (-((((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                       lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))))^2*((barlam[2, p4]*
                (-((((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) - barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))) - (barlam[1, p4]*
                (-((((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))))*(-((barlam[2, p4]*
                 (-((((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                         barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                       lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1])))) + (barlam[1, p4]*
                (-((((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))))*(-(((barlam[2, p7]*(-(barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) - (barlam[1, p7]*
                   (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])))*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                  spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                   (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                   ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - (barlam[1, p6]*barlam[2, 
                        p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
              ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3])) - (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (-(((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                      p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])) - (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*(lam[2, p2] - (lam[2, et6]*
                   (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p6])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p6])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))*(-((barlam[2, p5]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                      ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                    (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
              ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3])) - (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]))*(-((barlam[2, p5]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                 m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                {m1, p5}, m1])*((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/
               spba[p7, {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*
                spa[p5, m1])/spba[p7, {m1, p5}, m1])*
             ((barlam[2, p5]*spa[p5, m1]*(-((((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3]*lam[2, et5] - 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) - barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))*spba[p7, {m1, p5}, m1]) - 
              (barlam[1, p5]*spa[p5, m1]*(-((((barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, p3]*lam[2, et5] - 
                     (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                    barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
            ((-((barlam[2, p7]*((((barlam[1, p6]*barlam[2, p3] - barlam[1, 
                          p3]*barlam[2, p6])*lam[1, p3]*lam[2, et5] - 
                      (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                          p6])*lam[1, et5]*lam[2, p3])*(-(barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))) + (barlam[1, p7]*
                 ((((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))))^2*
             (((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*((((barlam[1, p6]*barlam[2, 
                         p3] - barlam[1, p3]*barlam[2, p6])*lam[1, p3]*
                      lam[2, et5] - (barlam[1, p6]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p6])*lam[1, et5]*lam[2, p3])*
                    (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3])) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))/((-(barlam[1, p6]*
                    barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))) - ((-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                 ((((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p6])*lam[1, p3]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[2, p3]*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                     barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))))^2*(lam[2, p4]*(lam[1, m1]*
                 spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(
                lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]))*(-((barlam[2, p5]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*((barlam[1, p6]*barlam[2, p3] - 
                     barlam[1, p3]*barlam[2, p6])*lam[2, p3]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(
                lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]))*(-((barlam[2, p5]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*lam[
                2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                  {m1, p5}, m1]) - (barlam[1, p6]*barlam[2, p3] - 
                barlam[1, p3]*barlam[2, p6])*lam[1, p3]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3])) - (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]))*(-((barlam[2, p5]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
              ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3])) - (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
               (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                      barlam[2, p6])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                       p6])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]))*(-((barlam[2, p5]*
                      (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
           (10*CK*(barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, p7])^
              5*(-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p3]))) + (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
             ((barlam[2, p4]*(-(barlam[1, p2]*(lam[2, et5]*(lam[1, p2] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                     m1]))) - (barlam[1, p4]*(-(barlam[2, p2]*(lam[2, et5]*
                     (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                     m1]))))*(-((barlam[2, p4]*(-(barlam[1, p2]*
                    (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1])))) + (barlam[1, p4]*(-(barlam[2, p2]*
                   (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                     m1]))))*(-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                 (-(barlam[1, p2]*(lam[2, et5]*(lam[1, p2] - (lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                  barlam[1, p3]*barlam[2, p6])*(barlam[1, p7]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p7])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1])))) + ((-(barlam[1, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                (-(barlam[2, p2]*(lam[2, et5]*(lam[1, p2] - (lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p3]) + 
                 barlam[1, p3]*barlam[2, p6])*(barlam[1, p7]*barlam[2, p2] - 
                 barlam[1, p2]*barlam[2, p7])*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3])*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))))*(-((-(barlam[1, p7]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p7])*(lam[2, m1]*spb[m1, p7] + 
                 lam[2, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                   (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                   ((lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p2] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))*(-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p5}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*(
                lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*((lam[2, p2] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p5}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (-((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p7])*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p6])*lam[2, p3] - (lam[2, et5]*
                   ((lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p2] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, 
                        m1])) + (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p5}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[1, p3] - (lam[1, et5]*((lam[2, p2] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]))*spa[p5, m1])/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                spba[p7, {m1, p5}, m1]))*((barlam[2, p5]*spa[p5, m1]*
                 (-(barlam[1, p2]*(lam[2, et5]*(lam[1, p2] - (lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))*spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*
                 spa[p5, m1]*(-(barlam[2, p2]*(lam[2, et5]*(lam[1, p2] - 
                       (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))*spba[p7, {m1, p5}, m1]))^2)/
            (((barlam[2, p2]*(barlam[1, p2]*(lam[2, et5]*(lam[1, p2] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))) - (barlam[1, p2]*(barlam[2, p2]*(lam[2, et5]*
                     (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))))^2*(-((barlam[2, p7]*(barlam[1, p2]*
                    (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))) + (barlam[1, p7]*(barlam[2, p2]*
                   (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))))^2*(lam[2, p4]*((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*lam[1, p3] - 
                (lam[1, et5]*((lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))) - 
              lam[1, p4]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[2, p3] - (lam[2, et5]*
                  ((lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                        lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p2] - 
                     (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                   ((lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                         lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p2] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))*(-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p5}, m1]))))*
                ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  lam[1, p3] - (lam[1, et5]*((lam[2, p2] - (lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, 
                        m1])) + (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p5}, m1]))))) + (lam[1, m1]*spb[m1, p7] + 
                lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                  (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*((lam[2, p2] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p5}, m1]))))*(
                (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[2, p3] - (lam[2, et5]*((lam[2, p2] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))))*
             ((lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
              (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*(
                lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*((lam[2, p2] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p5}, m1]))))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
              (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*(
                lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p2]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))*((lam[2, p2] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p5}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
           (10*CK*(barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, p7])*
             (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
             (lam[2, p4]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                   barlam[2, p6])*lam[1, p3] - (lam[1, et5]*
                  (-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))))*(-((barlam[1, p5]*
                   barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                  m1]) - lam[1, p4]*((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*lam[2, p3] - 
                (lam[2, et5]*(-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))))*(-((barlam[1, p5]*
                   barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                  m1]))*(lam[2, p4]*(lam[1, p2] - (lam[1, et6]*
                  (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))))*(-((barlam[1, p5]*
                   barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                  m1]) - lam[1, p4]*(lam[2, p2] - (lam[2, et6]*
                  (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))))*(-((barlam[1, p5]*
                   barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                  m1]))*(-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                      lam[2, et5] - lam[1, et5]*lam[2, p4])) + 
                  (barlam[1, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))) - lam[1, et5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))))/spba[p7, {m1, p5}, 
                    m1]))/((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                 ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                    {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/
                   spba[p7, {m1, p5}, m1]))) + (barlam[1, p2]*
                (-(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4])) + (barlam[2, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                   spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                   barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
             ((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4])) + (barlam[1, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                   spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                   barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
              (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4])) + (barlam[2, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                   spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                   barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
             (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p4])) + (barlam[1, p5]*spa[p5, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                    barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + 
              (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4])) + (barlam[2, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                   spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                   barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et5] - lam[1, et5]*lam[2, p4])) + 
                   (barlam[1, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))) - lam[1, et5]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))))/spba[p7, {m1, p5}, 
                     m1]))/((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                    barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                    lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/
                    spba[p7, {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + 
               ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[2, p4]*(lam[1, p4]*
                      lam[2, et5] - lam[1, et5]*lam[2, p4])) + 
                  (barlam[2, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))) - lam[1, et5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))))/spba[p7, {m1, p5}, 
                    m1]))/((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                   lam[2, p3])*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                   lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/
                   spba[p7, {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1])))^2*
             ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, 
                 m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/
                spba[p7, {m1, p5}, m1])^5)/
            ((-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-(((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  lam[2, p3] - (lam[2, et5]*(-(lam[2, p4]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))) + lam[1, p4]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])))))*(lam[1, p2] - 
                 (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[1, et5]*(-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + 
                       lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                    lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                        p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                   (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, 
                        m1])) + (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p5}, m1])))/((lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4])*(-((barlam[2, p2]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))))) + ((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*lam[1, p3] - 
                (lam[1, et5]*(-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))))*(lam[2, p2] - 
                (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))))))*
             (-((lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                    lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                      barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[2, et5]*(-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + 
                       lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                    lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                        p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                   (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                        barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, 
                        m1])) + (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p5}, m1])))/((lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4])*(-((barlam[2, p2]*
                       (-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))))*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                  spba[p7, {m1, p5}, m1])) + (lam[1, p2] - 
                (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (-(lam[2, p4]*((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*
                    barlam[2, p6])*lam[1, p3] - (lam[1, et5]*
                   (-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                    lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                        p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])))))*(-((barlam[1, p5]*
                    barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                 (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                   m1])) + lam[1, p4]*((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*lam[2, p3] - 
                (lam[2, et5]*(-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))))*(-((barlam[1, p5]*
                   barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                  m1]))*(-((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*
                      lam[2, et5] - lam[1, et5]*lam[2, p4]) - (barlam[1, p5]*
                     spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                    spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + 
               (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) - (barlam[2, p5]*spa[p5, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                    barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))^2*
             (-((barlam[2, p5]*spa[p5, m1]*(barlam[1, p4]*(lam[1, p4]*
                      lam[2, et5] - lam[1, et5]*lam[2, p4]) - (barlam[1, p5]*
                     spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                    spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])*
                  spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                 (barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4]) - (barlam[2, p5]*spa[p5, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))) - lam[1, et5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))))/spba[p7, {m1, p5}, 
                    m1]))/((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                 ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                    {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/
                   spba[p7, {m1, p5}, m1])*spba[p7, {m1, p5}, m1]))^2) - 
           (10*CK*(barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
             (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
             (-(((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                  lam[2, p3] - (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                        p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])*
                ((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                   m1] - (barlam[1, p5]*barlam[2, p7]*spa[p5, m1])/
                  spba[p7, {m1, p5}, m1])) + ((barlam[1, p6]*barlam[2, p3] - 
                  barlam[1, p3]*barlam[2, p6])*lam[1, p3] - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                 spba[p7, {m1, p5}, m1])*((barlam[1, p7]*barlam[2, p5]*
                  spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p5]*
                  barlam[2, p7]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))*
             (-((lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                    lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                      barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                        p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                        p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))*(-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p5}, m1])))/
                  ((-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])*
                ((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                   m1] - (barlam[1, p5]*barlam[2, p7]*spa[p5, m1])/
                  spba[p7, {m1, p5}, m1])) + (lam[1, p2] - 
                (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p5}, m1])))/
                 ((-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                 spba[p7, {m1, p5}, m1])*((barlam[1, p7]*barlam[2, p5]*
                  spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p5]*
                  barlam[2, p7]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))*
             (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]))) + (barlam[1, p5]*spa[p5, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))*(-((barlam[1, p7]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                    barlam[2, p7]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + 
              (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))) + (barlam[2, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))*(-((barlam[1, p7]*barlam[2, p5]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                   barlam[2, p7]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
             ((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))) + (barlam[1, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))*(-((barlam[1, p7]*barlam[2, p5]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                   barlam[2, p7]*spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
              (barlam[1, p4]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))) + (barlam[2, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))*(-((barlam[1, p7]*barlam[2, p5]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                   barlam[2, p7]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
             (-((barlam[2, p4]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]))) + (barlam[1, p5]*spa[p5, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))*(-((barlam[1, p7]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                    barlam[2, p7]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + 
              (barlam[1, p4]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))) + (barlam[2, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))*(-((barlam[1, p7]*barlam[2, p5]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                   barlam[2, p7]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))*(-(barlam[1, p7]*(lam[2, et5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) + 
                   (barlam[1, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))) - lam[1, et5]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))))/spba[p7, {m1, p5}, 
                     m1]))/((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                    barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + 
               ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[2, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]))) + 
                  (barlam[2, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))) - lam[1, et5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))))/spba[p7, {m1, p5}, 
                    m1]))/((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                   lam[2, p3])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))*(-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/
                    spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1])))^2*
             (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                  m1]) + (barlam[1, p5]*barlam[2, p7]*spa[p5, m1])/
                spba[p7, {m1, p5}, m1])^5)/((lam[2, p4]*(lam[1, p2] - 
                (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p5}, m1])))/
                 ((-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))) - lam[1, p4]*(lam[2, p2] - 
                (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p5}, m1])))/
                 ((-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))))*(-(((barlam[1, p6]*barlam[2, p3] - 
                   barlam[1, p3]*barlam[2, p6])*lam[2, p3] - 
                 (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                        p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                        p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))*(lam[1, p2] - 
                 (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                        p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                        p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))*(-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                          barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                      (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])*spba[p7, {m1, p5}, m1])))/
                  ((-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                         barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))) + 
              ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[1, p3] - (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))))*(lam[2, p2] - (lam[2, et6]*
                  (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                     (-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                    ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                       barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])*spba[p7, {m1, p5}, m1])))/
                 ((-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))))*((lam[2, m1]*spb[m1, p7] + 
                lam[2, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                  (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[2, p3] - (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                 spba[p7, {m1, p5}, m1])*((barlam[1, p7]*barlam[2, p5]*
                  spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p5]*
                  barlam[2, p7]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) - 
              ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*
                 lam[1, p3] - (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                        barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p6])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                 spba[p7, {m1, p5}, m1])*((barlam[1, p7]*barlam[2, p5]*
                  spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p5]*
                  barlam[2, p7]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))*
             (-((barlam[2, p7]*(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1])) - (barlam[1, p5]*spa[p5, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                    spba[p7, {m1, p5}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p7]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p7]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + 
               (barlam[1, p7]*(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])) - (barlam[2, p5]*spa[p5, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))*(-((barlam[1, p7]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                    barlam[2, p7]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))^2*
             (-((barlam[2, p5]*spa[p5, m1]*(barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                   (barlam[1, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))) - lam[1, et5]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))))/spba[p7, {m1, p5}, 
                     m1]))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])*spba[p7, {m1, p5}, 
                   m1])) + (barlam[1, p5]*spa[p5, m1]*(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                  (barlam[2, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))) - lam[1, et5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))))/spba[p7, {m1, p5}, 
                    m1]))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                     spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                     {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*spa[p5, 
                     m1])/spba[p7, {m1, p5}, m1])*spba[p7, {m1, p5}, m1]))^
              2) - (10*CK*(barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                2, p7])*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p3]))) + (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))^
              5*(-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                  spb[p5, p7] + (lam[1, et5]*(-((barlam[1, p7]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p4]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
                    (-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                          spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                          ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                      lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                     ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                        {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, 
                         m1])/spba[p7, {m1, p5}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                         {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                        spa[p5, m1])/spba[p7, {m1, p5}, m1])))/
                  ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                    ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, 
                        m1])/spba[p7, {m1, p5}, m1]) + (lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                        {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                     lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] + 
                (lam[2, et5]*(-((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p4]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))) - (-(lam[2, p4]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))) + lam[1, p4]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))))*((barlam[1, p5]*
                       barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, m1] - 
                     (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                         p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/
                       spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, 
                       m1])/spba[p7, {m1, p5}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] + 
                (lam[2, et5]*(-((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p4]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))) - (-(lam[2, p4]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))) + lam[1, p4]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))))*((barlam[1, p5]*
                       barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, m1] - 
                     (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                         p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/
                       spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, 
                       m1])/spba[p7, {m1, p5}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] + 
                (lam[1, et5]*(-((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p4]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))) - (-(lam[2, p4]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))) + lam[1, p4]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))))*((barlam[1, p5]*
                       barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, m1] - 
                     (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                         p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/
                       spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, 
                       m1])/spba[p7, {m1, p5}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             ((barlam[2, p7]*(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4]) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                 (barlam[1, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                    barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                     {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*spa[p5, 
                     m1])/spba[p7, {m1, p5}, m1])) - (barlam[1, p7]*
                (barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                    lam[2, p4]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])) - (barlam[2, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                    barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                     {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*spa[p5, 
                     m1])/spba[p7, {m1, p5}, m1])))*
             ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, 
                 m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/
                spba[p7, {m1, p5}, m1])^2*(-((barlam[1, p7]*barlam[2, p5]*
                 spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                barlam[2, p7]*spa[p5, m1])/spba[p7, {m1, p5}, m1])*
             ((barlam[2, p5]*spa[p5, m1]*(barlam[1, p4]*(lam[1, p4]*
                    lam[2, et5] - lam[1, et5]*lam[2, p4]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                 (barlam[1, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/(((lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, 
                 m1]) - (barlam[1, p5]*spa[p5, m1]*(barlam[2, p4]*
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1])) - (barlam[2, p5]*spa[p5, m1]*(lam[2, et5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/(((lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, 
                 m1]))*(-((barlam[2, p5]*spa[p5, m1]*(barlam[1, p4]*
                   (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])) - (barlam[1, p5]*spa[p5, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))) - lam[1, et5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))))/spba[p7, {m1, p5}, 
                    m1]))/(((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, 
                       m1])/spba[p7, {m1, p5}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))*spba[p7, 
                  {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                (barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                    lam[2, p4]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])) - (barlam[2, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/(((lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, 
                 m1])))/((lam[2, p4]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                 spb[p5, p7] + (lam[1, et5]*(-((barlam[1, p7]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))) - (-(lam[2, p4]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))) + lam[1, p4]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))))*((barlam[1, p5]*
                       barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, m1] - 
                     (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                         p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/
                       spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, 
                       m1])/spba[p7, {m1, p5}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] + 
                (lam[2, et5]*(-((barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p4]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))) - (-(lam[2, p4]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))) + lam[1, p4]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))))*((barlam[1, p5]*
                       barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, m1] - 
                     (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) - ((lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                         p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))*(-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/
                       spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, 
                       m1])/spba[p7, {m1, p5}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*
                    lam[2, p6]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             ((barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*lam[
                2, p3]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              (barlam[1, p6]*barlam[2, p3] - barlam[1, p3]*barlam[2, p6])*lam[
                1, p3]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p3]) + 
                   lam[1, p3]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                   {m1, p5}, m1])) + lam[1, p4]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             ((lam[2, p4]*(-((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/
                    spba[p7, {m1, p5}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])*
                 ((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                    {m1, p5}, m1] - (barlam[1, p5]*barlam[2, p7]*spa[p5, m1])/
                   spba[p7, {m1, p5}, m1]))*(lam[1, p7] + (lam[1, m1]*
                  s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
              (lam[1, p4]*(-((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/
                    spba[p7, {m1, p5}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (lam[1, p7] + 
                  (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])*
                 ((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                    {m1, p5}, m1] - (barlam[1, p5]*barlam[2, p7]*spa[p5, m1])/
                   spba[p7, {m1, p5}, m1]))*(lam[2, p7] + (lam[2, m1]*
                  s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p4])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))) - lam[1, et5]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))))/spba[p7, {m1, p5}, 
                     m1]))/((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, 
                       m1])/spba[p7, {m1, p5}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + (barlam[1, p2]*
                 (-(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                      lam[2, p4])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])) + (barlam[2, p5]*spa[p5, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))^2*
             (((-(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p4]*(lam[1, p4]*
                      lam[2, et5] - lam[1, et5]*lam[2, p4])) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
                  (barlam[1, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))) - lam[1, et5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))))/spba[p7, {m1, p5}, 
                    m1]))/((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                   lam[2, p3])*((lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                        {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
               ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                      lam[2, p3])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[2, p4]*(lam[1, p4]*
                      lam[2, et5] - lam[1, et5]*lam[2, p4])) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
                  (barlam[2, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))) - lam[1, et5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p3]) + lam[1, p3]*lam[2, p6]))/((lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))))/spba[p7, {m1, p5}, 
                    m1]))/((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*
                   barlam[2, p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                   lam[2, p3])*((lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                        {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))))^2)))/
         ((-(lam[1, p6]*lam[2, p3]) + lam[1, p3]*lam[2, p6])*
          (-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                   lam[2, et6] - lam[1, et6]*lam[2, p6])))/
              ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
               (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
            (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                  lam[2, et6] - lam[1, et6]*lam[2, p6])))/
             ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
              (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))^2*
          ((barlam[2, p6]*(barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3]) + barlam[1, p6]*(lam[1, p6]*
                  lam[2, et6] - lam[1, et6]*lam[2, p6])))/
             ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
              (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
            (barlam[1, p6]*(barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3]) + barlam[2, p6]*(lam[1, p6]*
                  lam[2, et6] - lam[1, et6]*lam[2, p6])))/
             ((-(barlam[1, p6]*barlam[2, p3]) + barlam[1, p3]*barlam[2, p6])*
              (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))^2) + 
        ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])^5*
          ((-10*CK*(-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p4]))) + (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                      lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))^
              5*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p3])) - (((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*lam[1, p4]*
                       lam[2, et5] - (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*lam[1, et5]*lam[2, p4])*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]))) + (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]))))) + (barlam[1, p2]*(-(barlam[2, p3]*
                    (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                  (((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*lam[1, p4]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p4])*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4]))))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]))) + (barlam[1, p3]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p4])))))^2*((barlam[2, p7]*(-(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                 (((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*lam[1, p4]*lam[2, et5] - (barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p4])*(-(barlam[1, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4]))))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4]))) + (barlam[1, p3]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p4])))) - (barlam[1, p7]*(-(barlam[2, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                 (((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*lam[1, p4]*lam[2, et5] - (barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p4])*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4]))))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4]))) + (barlam[1, p3]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p4])))))*(-((barlam[2, p7]*(-(barlam[1, p3]*
                    (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                  (((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*lam[1, p4]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p4])*(-(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4]))))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]))) + (barlam[1, p3]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p4]))))) + (barlam[1, p7]*(-(barlam[2, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                 (((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*lam[1, p4]*lam[2, et5] - (barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p4])*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4]))))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4]))) + (barlam[1, p3]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p4])))))*(lam[2, p3]*((barlam[2, p3]*
                  (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*barlam[2, 
                      p4]) + barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*
                    lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))*
               (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*lam[1, p4]*lam[2, p3]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p2]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              lam[1, p3]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p4])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))*
               (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*lam[1, p4]*lam[2, p3]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p2]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (lam[2, p3]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p4])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))*
               (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                   lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*lam[1, p4]*lam[2, p3]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p5]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              lam[1, p3]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p4])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))*
               (lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                   lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*lam[1, p4]*lam[2, p3]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p5]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                 m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                {m1, p5}, m1])*(-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/
                spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                spa[p5, m1])/spba[p7, {m1, p5}, m1])*
             ((barlam[2, p5]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - (((barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*lam[1, p4]*
                     lam[2, et5] - (barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*lam[1, et5]*lam[2, p4])*
                   (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p4])))*spa[p5, m1])/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4]))) + (barlam[1, p3]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p4])))*spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - (((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p4]*lam[2, et5] - 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p4])*(-(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])))*spa[p5, m1])/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p4]))) + (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])))*spba[p7, {m1, p5}, m1])))/
            ((-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                lam[1, p4]*lam[2, p3]) + (barlam[1, p6]*barlam[2, p4] - 
                barlam[1, p4]*barlam[2, p6])*lam[1, p3]*lam[2, p4])*
             (-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) + (((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*lam[1, p4]*
                       lam[2, et5] - (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*lam[1, et5]*lam[2, p4])*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]))) + (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]))))) + (barlam[1, p3]*(barlam[2, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*lam[1, p4]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p4])*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4]))))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]))) + (barlam[1, p3]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p4])))))^2*(((-(barlam[2, p4]*(lam[1, p4]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                 (barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + (((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p4]*lam[2, et5] - 
                     (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*lam[1, et5]*lam[2, p4])*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4]))))/((-(barlam[1, p6]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p6])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])*(lam[1, p4]*
                   lam[2, et6] - lam[1, et6]*lam[2, p4])*
                 (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]))) + (barlam[1, p3]*(-(barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])))) - ((-(barlam[1, p4]*
                    (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]))*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*lam[1, p4]*
                      lam[2, et5] - (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*lam[1, et5]*lam[2, p4])*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p4]))))/((-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*(lam[1, p4]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p4])*(-((barlam[2, p3]*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]))) + (barlam[1, p3]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p4])))))^2*(-(lam[2, p3]*((barlam[2, p3]*
                   (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p4])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])))*(lam[1, p2] - (lam[1, et6]*
                   (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*lam[1, p4]*lam[2, p3]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p5]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                      ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                    (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              lam[1, p3]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p4])) - (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))*
               (lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                   lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*lam[1, p4]*lam[2, p3]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p5]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*lam[1, p4]*lam[2, p3]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p2]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p2] - 
                (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*lam[1, p4]*lam[2, p3]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p5]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*lam[1, p4]*lam[2, p3]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p2]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p2] - 
                (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*lam[1, p4]*lam[2, p3]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p5]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                     lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[2, et5]*(-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                        barlam[2, p6])*lam[1, p4]*lam[2, p3]) + 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p2]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
                    (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*lam[1, p4]*lam[2, p3]) + 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p2]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
                   (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
           (10*CK*(barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])^
              5*(-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p4]))) + (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*
                     lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))*
             ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - barlam[1, p2]*(lam[2, et5]*
                    (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                        lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                     (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/(
                (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
              (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - barlam[2, p2]*(lam[2, et5]*
                    (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                        lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                     (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/(
                (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - barlam[1, p2]*(lam[2, et5]*
                     (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                         lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]))) + 
              (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - barlam[2, p2]*(lam[2, et5]*
                    (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                        lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                     (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/(
                (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))*
             (-(((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[1, p2]*
                   (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
              ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]))*(-(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[2, p2]*
                  (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/(
                (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))*
             ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
               lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]))) + (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))*(-(lam[2, p3]*(lam[1, p2] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])))) - 
              (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
               lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]))) + (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))*(-(lam[2, p3]*(lam[1, p2] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])))))*
             ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
               lam[2, p3]*((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*lam[1, p4] - (lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])))) - 
              (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
               lam[1, p3]*((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*lam[2, p4] - (lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])))))*
             (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                 spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]))*spa[p5, m1])/(
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                spba[p7, {m1, p5}, m1]))*((barlam[2, p5]*spa[p5, m1]*
                 (-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[1, p2]*(lam[2, et5]*(lam[1, p2] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*spa[p5, m1]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p2]*(lam[2, et5]*(lam[1, p2] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 spba[p7, {m1, p5}, m1]))^2)/
            (((barlam[2, p2]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + barlam[1, p2]*(lam[2, et5]*
                     (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                         lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
               (barlam[1, p2]*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + barlam[2, p2]*(lam[2, et5]*
                     (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                         lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             (-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) + barlam[1, p2]*(lam[2, et5]*
                      (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                          lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                       (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]))) + 
               (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + barlam[2, p2]*(lam[2, et5]*
                     (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                         lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             (-(lam[2, p3]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                      lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, 
                      p4]) + lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*
                      barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                   (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                     {m1, p5}, m1]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p3])*lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                  spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                   (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                  ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))) + (barlam[1, p2]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))*
                   (-(lam[2, p3]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                    lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, 
                        m1])) + (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                      spba[p7, {m1, p5}, m1]))))) + (-(barlam[1, p3]*
                  barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*lam[1, p3]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]))) + (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))*(-(lam[2, p3]*(lam[1, p2] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                     lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))) + (barlam[1, p2]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))*
                   (-(lam[2, p3]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                    lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, 
                        m1])) + (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                      spba[p7, {m1, p5}, m1]))))*((barlam[1, p6]*barlam[2, 
                     p4] - barlam[1, p4]*barlam[2, p6])*lam[1, p4] - 
                 (lam[1, et5]*(-(lam[2, p3]*(lam[1, p2] - (lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                    lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, 
                        m1])) + (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                      spba[p7, {m1, p5}, m1]))))) + (lam[1, m1]*spb[m1, p7] + 
                lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                  (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]))) + (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))*(-(lam[2, p3]*(lam[1, p2] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1]))))*(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 lam[2, p4] - (lam[2, et5]*(-(lam[2, p3]*(lam[1, p2] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])))))*
             (-(((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  lam[2, p4] - (lam[2, et5]*(-(lam[2, p3]*(lam[1, p2] - 
                       (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                    lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, 
                        m1])) + (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                      spba[p7, {m1, p5}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
              ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 lam[1, p4] - (lam[1, et5]*(-(lam[2, p3]*(lam[1, p2] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                  m1]))) - (10*CK*(barlam[1, p3]*barlam[2, p2] - 
              barlam[1, p2]*barlam[2, p3])*(barlam[1, p7]*barlam[2, p2] - 
               barlam[1, p2]*barlam[2, p7])^2*(-(barlam[1, p7]*barlam[2, 
                 p3]) + barlam[1, p3]*barlam[2, p7])*
             ((barlam[2, p2]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[1, p2]*(lam[2, et5]*
                    (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                        lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                     (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p3])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                   lam[2, p3]) + (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))) - (barlam[1, p2]*(barlam[2, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[2, p2]*
                  (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p3])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                   lam[2, p3]) + (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))))*(-((barlam[2, p2]*(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  barlam[1, p2]*(lam[2, et5]*(lam[1, p2] - (lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                    barlam[2, p3])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + (barlam[1, p7]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))) + (barlam[1, p2]*(barlam[2, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[2, p2]*(lam[2, et5]*(lam[1, p2] - (lam[1, et6]*
                       (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p3])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                   lam[2, p3]) + (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))))*((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[1, p2]*
                  (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p3])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                   lam[2, p3]) + (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))) - (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[2, p2]*
                  (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p3])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                   lam[2, p3]) + (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))))*(-(lam[2, p3]*(lam[1, p2] + (lam[1, et5]*
                   (-((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(-(lam[2, p3]*(lam[1, p2] - (lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                          ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                       lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                          ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1])) + lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])) - (barlam[1, p7]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p7])*((lam[2, p2] - 
                        (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - (lam[1, p2] - (lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p3]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]))) - (lam[1, et6]*
                   (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              lam[1, p3]*(lam[2, p2] + (lam[2, et5]*(-((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (-(lam[2, p3]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                          ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                      lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1])) + lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1])) - (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p7])*((lam[2, p2] - (lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((barlam[1, p3]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))) - (lam[2, et6]*
                  (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             ((lam[2, p2] + (lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(-(lam[2, p3]*
                        (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p3]*(lam[2, p2] - 
                        (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1])) + lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1])) - (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p7])*((lam[2, p2] - (lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((barlam[1, p3]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))) - (lam[2, et6]*
                  (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
              (lam[1, p2] + (lam[1, et5]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(-(lam[2, p3]*
                        (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p3]*(lam[2, p2] - 
                        (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1])) + lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1])) - (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p7])*((lam[2, p2] - (lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((barlam[1, p3]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))) - (lam[1, et6]*
                  (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             ((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                 spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*
                 (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                 spba[p7, {m1, p5}, m1]))^5)/
            ((((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[1, p2]*
                   (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p4])*((barlam[1, p3]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))) - ((-(barlam[1, p4]*
                    (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6]))*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - barlam[2, p2]*(lam[2, et5]*
                     (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                         lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p4])*((barlam[1, p3]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))))^2*
             (-(lam[2, p3]*((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                    barlam[2, p3])*lam[1, p3] + (-(barlam[1, p7]*barlam[2, 
                      p2]) + barlam[1, p2]*barlam[2, p7])*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) + 
              lam[1, p3]*((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                   barlam[2, p3])*lam[2, p3] + (-(barlam[1, p7]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p7])*(lam[2, p7] + 
                  (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))*
             ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*lam[
                2, p4]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*lam[
                1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                  {m1, p5}, m1]) - lam[1, p3]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (-((lam[2, p2] + (lam[2, et5]*(-((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(-(lam[2, p3]*
                         (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p3]*(lam[2, p2] - 
                         (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                          ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                    (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                        p7])*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1])) + lam[1, p3]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])) - (barlam[1, p7]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p7])*((lam[2, p2] - 
                        (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - (lam[1, p2] - (lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p3]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]))) - (lam[2, et6]*
                   (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
              (lam[1, p2] + (lam[1, et5]*(-((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(-(lam[2, p3]*
                        (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p3]*(lam[2, p2] - 
                        (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                   (-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*barlam[2, 
                       p7])*(-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1])) + lam[1, p3]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1])) - (barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p7])*((lam[2, p2] - (lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((barlam[1, p3]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))) - (lam[1, et6]*
                  (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             ((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[1, p2]*
                   (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/(((barlam[1, p3]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))*spba[p7, {m1, p5}, m1]) - 
               (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[2, p2]*
                   (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/(((barlam[1, p3]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + (barlam[1, p7]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))*spba[p7, {m1, p5}, m1]))^
              2) - (10*CK*(-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
               barlam[2, p7])*(-((barlam[2, p3]*(-(barlam[1, p4]*
                    (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                  barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p4]))) + (barlam[1, p3]*
                (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*barlam[2, 
                    p4]) + barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*
                  lam[2, et6] - lam[1, et6]*lam[2, p4])))*
             (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p4]))) + (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*
                      lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))^
              2*(-(lam[2, p3]*((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                    barlam[2, p6])*lam[1, p4] + (lam[1, et5]*
                   (-((-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*lam[1, p4]*lam[2, p3]) + (barlam[1, p6]*
                          barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                        lam[1, p3]*lam[2, p4])*(-((barlam[2, p3]*
                          (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                         ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]))) + (barlam[1, p3]*
                         (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])))) - (-(barlam[1, p7]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                     (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1])) + lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                    (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]))) + (barlam[1, p7]*
                        (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])))*((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*lam[2, p4]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p4]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                    (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]))) + (barlam[1, p3]*
                       (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
                   (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]))) + (barlam[1, p7]*
                       (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))) + 
              lam[1, p3]*((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*lam[2, p4] + (lam[2, et5]*
                  (-((-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*lam[1, p4]*lam[2, p3]) + (barlam[1, p6]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                       lam[1, p3]*lam[2, p4])*(-((barlam[2, p3]*
                         (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]))) + (barlam[1, p3]*
                        (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])))) - (-(barlam[1, p7]*
                       barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                    (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1])) + lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]))) + (barlam[1, p7]*
                       (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))*
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - (barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*lam[1, p4]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
                    (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]))) + (-((barlam[2, p7]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))))*((barlam[2, p3]*
                (barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + (((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p4]*lam[2, et5] - 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p4])*(-(barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]))) + (barlam[1, p3]*(-(barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4]))) + (-((barlam[2, p7]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))) - (barlam[1, p3]*(barlam[2, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 (((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*lam[1, p4]*lam[2, et5] - (barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p4])*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]))) + (barlam[1, p3]*(-(barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4]))) + (-((barlam[2, p7]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))))*(((-(barlam[2, p4]*(lam[1, p4]*
                     lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                (barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + (((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p4]*lam[2, et5] - 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p4])*(-(barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]))) + (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
                   (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))) - ((-(barlam[1, p4]*(lam[1, p4]*
                     lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + (((barlam[1, p6]*barlam[2, p4] - 
                      barlam[1, p4]*barlam[2, p6])*lam[1, p4]*lam[2, et5] - 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*lam[1, et5]*lam[2, p4])*(-(barlam[2, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]))) + (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
                   (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))))*
             (-(((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(barlam[1, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*lam[1, p4]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p4])*(-(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) + barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4]))) + (barlam[1, p3]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))) + 
              ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]))*(barlam[2, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 (((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*lam[1, p4]*lam[2, et5] - (barlam[1, p6]*
                       barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                     lam[1, et5]*lam[2, p4])*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) + barlam[2, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]))) + (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
                   (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))))*(((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*lam[2, p4] + 
                (lam[2, et5]*(-((-((barlam[1, p6]*barlam[2, p4] - barlam[1, 
                          p4]*barlam[2, p6])*lam[1, p4]*lam[2, p3]) + 
                      (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*lam[1, p3]*lam[2, p4])*(-((barlam[2, p3]*
                         (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]))) + (barlam[1, p3]*
                        (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])))) - (-(barlam[1, p7]*
                       barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                    (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1])) + lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]))) + (barlam[1, p7]*
                       (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))*
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - (barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*lam[1, p4]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
                    (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]))) + (-((barlam[2, p7]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
              ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 lam[1, p4] + (lam[1, et5]*(-((-((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*lam[1, p4]*
                        lam[2, p3]) + (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p3]*lam[2, p4])*
                     (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]))) + (barlam[1, p3]*
                        (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])))) - (-(barlam[1, p7]*
                       barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                    (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1])) + lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]))) + (barlam[1, p7]*
                       (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))*
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - (barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*lam[1, p4]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
                    (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]))) + (-((barlam[2, p7]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                  m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                spba[p7, {m1, p5}, m1])^5)/
            (((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - (((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*lam[1, p4]*
                      lam[2, et5] - (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*lam[1, et5]*lam[2, p4])*
                    (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p4])) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]))) + (barlam[1, p3]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]))) + (-((barlam[2, p7]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]))) + (barlam[1, p7]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))) - (barlam[1, p2]*(-(barlam[2, p3]*
                    (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                  (((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*lam[1, p4]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p4])*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]))) + (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]))) + (-((barlam[2, p7]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
                   (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))))^2*(-(lam[2, p3]*(lam[1, p3]*
                  ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])) - (barlam[1, p3]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]))) + ((barlam[2, p7]*
                     (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])) - (barlam[1, p7]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])))*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p5])/spba[p7, {m1, p5}, m1]))) + lam[1, p3]*(
                lam[2, p3]*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - (barlam[1, p3]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p4]))) + ((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - (barlam[1, p7]*
                    (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p4])))*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                   spba[p7, {m1, p5}, m1])))*(-((lam[2, m1]*spb[m1, p7] + 
                 lam[2, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                   (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                  ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p2] - 
                 (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                     lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p2] - 
                (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                  {m1, p5}, m1]) - lam[1, p3]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (-(((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  lam[2, p4] + (lam[2, et5]*(-((-((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*lam[1, p4]*
                         lam[2, p3]) + (barlam[1, p6]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p3]*lam[2, p4])*
                      (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                         ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]))) + (barlam[1, p3]*
                         (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])))) - (-(barlam[1, p7]*
                        barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                     (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1])) + lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                    (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]))) + (barlam[1, p7]*
                        (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])))*((barlam[1, p6]*barlam[2, 
                          p4] - barlam[1, p4]*barlam[2, p6])*lam[2, p4]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - (barlam[1, p6]*barlam[2, p4] - 
                        barlam[1, p4]*barlam[2, p6])*lam[1, p4]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                    (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]))) + (barlam[1, p3]*
                       (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
                   (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]))) + (barlam[1, p7]*
                       (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                   m1])) + ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*lam[1, p4] + (lam[1, et5]*
                  (-((-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[
                          2, p6])*lam[1, p4]*lam[2, p3]) + (barlam[1, p6]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                       lam[1, p3]*lam[2, p4])*(-((barlam[2, p3]*
                         (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                        ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4]))) + (barlam[1, p3]*
                        (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])))) - (-(barlam[1, p7]*
                       barlam[2, p3]) + barlam[1, p3]*barlam[2, p7])*
                    (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1])) + lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                       ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                          barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4]))) + (barlam[1, p7]*
                       (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))*
                    ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - (barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*lam[1, p4]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
                    (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]))) + (-((barlam[2, p7]*(-(barlam[1, p4]*
                          (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             ((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                  (((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*lam[1, p4]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p4])*(-(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[1, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                (((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4]))) + (barlam[1, p3]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))*spba[p7, {m1, p5}, m1]) - 
               (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                  (((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*lam[1, p4]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p4])*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                (((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4]))) + (barlam[1, p3]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]))) + (-((barlam[2, p7]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
                    (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))*spba[p7, {m1, p5}, m1]))^
              2) - (10*CK*(-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p4]))) + (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*
                      lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))^
              5*(-((barlam[2, p2]*(-((((barlam[1, p6]*barlam[2, p4] - 
                         barlam[1, p4]*barlam[2, p6])*lam[1, p4]*lam[2, 
                         et5] - (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                          barlam[2, p6])*lam[1, et5]*lam[2, p4])*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((-((barlam[2, p7]*(-(barlam[1, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]))) + (barlam[1, p7]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))) + (barlam[1, p2]*
                 (-((((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*lam[1, p4]*lam[2, et5] - (barlam[1, p6]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                       lam[1, et5]*lam[2, p4])*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]))) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))))^2*((barlam[2, p3]*
                (-((((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*lam[1, p4]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p4])*(-(barlam[1, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4]))) - barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p4]))) + (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))) - (barlam[1, p3]*
                (-((((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*lam[1, p4]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p4])*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4]))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p4]))) + (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))))*(-((barlam[2, p3]*
                 (-((((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*lam[1, p4]*lam[2, et5] - (barlam[1, p6]*
                         barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                       lam[1, et5]*lam[2, p4])*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]))) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1])))) + (barlam[1, p3]*
                (-((((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*lam[1, p4]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p4])*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4]))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p4]))) + (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))))*(-(((barlam[2, p7]*(-(barlam[1, p4]*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])) - (barlam[1, p7]*
                   (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p4])))*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                  spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                   (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                  ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))) + (barlam[1, p2]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))*
                   ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - (barlam[1, p6]*barlam[2, 
                        p4] - barlam[1, p4]*barlam[2, p6])*lam[1, p4]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
              ((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p4])) - (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))*
               (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]))) + (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))*((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (-(((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                  ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                      p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p4])) - (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])))*(lam[2, p2] - (lam[2, et6]*
                   (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                   (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[2, et5]*((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                       barlam[2, p6])*lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p6])*lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))*(-((barlam[2, p5]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                      ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                    (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
              ((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p4])) - (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))*
               (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                   lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]))*(-((barlam[2, p5]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                 m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                {m1, p5}, m1])*((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/
               spba[p7, {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*
                spa[p5, m1])/spba[p7, {m1, p5}, m1])*
             ((barlam[2, p5]*spa[p5, m1]*(-((((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p4]*lam[2, et5] - 
                     (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*lam[1, et5]*lam[2, p4])*(-(barlam[1, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4]))) - barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p4]))) + (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))*spba[p7, {m1, p5}, m1]) - 
              (barlam[1, p5]*spa[p5, m1]*(-((((barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*lam[1, p4]*lam[2, et5] - 
                     (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*lam[1, et5]*lam[2, p4])*(-(barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4]))) - barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p4]))) + (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*
                        lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                    barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
            ((-((barlam[2, p7]*((((barlam[1, p6]*barlam[2, p4] - barlam[1, 
                          p4]*barlam[2, p6])*lam[1, p4]*lam[2, et5] - 
                      (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                          p6])*lam[1, et5]*lam[2, p4])*(-(barlam[1, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) + barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))) + (barlam[1, p7]*
                 ((((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*lam[1, p4]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p4])*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                ((-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))))^2*
             (((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*((((barlam[1, p6]*barlam[2, 
                         p4] - barlam[1, p4]*barlam[2, p6])*lam[1, p4]*
                      lam[2, et5] - (barlam[1, p6]*barlam[2, p4] - 
                       barlam[1, p4]*barlam[2, p6])*lam[1, et5]*lam[2, p4])*
                    (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])))/
                   ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                       p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p4])) + barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))/((-(barlam[1, p6]*
                    barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                 (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                 (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))) - ((-(barlam[1, p4]*(lam[1, p4]*
                      lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                   (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                 ((((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                         p6])*lam[1, p4]*lam[2, et5] - (barlam[1, p6]*
                        barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                      lam[1, et5]*lam[2, p4])*(-(barlam[2, p4]*(lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) + barlam[2, p7]*(lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                 (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4]))) + (barlam[1, p7]*(-(barlam[2, p4]*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                     barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                     barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))))^2*(lam[2, p3]*(lam[1, m1]*
                 spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]))) + (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))*((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]))) + (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))*((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]))) + (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))*((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(
                lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                   lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]))*(-((barlam[2, p5]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]))) + (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))*((barlam[1, p6]*barlam[2, p4] - 
                     barlam[1, p4]*barlam[2, p6])*lam[2, p4]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1])))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(
                lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                   lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]))*(-((barlam[2, p5]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*lam[
                2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                  {m1, p5}, m1]) - (barlam[1, p6]*barlam[2, p4] - 
                barlam[1, p4]*barlam[2, p6])*lam[1, p4]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p4])) - (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))*
               (lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                   lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]))*(-((barlam[2, p5]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
              ((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                     p4])) - (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*
                       lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                    (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))*
               (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                   lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                      barlam[2, p6])*lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p6])*lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]))*(-((barlam[2, p5]*
                      (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
           (10*CK*(barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, p7])^
              5*(-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p4]))) + (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*
                     lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))*
             ((barlam[2, p3]*(-(barlam[1, p2]*(lam[2, et5]*(lam[1, p2] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                     m1]))) - (barlam[1, p3]*(-(barlam[2, p2]*(lam[2, et5]*
                     (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                         lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                     m1]))))*(-((barlam[2, p3]*(-(barlam[1, p2]*
                    (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1])))) + (barlam[1, p3]*(-(barlam[2, p2]*
                   (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                     m1]))))*(-(((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                 (-(barlam[1, p2]*(lam[2, et5]*(lam[1, p2] - (lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*(barlam[1, p7]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p7])*(lam[1, p4]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p4])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1])))) + ((-(barlam[1, p4]*(lam[1, p4]*
                     lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                (-(barlam[2, p2]*(lam[2, et5]*(lam[1, p2] - (lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p4]) + 
                 barlam[1, p4]*barlam[2, p6])*(barlam[1, p7]*barlam[2, p2] - 
                 barlam[1, p2]*barlam[2, p7])*(lam[1, p4]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p4])*(lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))))*(-((-(barlam[1, p7]*barlam[2, p2]) + 
                 barlam[1, p2]*barlam[2, p7])*(lam[2, m1]*spb[m1, p7] + 
                 lam[2, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                   (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                  ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))) + (barlam[1, p2]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))*
                   ((lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                         lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p2] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])*spba[p7, {m1, p5}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*(
                lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]))) + (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))*((lam[2, p2] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])*spba[p7, {m1, p5}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (-((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p7])*((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                    barlam[2, p6])*lam[2, p4] - (lam[2, et5]*
                   ((lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                         lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p2] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, 
                        m1])) + (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                      spba[p7, {m1, p5}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 lam[1, p4] - (lam[1, et5]*((lam[2, p2] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                 spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p6]))*spa[p5, m1])/(
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                spba[p7, {m1, p5}, m1]))*((barlam[2, p5]*spa[p5, m1]*
                 (-(barlam[1, p2]*(lam[2, et5]*(lam[1, p2] - (lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))*spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*
                 spa[p5, m1]*(-(barlam[2, p2]*(lam[2, et5]*(lam[1, p2] - 
                       (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))*spba[p7, {m1, p5}, m1]))^2)/
            (((barlam[2, p2]*(barlam[1, p2]*(lam[2, et5]*(lam[1, p2] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))) - (barlam[1, p2]*(barlam[2, p2]*(lam[2, et5]*
                     (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                         lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                      (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))))^2*(-((barlam[2, p7]*(barlam[1, p2]*
                    (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))) + (barlam[1, p7]*(barlam[2, p2]*
                   (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))))^2*(lam[2, p3]*((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*lam[1, p4] - 
                (lam[1, et5]*((lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])))) - 
              lam[1, p3]*((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*lam[2, p4] - (lam[2, et5]*
                  ((lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                        lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p4]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p2] - 
                     (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                         lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                     lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4]))) + (barlam[1, p2]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))*
                   ((lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                         lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p2] - 
                      (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                          lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])*spba[p7, {m1, p5}, m1]))))*
                ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  lam[1, p4] - (lam[1, et5]*((lam[2, p2] - (lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, 
                        m1])) + (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                      spba[p7, {m1, p5}, m1]))))) + (lam[1, m1]*spb[m1, p7] + 
                lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                  (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]))) + (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))*((lam[2, p2] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])*spba[p7, {m1, p5}, m1]))))*(
                (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 lam[2, p4] - (lam[2, et5]*((lam[2, p2] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])))))*
             ((lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                   lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
              (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                   lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             ((-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*(
                lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]))) + (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))*((lam[2, p2] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])*spba[p7, {m1, p5}, m1]))))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
              (-(barlam[1, p7]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p7])*(
                lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4]))) + (barlam[1, p2]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])))*((lam[2, p2] - (lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, p2] - (lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])*spba[p7, {m1, p5}, m1]))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
           (10*CK*(barlam[1, p7]*barlam[2, p2] - barlam[1, p2]*barlam[2, p7])*
             (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p4]))) + (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*
                     lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))*
             (lam[2, p3]*((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                   barlam[2, p6])*lam[1, p4] - (lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])))))*(-((barlam[1, p5]*
                   barlam[2, p3]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                (barlam[1, p3]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                  m1]) - lam[1, p3]*((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*lam[2, p4] - 
                (lam[2, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])))))*(-((barlam[1, p5]*
                   barlam[2, p3]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                (barlam[1, p3]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                  m1]))*(lam[2, p3]*(lam[1, p2] - (lam[1, et6]*
                  (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])))))*(-((barlam[1, p5]*
                   barlam[2, p3]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                (barlam[1, p3]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                  m1]) - lam[1, p3]*(lam[2, p2] - (lam[2, et6]*
                  (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])))))*(-((barlam[1, p5]*
                   barlam[2, p3]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                (barlam[1, p3]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                  m1]))*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                  (barlam[1, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))) - lam[1, et5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))))/spba[p7, {m1, p5}, 
                    m1]))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                    {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, m1])/
                   spba[p7, {m1, p5}, m1]))) + (barlam[1, p2]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) + (barlam[2, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                   spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                   barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
             ((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) + (barlam[1, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                   spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                   barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
              (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) + (barlam[2, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                   spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                   barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
             (-((barlam[2, p7]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) + (barlam[1, p5]*spa[p5, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                    barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + 
              (barlam[1, p7]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) + (barlam[2, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                   spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                   barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
             (-(((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))*(-(barlam[1, p3]*(lam[1, p3]*
                       lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                   (barlam[1, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))) - lam[1, et5]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))))/spba[p7, {m1, p5}, 
                     m1]))/((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                    barlam[2, p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/
                    spba[p7, {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + 
               ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[2, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                  (barlam[2, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))) - lam[1, et5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))))/spba[p7, {m1, p5}, 
                    m1]))/((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                   lam[2, p3])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                   lam[2, p4])*((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/
                   spba[p7, {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1])))^2*
             ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, {m1, p5}, 
                 m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, m1])/
                spba[p7, {m1, p5}, m1])^5)/
            ((-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                     lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-(((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  lam[2, p4] - (lam[2, et5]*(-(lam[2, p3]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))) + lam[1, p3]*
                     (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])))))*(lam[1, p2] - 
                 (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                     lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[1, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                       lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                    lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                        p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, 
                        m1])) + (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                      spba[p7, {m1, p5}, m1])))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*(-((barlam[2, p2]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
                    (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))))) + ((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*lam[1, p4] - 
                (lam[1, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])))))*(lam[2, p2] - 
                (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4]))))))*
             (-((lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                    lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                      barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[2, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                       lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                    lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                        p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                   (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                       spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                        barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, 
                        m1])) + (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                      spba[p7, {m1, p5}, m1])))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*(-((barlam[2, p2]*
                       (-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
                    (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])))))*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                  spba[p7, {m1, p5}, m1])) + (lam[1, p2] - 
                (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                      spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]))*
                     spa[p5, m1])/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])))))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (-(lam[2, p3]*((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                    barlam[2, p6])*lam[1, p4] - (lam[1, et5]*
                   (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                    lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                        p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])))))*(-((barlam[1, p5]*
                    barlam[2, p3]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                 (barlam[1, p3]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                   m1])) + lam[1, p3]*((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*lam[2, p4] - 
                (lam[2, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])))))*(-((barlam[1, p5]*
                   barlam[2, p3]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                (barlam[1, p3]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                  m1]))*(-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3]) - (barlam[1, p5]*
                     spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                    spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + 
               (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) - (barlam[2, p5]*spa[p5, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                    barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))^2*
             (-((barlam[2, p5]*spa[p5, m1]*(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3]) - (barlam[1, p5]*
                     spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                    spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])*
                  spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                 (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) - (barlam[2, p5]*spa[p5, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))) - lam[1, et5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))))/spba[p7, {m1, p5}, 
                    m1]))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                    {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, m1])/
                   spba[p7, {m1, p5}, m1])*spba[p7, {m1, p5}, m1]))^2) - 
           (10*CK*(barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
             (-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*
                     lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, 
                    p4]))) + (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*
                     lam[2, et6] - lam[1, et6]*lam[2, p4])) - barlam[2, p6]*
                  (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/(
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))*
             (-(((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                  lam[2, p4] - (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + 
                      lam[2, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                        p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])*
                ((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                   m1] - (barlam[1, p5]*barlam[2, p7]*spa[p5, m1])/
                  spba[p7, {m1, p5}, m1])) + ((barlam[1, p6]*barlam[2, p4] - 
                  barlam[1, p4]*barlam[2, p6])*lam[1, p4] - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                 spba[p7, {m1, p5}, m1])*((barlam[1, p7]*barlam[2, p5]*
                  spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p5]*
                  barlam[2, p7]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))*
             (-((lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                    lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                      barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                        p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                        p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])*spba[p7, {m1, p5}, m1])))/
                  ((-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])*
                ((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                   m1] - (barlam[1, p5]*barlam[2, p7]*spa[p5, m1])/
                  spba[p7, {m1, p5}, m1])) + (lam[1, p2] - 
                (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])*spba[p7, {m1, p5}, m1])))/
                 ((-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                 spba[p7, {m1, p5}, m1])*((barlam[1, p7]*barlam[2, p5]*
                  spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p5]*
                  barlam[2, p7]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))*
             (-((barlam[2, p2]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]))) + (barlam[1, p5]*spa[p5, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))*(-((barlam[1, p7]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                    barlam[2, p7]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + 
              (barlam[1, p2]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))) + (barlam[2, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))*(-((barlam[1, p7]*barlam[2, p5]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                   barlam[2, p7]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
             ((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))) + (barlam[1, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))*(-((barlam[1, p7]*barlam[2, p5]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                   barlam[2, p7]*spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
              (barlam[1, p3]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))) + (barlam[2, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))*(-((barlam[1, p7]*barlam[2, p5]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                   barlam[2, p7]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
             (-((barlam[2, p3]*(-(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]))) + (barlam[1, p5]*spa[p5, 
                     m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))*(-((barlam[1, p7]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                    barlam[2, p7]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + 
              (barlam[1, p3]*(-(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))) + (barlam[2, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))*(-((barlam[1, p7]*barlam[2, p5]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                   barlam[2, p7]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
             (-(((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6]))*(-(barlam[1, p7]*(lam[2, et5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) + 
                   (barlam[1, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))) - lam[1, et5]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))))/spba[p7, {m1, p5}, 
                     m1]))/((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                    barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + 
               ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[2, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]))) + 
                  (barlam[2, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))) - lam[1, et5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))))/spba[p7, {m1, p5}, 
                    m1]))/((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                   lam[2, p4])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))*(-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/
                    spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1])))^2*
             (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                  m1]) + (barlam[1, p5]*barlam[2, p7]*spa[p5, m1])/
                spba[p7, {m1, p5}, m1])^5)/((lam[2, p3]*(lam[1, p2] - 
                (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])*spba[p7, {m1, p5}, m1])))/
                 ((-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))) - lam[1, p3]*(lam[2, p2] - 
                (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])*spba[p7, {m1, p5}, m1])))/
                 ((-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))))*(-(((barlam[1, p6]*barlam[2, p4] - 
                   barlam[1, p4]*barlam[2, p6])*lam[2, p4] - 
                 (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                        p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                        p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))*(lam[1, p2] - 
                 (lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                     lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                        p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                        p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                        barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                          barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                       (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                      (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4])*spba[p7, {m1, p5}, m1])))/
                  ((-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                      ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                         barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                         lam[2, p4]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                         (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))) + 
              ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 lam[1, p4] - (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))))*(lam[2, p2] - (lam[2, et6]*
                  (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[2, p5]*(-(barlam[1, p4]*(lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                       barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6]))*spa[p5, m1])/((-(barlam[1, p6]*
                         barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
                      (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*
                     (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                          lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6]))*spa[p5, m1])/
                    ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                       lam[2, p4])*spba[p7, {m1, p5}, m1])))/
                 ((-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))))*((lam[2, m1]*spb[m1, p7] + 
                lam[2, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                  (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 lam[2, p4] - (lam[2, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                 spba[p7, {m1, p5}, m1])*((barlam[1, p7]*barlam[2, p5]*
                  spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p5]*
                  barlam[2, p7]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) - 
              ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 lam[1, p4] - (lam[1, et5]*((lam[2, m1]*spb[m1, p7] + 
                     lam[2, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                       (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                      ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*
                         lam[2, et6] - lam[1, et6]*lam[2, p4])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])) - barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])))/
                     ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                        barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                        lam[2, p4]))) + (barlam[1, p2]*(-(barlam[2, p4]*
                        (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                      barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p4])))*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                 spba[p7, {m1, p5}, m1])*((barlam[1, p7]*barlam[2, p5]*
                  spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p5]*
                  barlam[2, p7]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))*
             (-((barlam[2, p7]*(barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1])) - (barlam[1, p5]*spa[p5, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                    spba[p7, {m1, p5}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p7]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p7]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + 
               (barlam[1, p7]*(barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])) - (barlam[2, p5]*spa[p5, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))*(-((barlam[1, p7]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                    barlam[2, p7]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))^2*
             (-((barlam[2, p5]*spa[p5, m1]*(barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                   (barlam[1, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))) - lam[1, et5]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))))/spba[p7, {m1, p5}, 
                     m1]))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])*spba[p7, {m1, p5}, 
                   m1])) + (barlam[1, p5]*spa[p5, m1]*(barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                  (barlam[2, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))) - lam[1, et5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))))/spba[p7, {m1, p5}, 
                    m1]))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                     spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                     {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*spa[p5, 
                     m1])/spba[p7, {m1, p5}, m1])*spba[p7, {m1, p5}, m1]))^
              2) - (10*CK*(-(barlam[1, p7]*barlam[2, p3]) + barlam[1, p3]*
               barlam[2, p7])*(-((barlam[2, p2]*(-(barlam[1, p4]*
                     (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
                   barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])))/((-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p4]))) + (barlam[1, p2]*
                 (-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])))/((-(barlam[1, p6]*barlam[2, 
                     p4]) + barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*
                   lam[2, et6] - lam[1, et6]*lam[2, p4])))^5*
             (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] + 
                 (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p3]) + 
                       barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])) + lam[1, p3]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
                    (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                          spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                          ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                      lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                     ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                        {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, 
                         m1])/spba[p7, {m1, p5}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                         {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                        spa[p5, m1])/spba[p7, {m1, p5}, m1])))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                    ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, 
                        m1])/spba[p7, {m1, p5}, m1]) + (lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                        {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                     lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] + 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])) + lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
                   (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                         p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                    ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, 
                        m1])/spba[p7, {m1, p5}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                        {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, 
                       m1])/spba[p7, {m1, p5}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] + 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])) + lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
                   (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                         p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                    ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, 
                        m1])/spba[p7, {m1, p5}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                        {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, 
                       m1])/spba[p7, {m1, p5}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] + 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])) + lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
                   (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                         p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                    ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, 
                        m1])/spba[p7, {m1, p5}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                        {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, 
                       m1])/spba[p7, {m1, p5}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             ((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[1, p7]*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                 (barlam[1, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                    barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                     {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*spa[p5, 
                     m1])/spba[p7, {m1, p5}, m1])) - (barlam[1, p3]*
                (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])) - (barlam[2, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                    barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                 (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                     {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*spa[p5, 
                     m1])/spba[p7, {m1, p5}, m1])))*
             ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, {m1, p5}, 
                m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                {m1, p5}, m1])*(-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/
                 spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                 spa[p5, m1])/spba[p7, {m1, p5}, m1])^2*
             ((barlam[2, p5]*spa[p5, m1]*(barlam[1, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                 (barlam[1, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/(((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, 
                 m1]) - (barlam[1, p5]*spa[p5, m1]*(barlam[2, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1])) - (barlam[2, p5]*spa[p5, m1]*(lam[2, et5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*
                          lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/(((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, 
                 m1]))*(-((barlam[2, p5]*spa[p5, m1]*(barlam[1, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])) - (barlam[1, p5]*spa[p5, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))) - lam[1, et5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))))/spba[p7, {m1, p5}, 
                    m1]))/(((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, 
                       m1])/spba[p7, {m1, p5}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))*spba[p7, 
                  {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])) - (barlam[2, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                       ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/(((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, 
                 m1])))/(((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*
                 barlam[2, p6])*lam[2, p4]*(lam[1, p2] - (lam[1, et6]*
                  (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*lam[
                1, p4]*(lam[2, p2] - (lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + 
                   lam[1, p4]*lam[2, p6])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-(lam[2, p3]*(lam[1, p3]*(-((barlam[1, p5]*barlam[2, p3]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p3]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                 (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])*
                  ((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                     {m1, p5}, m1] - (barlam[1, p5]*barlam[2, p7]*spa[p5, 
                      m1])/spba[p7, {m1, p5}, m1]))) + lam[1, p3]*(
                lam[2, p3]*(-((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/
                    spba[p7, {m1, p5}, m1]) + (barlam[1, p3]*barlam[2, p5]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (lam[2, p7] + 
                  (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])*
                 ((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                    {m1, p5}, m1] - (barlam[1, p5]*barlam[2, p7]*spa[p5, m1])/
                   spba[p7, {m1, p5}, m1])))*(lam[2, p3]*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
              lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                  {m1, p5}, m1]))*(-((lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                  spb[p5, p7] + (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, 
                          p3]) + barlam[1, p3]*barlam[2, p7])*
                      (-(lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1])) + lam[1, p3]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
                    (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                          spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                          ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                      lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                          (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                     ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                        {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, 
                         m1])/spba[p7, {m1, p5}, m1]) - 
                    ((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                     (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                         {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                        spa[p5, m1])/spba[p7, {m1, p5}, m1])))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                    ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, 
                        m1])/spba[p7, {m1, p5}, m1]) + (lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                        {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                     lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                     lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] + 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p3]) + 
                      barlam[1, p3]*barlam[2, p7])*(-(lam[2, p3]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])) + lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
                   (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                         ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                         p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*
                          lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                    ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, 
                        m1])/spba[p7, {m1, p5}, m1]) - 
                   ((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                    (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                        {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, 
                       m1])/spba[p7, {m1, p5}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*
                    lam[2, p6]))/((lam[1, p4]*lam[2, et6] - lam[1, et6]*
                    lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p3])) - barlam[1, p7]*(lam[2, et5]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                         spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))) - lam[1, et5]*
                       (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))))/spba[p7, {m1, p5}, 
                     m1]))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, 
                       m1])/spba[p7, {m1, p5}, m1]) + (lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + (barlam[1, p2]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])) + (barlam[2, p5]*spa[p5, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6]))/
                        ((lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))^2*
             (((-(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
                  (barlam[1, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))) - lam[1, et5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))))/spba[p7, {m1, p5}, 
                    m1]))/((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                   lam[2, p4])*((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                        {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
               ((-(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                      lam[2, p4])) - barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6]))*(-(barlam[2, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[2, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
                  (barlam[2, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))) - lam[1, et5]*
                      (lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[2, et6]*(-(lam[1, p6]*lam[2, 
                          p4]) + lam[1, p4]*lam[2, p6]))/((lam[1, p4]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p4])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1])))))/spba[p7, {m1, p5}, 
                    m1]))/((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                   barlam[2, p6])*(lam[1, p4]*lam[2, et6] - lam[1, et6]*
                   lam[2, p4])*((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                        {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p7]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))))^2)))/
         ((-(lam[1, p6]*lam[2, p4]) + lam[1, p4]*lam[2, p6])*
          (-((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                   lam[2, et6] - lam[1, et6]*lam[2, p6])))/
              ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
               (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4]))) + 
            (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                  lam[2, et6] - lam[1, et6]*lam[2, p6])))/
             ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
              (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))^2*
          ((barlam[2, p6]*(barlam[1, p4]*(lam[1, p4]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p4]) + barlam[1, p6]*(lam[1, p6]*
                  lam[2, et6] - lam[1, et6]*lam[2, p6])))/
             ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
              (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])) - 
            (barlam[1, p6]*(barlam[2, p4]*(lam[1, p4]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p4]) + barlam[2, p6]*(lam[1, p6]*
                  lam[2, et6] - lam[1, et6]*lam[2, p6])))/
             ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, p6])*
              (lam[1, p4]*lam[2, et6] - lam[1, et6]*lam[2, p4])))^2) + 
        ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])^5*
          ((-10*CK*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, 
                        et5] - lam[1, et5]*lam[2, p3])) - 
                   ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))*
                     ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))))) + (barlam[1, p2]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - ((-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p3]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))))^2*
             ((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - ((-(barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))/((barlam[1, p7]*barlam[2, 
                      p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1])))))/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                 (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))) - 
              (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - ((-(barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))/((barlam[1, p7]*barlam[2, 
                      p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1])))))/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                 (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))))*
             (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - ((-(barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p3]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))))) + 
              (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - ((-(barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))/((barlam[1, p7]*barlam[2, 
                      p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1])))))/(
                (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                 (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))))*
             (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
               (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))^5*
             (lam[2, p3]*((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
                (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p3]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              lam[1, p3]*((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
                (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p3]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (lam[2, p3]*((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
                (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*(
                lam[1, p2] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]))*(-((barlam[2, p5]*spa[p5, m1]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              lam[1, p3]*((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
                (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*(
                lam[2, p2] - (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]))*(-((barlam[2, p5]*spa[p5, m1]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                 m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                {m1, p5}, m1])*((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/
               spba[p7, {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*
                spa[p5, m1])/spba[p7, {m1, p5}, m1])*
             ((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                 ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                  lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1])))) + (barlam[1, p3]*
                   (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
                spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*spa[p5, m1]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - ((-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                  lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1])))) + (barlam[1, p3]*
                   (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
                spba[p7, {m1, p5}, m1])))/
            ((-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) + ((-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*lam[2, et5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1])))))/((lam[1, p3]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1])))))) + (barlam[1, p3]*
                 (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + ((-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p3]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))))^2*
             (-(((barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3]) + ((-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))*
                     ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))))*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
               ((barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + ((-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p6] - barlam[1, p6]*barlam[2, p7])*(lam[1, p3]*
                   lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p3]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))^2*
             (lam[2, p4]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p3]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p3]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-(lam[2, p3]*((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))) - (barlam[1, p3]*
                   (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
                (lam[1, p2] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                        {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                      barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*lam[2, p3]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))*(-((barlam[2, p5]*spa[p5, m1]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])) + 
                    (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                      spba[p7, {m1, p5}, m1])))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              lam[1, p3]*((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
                (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*(
                lam[2, p2] - (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]))*(-((barlam[2, p5]*spa[p5, m1]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p3]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(
                lam[1, p2] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]))*(-((barlam[2, p5]*spa[p5, m1]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p3]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*lam[1, p3]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(
                lam[2, p2] - (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]))*(-((barlam[2, p5]*spa[p5, m1]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                   p7])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                  spba[p7, {m1, p5}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p6]) + barlam[1, p6]*barlam[2, p7])*lam[1, p3]*(
                lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                  m1]))) - (10*CK*(-((barlam[2, p2]*(-(barlam[1, p4]*
                     (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])) - 
                   ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))*
                     ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))))/((lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*(-((barlam[2, p4]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))))) + (barlam[1, p2]*
                 (-(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                      lam[2, p4])) - ((-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))))/
                ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                 (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p4]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))))^2*
             ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4])) - ((-(barlam[1, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))/((barlam[1, p7]*barlam[2, 
                      p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1])))))/(
                (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                 (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))) - 
              (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4])) - ((-(barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))/((barlam[1, p7]*barlam[2, 
                      p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1])))))/(
                (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                 (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))))*
             (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p4])) - ((-(barlam[1, p6]*
                       (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))))/
                ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                 (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p4]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))))) + 
              (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4])) - ((-(barlam[2, p6]*
                      (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))/((barlam[1, p7]*barlam[2, 
                      p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1])))))/(
                (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                 (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))))*
             (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
               (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))^5*
             (lam[2, p4]*((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
                (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p4]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              lam[1, p4]*((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
                (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p4]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (lam[2, p4]*((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
                (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*(
                lam[1, p2] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, p4]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]))*(-((barlam[2, p5]*spa[p5, m1]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              lam[1, p4]*((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
                (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*(
                lam[2, p2] - (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, p4]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]))*(-((barlam[2, p5]*spa[p5, m1]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                 m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                {m1, p5}, m1])*((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/
               spba[p7, {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*
                spa[p5, m1])/spba[p7, {m1, p5}, m1])*
             ((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                     lam[2, et5] - lam[1, et5]*lam[2, p4])) - 
                 ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))))/((lam[1, p4]*lam[2, et5] - lam[1, et5]*
                  lam[2, p4])*(-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1])))) + (barlam[1, p4]*
                   (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
                spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*spa[p5, m1]*
                (-(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4])) - ((-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                     (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))))/((lam[1, p4]*lam[2, et5] - lam[1, et5]*
                  lam[2, p4])*(-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1])))) + (barlam[1, p4]*
                   (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
                spba[p7, {m1, p5}, m1])))/
            ((-((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p4]) + ((-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*lam[2, et5]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1])))))/((lam[1, p4]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p4])*(-((barlam[2, p4]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1])))))) + (barlam[1, p4]*
                 (barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4]) + ((-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))))/
                ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                 (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p4]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))))^2*
             (-(((barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                      lam[2, p4]) + ((-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))*
                     ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[1, et5]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))))*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
               ((barlam[1, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4]) + ((-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                      (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p6] - barlam[1, p6]*barlam[2, p7])*(lam[1, p4]*
                   lam[2, et5] - lam[1, et5]*lam[2, p4])*
                 (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p4]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))^2*
             (lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p4]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p4]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-(lam[2, p4]*((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))) - (barlam[1, p4]*
                   (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                  ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                      p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
                (lam[1, p2] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                        {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                      barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*lam[2, p4]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))*(-((barlam[2, p5]*spa[p5, m1]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])) + 
                    (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                      spba[p7, {m1, p5}, m1])))/((lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4])*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              lam[1, p4]*((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
                (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*(
                lam[2, p2] - (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, p4]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]))*(-((barlam[2, p5]*spa[p5, m1]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p4]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(
                lam[1, p2] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, p4]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]))*(-((barlam[2, p5]*spa[p5, m1]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p4]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                     barlam[1, p6]*barlam[2, p7])*lam[1, p4]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(
                lam[2, p2] - (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, p4]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
                   (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                       p7])*lam[1, p4]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]))*(-((barlam[2, p5]*spa[p5, m1]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                   p7])*lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                  spba[p7, {m1, p5}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p6]) + barlam[1, p6]*barlam[2, p7])*lam[1, p4]*(
                lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                  m1]))) - (10*CK*(barlam[1, p4]*barlam[2, p3] - 
              barlam[1, p3]*barlam[2, p4])*((barlam[2, p4]*(barlam[1, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[1, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                    lam[2, p4]) + ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                   lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1])))) + (barlam[1, p3]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                 (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p4]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))) - 
              (barlam[1, p4]*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[2, p4]*(lam[1, p4]*
                    lam[2, et5] - lam[1, et5]*lam[2, p4]) + 
                 ((-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))))/((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                   lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1])))) + (barlam[1, p3]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                 (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p4]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))))*
             (-(lam[2, p3]*((lam[1, et5]*(-((barlam[1, p4]*barlam[2, p3] - 
                       barlam[1, p3]*barlam[2, p4])*(lam[1, p4]*lam[2, p3] - 
                       lam[1, p3]*lam[2, p4])) - (-((barlam[2, p3]*
                         (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                        ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
                     (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                    (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                        ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p4]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
                     (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[1, p4]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                    (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                    (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p4]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                          m1]))))) + (-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p5])/spba[p7, {m1, p5}, m1]))) + lam[1, p3]*(
                (lam[2, et5]*(-((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p4])*(lam[1, p4]*lam[2, p3] - lam[1, p3]*
                       lam[2, p4])) - (-((barlam[2, p3]*(-(barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                     (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p3]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                   (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p4]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, p4]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                    {m1, p5}, m1])))*(-(lam[2, p4]*((lam[1, et5]*
                   (-((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                         p4])*(lam[1, p4]*lam[2, p3] - lam[1, p3]*lam[2, 
                         p4])) - (-((barlam[2, p3]*(-(barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                      (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p3]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                        barlam[1, p6]*barlam[2, p7])*lam[1, p3]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                    (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                        ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p4]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
                     (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                          barlam[2, p7])*lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
                      (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[1, p4]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                    (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                    (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p4]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                          m1]))))) + (-(barlam[1, p7]*barlam[2, p6]) + 
                   barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p5])/spba[p7, {m1, p5}, m1]))) + lam[1, p4]*(
                (lam[2, et5]*(-((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p4])*(lam[1, p4]*lam[2, p3] - lam[1, p3]*
                       lam[2, p4])) - (-((barlam[2, p3]*(-(barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                     (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p3]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                   (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p4]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, p4]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                    {m1, p5}, m1])))*(-((barlam[2, p3]*(-(barlam[1, p6]*
                     (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                   barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))) + (barlam[1, p3]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                     spba[p7, {m1, p5}, m1]))))^2*
             (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
              (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
             (((barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4]) + ((-(barlam[2, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                    barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))/((barlam[1, p7]*barlam[2, 
                      p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
                (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                 barlam[1, p6]*barlam[2, p7])*((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*(-((barlam[2, p4]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))))*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))) - ((barlam[1, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[1, p4]*
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]) + 
                 ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                        lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))*
                   ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - (-(barlam[1, p7]*barlam[2, 
                         p6]) + barlam[1, p6]*barlam[2, p7])*lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                     barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1])))) + (lam[1, p4]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p4])*(-((barlam[2, p4]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1])))))*(lam[2, et6]*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                     m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                    spba[p7, {m1, p5}, m1]))))*
             (-(((barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + ((-(barlam[2, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p6] - barlam[1, p6]*barlam[2, p7])*
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
              ((barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + barlam[1, p4]*(lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4]) + ((-(barlam[1, p6]*(lam[1, p6]*
                        lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                    barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                      barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                        p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))/((barlam[1, p7]*barlam[2, 
                      p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                 barlam[1, p6]*barlam[2, p7])*((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p3]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*(-((barlam[2, p4]*(-(barlam[1, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (barlam[1, p4]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))))*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))))*(-((barlam[1, p5]*barlam[2, p2]*
                  spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                 barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])^5)/
            ((-(lam[1, p4]*lam[2, p3]) + lam[1, p3]*lam[2, p4])*
             (-(lam[2, p4]*(lam[1, p3]*((barlam[2, p3]*(-(barlam[1, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))) - (barlam[1, p3]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p4]*((barlam[2, p4]*
                     (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))) - (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1])))))) + lam[1, p4]*(
                lam[2, p3]*((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]))) - (barlam[1, p3]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                lam[2, p4]*((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                     barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                     barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]))) - (barlam[1, p4]*
                    (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))))*
             ((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - barlam[1, p4]*(lam[1, p4]*
                     lam[2, et5] - lam[1, et5]*lam[2, p4]) - 
                  ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1])))) + (lam[1, p4]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p4])*(-((barlam[2, p4]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))))) - (barlam[1, p2]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) - ((-(barlam[2, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))))/
                ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1])))) + (lam[1, p4]*lam[2, 
                     et5] - lam[1, et5]*lam[2, p4])*(-((barlam[2, p4]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p4]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))))))^2*
             (lam[2, p3]*((lam[1, et5]*(-((barlam[1, p4]*barlam[2, p3] - 
                      barlam[1, p3]*barlam[2, p4])*(lam[1, p4]*lam[2, p3] - 
                      lam[1, p3]*lam[2, p4])) - (-((barlam[2, p3]*
                        (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                   (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p4]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, p4]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                    {m1, p5}, m1])) - lam[1, p3]*((lam[2, et5]*
                  (-((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, 
                        p4])*(lam[1, p4]*lam[2, p3] - lam[1, p3]*lam[2, 
                        p4])) - (-((barlam[2, p3]*(-(barlam[1, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                     (barlam[1, p3]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-((-(barlam[1, p7]*barlam[2, 
                          p6]) + barlam[1, p6]*barlam[2, p7])*lam[2, p3]*
                       (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])) + (-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*lam[1, p3]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                   (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                          (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                       ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[
                          2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p4]*(-(barlam[2, p6]*
                          (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))))/((barlam[1, p7]*barlam[
                          2, p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
                    (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                         barlam[2, p7])*lam[2, p4]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, p4]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))) + 
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                    {m1, p5}, m1])))*(-((lam[2, m1]*spb[m1, p7] + 
                 lam[2, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*lam[2, et6]*(lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p5])/spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p2] - 
                 (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(
                lam[2, p2] - (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             ((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[1, p4]*
                   (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]) - 
                  ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                         lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))*
                    ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))))/
                (((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))))*
                 spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*spa[p5, m1]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) - ((-(barlam[2, p6]*(lam[1, p6]*
                         lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                     barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))*((-(barlam[1, p7]*barlam[2, p6]) + 
                       barlam[1, p6]*barlam[2, p7])*lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                        barlam[2, p7])*lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                   ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))))/
                (((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p3]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p3]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   (-((barlam[2, p4]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p4]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))))*
                 spba[p7, {m1, p5}, m1]))^2) - 
           (10*CK*(barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])^
              2*(barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
             (barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
             ((barlam[2, p2]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[1, p4]*(lam[1, p4]*
                    lam[2, et5] - lam[1, et5]*lam[2, p4]) + barlam[1, p2]*
                  (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/(
                (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])) - 
              (barlam[1, p2]*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[2, p4]*(lam[1, p4]*
                    lam[2, et5] - lam[1, et5]*lam[2, p4]) + barlam[2, p2]*
                  (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/(
                (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])))*
             (-((barlam[2, p2]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + barlam[1, p4]*(lam[1, p4]*
                     lam[2, et5] - lam[1, et5]*lam[2, p4]) + barlam[1, p2]*
                   (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]))) + 
              (barlam[1, p2]*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[2, p4]*(lam[1, p4]*
                    lam[2, et5] - lam[1, et5]*lam[2, p4]) + barlam[2, p2]*
                  (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/(
                (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])))*
             ((barlam[2, p4]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[1, p4]*(lam[1, p4]*
                    lam[2, et5] - lam[1, et5]*lam[2, p4]) + barlam[1, p2]*
                  (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/(
                (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])) - 
              (barlam[1, p4]*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[2, p4]*(lam[1, p4]*
                    lam[2, et5] - lam[1, et5]*lam[2, p4]) + barlam[2, p2]*
                  (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/(
                (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])))*
             (-(lam[2, p3]*(lam[1, p2] + (lam[1, et5]*(-((barlam[1, p4]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                      (lam[1, p4]*lam[2, p3] - lam[1, p3]*lam[2, p4])) - 
                    (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(-(lam[2, p3]*(lam[1, p2] - (lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                          ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                      lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) - 
                    (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*(-(lam[2, p4]*(lam[1, p2] - (lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                          ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                      lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                  ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p3])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p3]) + (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p4])*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                      lam[2, p4])) - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                        {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                      barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              lam[1, p3]*(lam[2, p2] + (lam[2, et5]*(-((barlam[1, p4]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                     (lam[1, p4]*lam[2, p3] - lam[1, p3]*lam[2, p4])) - 
                   (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p3])*(-(lam[2, p3]*(lam[1, p2] - (lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                     lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) - 
                   (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*(-(lam[2, p4]*(lam[1, p2] - (lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                     lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                   (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])) - 
                (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-(lam[2, p4]*(lam[1, p2] + (lam[1, et5]*(-((barlam[1, p4]*
                        barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                      (lam[1, p4]*lam[2, p3] - lam[1, p3]*lam[2, p4])) - 
                    (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(-(lam[2, p3]*(lam[1, p2] - (lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                          ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                      lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) - 
                    (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p4])*(-(lam[2, p4]*(lam[1, p2] - (lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                          ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                      lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                  ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p3])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p3]) + (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p4])*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                      lam[2, p4])) - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                        {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                      barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              lam[1, p4]*(lam[2, p2] + (lam[2, et5]*(-((barlam[1, p4]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                     (lam[1, p4]*lam[2, p3] - lam[1, p3]*lam[2, p4])) - 
                   (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p3])*(-(lam[2, p3]*(lam[1, p2] - (lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                     lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) - 
                   (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*(-(lam[2, p4]*(lam[1, p2] - (lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                     lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                   (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])) - 
                (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             ((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                 spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*spa[p5, m1]*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                     spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, m1]))^5)/
            ((-(lam[1, p4]*lam[2, p3]) + lam[1, p3]*lam[2, p4])*
             (-(((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p3])*lam[1, p3] + (-(barlam[1, p4]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p4])*lam[1, p4])*lam[2, p4]) + 
              lam[1, p4]*((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                   barlam[2, p3])*lam[2, p3] + (-(barlam[1, p4]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p4])*lam[2, p4]))*
             (-(((-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                       lam[2, p3])) - barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p4]) - barlam[2, p2]*(lam[2, et5]*
                      (lam[1, p2] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[
                          2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                       (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))))*(-(barlam[1, p6]*(lam[1, p6]*
                       lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                    (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p3])*(lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, 
                       p3]) + (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*
                      barlam[2, p4])*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                      lam[2, p4]))*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1])))) + ((-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) - barlam[1, p4]*(lam[1, p4]*
                     lam[2, et5] - lam[1, et5]*lam[2, p4]) - barlam[1, p2]*
                   (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))*
                 (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p6] - barlam[1, p6]*barlam[2, p7])*
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                   (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]))*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))^2*
             (lam[2, p3]*(lam[1, p2] + (lam[1, et5]*(-((barlam[1, p4]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                     (lam[1, p4]*lam[2, p3] - lam[1, p3]*lam[2, p4])) - 
                   (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p3])*(-(lam[2, p3]*(lam[1, p2] - (lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                     lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) - 
                   (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*(-(lam[2, p4]*(lam[1, p2] - (lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                     lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                   (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])) - 
                (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              lam[1, p3]*(lam[2, p2] + (lam[2, et5]*(-((barlam[1, p4]*
                       barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
                     (lam[1, p4]*lam[2, p3] - lam[1, p3]*lam[2, p4])) - 
                   (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p3])*(-(lam[2, p3]*(lam[1, p2] - (lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                     lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) - 
                   (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p4])*(-(lam[2, p4]*(lam[1, p2] - (lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                     lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                   (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])) - 
                (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                   p7])*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                        {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, 
                        p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                    (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                  spba[p7, {m1, p5}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, m1]*
                 spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             ((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[1, p4]*
                   (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]) - 
                  barlam[1, p2]*(lam[2, et5]*(lam[1, p2] - (lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                (((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                   (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]))*
                 spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*spa[p5, m1]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) - barlam[2, p2]*(lam[2, et5]*
                     (lam[1, p2] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[
                          2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                      (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))))/(((barlam[1, p3]*barlam[2, 
                      p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  (barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                   (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]))*
                 spba[p7, {m1, p5}, m1]))^2) - 
           (10*CK*(barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])^
              5*((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) - barlam[1, p2]*(lam[2, et5]*
                    (lam[1, p2] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[
                          2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))))/((barlam[1, p3]*barlam[2, p2] - 
                 barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])) - (barlam[1, p4]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[2, p2]*(lam[2, et5]*(lam[1, p2] - 
                     (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))))/((barlam[1, p3]*barlam[2, p2] - 
                 barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])))*(-((barlam[2, p4]*
                 (-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[1, p2]*(lam[2, et5]*(lam[1, p2] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                      (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))))/((barlam[1, p3]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3]))) + (barlam[1, p4]*
                (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])) - barlam[2, p2]*(lam[2, et5]*(lam[1, p2] - 
                     (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))))/((barlam[1, p3]*barlam[2, p2] - 
                 barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])))*(-((barlam[2, p4]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                     spba[p7, {m1, p5}, m1])))) + (barlam[1, p4]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                 barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))))*(((-(barlam[2, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[2, p2]*
                  (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))*
                (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))))/((barlam[1, p3]*barlam[2, p2] - 
                 barlam[1, p2]*barlam[2, p3])*(barlam[1, p7]*barlam[2, p6] - 
                 barlam[1, p6]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))) - ((-(barlam[1, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[1, p2]*
                  (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))))/((barlam[1, p3]*barlam[2, p2] - 
                 barlam[1, p2]*barlam[2, p3])*(barlam[1, p7]*barlam[2, p6] - 
                 barlam[1, p6]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))))*((-(barlam[1, p3]*barlam[2, p2]) + 
                barlam[1, p2]*barlam[2, p3])*lam[2, p3]*(lam[1, m1]*
                 spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-(lam[2, p3]*(lam[1, p2] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p3]*(lam[2, p2] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p5]*spa[p5, m1]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, 
                      m1])))) - (-(barlam[1, p3]*barlam[2, p2]) + 
                barlam[1, p2]*barlam[2, p3])*lam[1, p3]*(lam[2, m1]*
                 spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-(lam[2, p3]*(lam[1, p2] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p3]*(lam[2, p2] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p5]*spa[p5, m1]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))))*
             ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
               lam[2, p3]*((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                   spba[p7, {m1, p5}, m1]) - (lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, p2] - (lam[1, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))) - 
              (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
               lam[1, p3]*((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                   spba[p7, {m1, p5}, m1]) - (lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, p2] - (lam[1, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))))*
             ((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) - barlam[1, p2]*
                   (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                 spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*spa[p5, m1]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p2]*(lam[2, et5]*(lam[1, p2] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                      (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))))/((barlam[1, p3]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*spba[p7, {m1, p5}, m1]))^2*
             (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                 spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                 barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
            (((barlam[2, p2]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) + barlam[1, p2]*(lam[2, et5]*
                     (lam[1, p2] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[
                          2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                      (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))))/((barlam[1, p3]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])) - (barlam[1, p2]*(barlam[2, p3]*
                   (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                  barlam[2, p2]*(lam[2, et5]*(lam[1, p2] - (lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])))^2*
             (-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3]) + barlam[1, p2]*(lam[2, et5]*
                      (lam[1, p2] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[
                          2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                       (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))))/((barlam[1, p3]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]))) + (barlam[1, p3]*
                 (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) + barlam[2, p2]*(lam[2, et5]*(lam[1, p2] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                      (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))))/((barlam[1, p3]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])))^2*(-(lam[2, p3]*(lam[1, p2] - 
                 (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p3])*lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                  spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*lam[1, et6]*(lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p5])/spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                        barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                    (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-(lam[2, p3]*(lam[1, p2] - 
                       (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p3]*(lam[2, p2] - 
                      (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*(-((barlam[2, p5]*spa[p5, m1]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])) + 
                    (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                      spba[p7, {m1, p5}, m1]))))) + (-(barlam[1, p3]*
                  barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*lam[1, p3]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-(lam[2, p3]*(lam[1, p2] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p3]*(lam[2, p2] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p5]*spa[p5, m1]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))))*
             (lam[2, p4]*((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                   spba[p7, {m1, p5}, m1]) - (lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, p2] - (lam[1, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))) - 
              lam[1, p4]*((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                   spba[p7, {m1, p5}, m1]) - (lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, p2] - (lam[1, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                        {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, 
                        p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                    (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1])) - (lam[2, et5]*(-((barlam[2, p2]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
                   (-(lam[2, p3]*(lam[1, p2] - (lam[1, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                    lam[1, p3]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                        barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                      (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1]))))*
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]) - (lam[1, et5]*(-(lam[2, p3]*
                      (lam[1, p2] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[
                          2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p3]*(lam[2, p2] - 
                      (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                        barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                      (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1]))))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-(lam[2, p3]*(lam[1, p2] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p3]*(lam[2, p2] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(-((barlam[2, p5]*spa[p5, m1]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, m1]))))*(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                    {m1, p5}, m1]) - (lam[2, et5]*(-(lam[2, p3]*(lam[1, p2] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p3]*(lam[2, p2] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))))) - 
           (10*CK*(barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])^
              5*((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4])) - barlam[1, p2]*(lam[2, et5]*
                    (lam[1, p2] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[
                          2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))))/((barlam[1, p4]*barlam[2, p2] - 
                 barlam[1, p2]*barlam[2, p4])*(lam[1, p4]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p4])) - (barlam[1, p3]*
                (-(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4])) - barlam[2, p2]*(lam[2, et5]*(lam[1, p2] - 
                     (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))))/((barlam[1, p4]*barlam[2, p2] - 
                 barlam[1, p2]*barlam[2, p4])*(lam[1, p4]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p4])))*(-((barlam[2, p3]*
                 (-(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                      lam[2, p4])) - barlam[1, p2]*(lam[2, et5]*(lam[1, p2] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                      (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))))/((barlam[1, p4]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p4]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p4]))) + (barlam[1, p3]*
                (-(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4])) - barlam[2, p2]*(lam[2, et5]*(lam[1, p2] - 
                     (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))))/((barlam[1, p4]*barlam[2, p2] - 
                 barlam[1, p2]*barlam[2, p4])*(lam[1, p4]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p4])))*(-((barlam[2, p3]*
                 (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, 
                    p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                   (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                     spba[p7, {m1, p5}, m1])))) + (barlam[1, p3]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                 barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))))*(((-(barlam[2, p4]*(lam[1, p4]*
                     lam[2, et5] - lam[1, et5]*lam[2, p4])) - barlam[2, p2]*
                  (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))*
                (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))))/((barlam[1, p4]*barlam[2, p2] - 
                 barlam[1, p2]*barlam[2, p4])*(barlam[1, p7]*barlam[2, p6] - 
                 barlam[1, p6]*barlam[2, p7])*(lam[1, p4]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))) - ((-(barlam[1, p4]*(lam[1, p4]*
                     lam[2, et5] - lam[1, et5]*lam[2, p4])) - barlam[1, p2]*
                  (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))))/((barlam[1, p4]*barlam[2, p2] - 
                 barlam[1, p2]*barlam[2, p4])*(barlam[1, p7]*barlam[2, p6] - 
                 barlam[1, p6]*barlam[2, p7])*(lam[1, p4]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))))*((-(barlam[1, p4]*barlam[2, p2]) + 
                barlam[1, p2]*barlam[2, p4])*lam[2, p4]*(lam[1, m1]*
                 spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-(lam[2, p4]*(lam[1, p2] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p4]*(lam[2, p2] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))))/((lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*(-((barlam[2, p5]*spa[p5, m1]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, 
                      m1])))) - (-(barlam[1, p4]*barlam[2, p2]) + 
                barlam[1, p2]*barlam[2, p4])*lam[1, p4]*(lam[2, m1]*
                 spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-(lam[2, p4]*(lam[1, p2] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p4]*(lam[2, p2] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))))/((lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*(-((barlam[2, p5]*spa[p5, m1]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))))*
             ((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
               lam[2, p4]*((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                   spba[p7, {m1, p5}, m1]) - (lam[1, et5]*
                  (-(lam[2, p4]*(lam[1, p2] - (lam[1, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))) - 
              (-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*
               lam[1, p4]*((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                   spba[p7, {m1, p5}, m1]) - (lam[2, et5]*
                  (-(lam[2, p4]*(lam[1, p2] - (lam[1, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))))*
             ((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                      lam[2, et5] - lam[1, et5]*lam[2, p4])) - barlam[1, p2]*
                   (lam[2, et5]*(lam[1, p2] - (lam[1, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                 spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*spa[p5, m1]*
                 (-(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                      lam[2, p4])) - barlam[2, p2]*(lam[2, et5]*(lam[1, p2] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                      (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))))/((barlam[1, p4]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p4]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p4])*spba[p7, {m1, p5}, m1]))^2*
             (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                      lam[2, et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                   (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                 spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                     lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                 barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                   (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                 lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
            (((barlam[2, p2]*(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + barlam[1, p2]*(lam[2, et5]*
                     (lam[1, p2] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[
                          2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                      (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))))/((barlam[1, p4]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p4]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p4])) - (barlam[1, p2]*(barlam[2, p4]*
                   (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]) + 
                  barlam[2, p2]*(lam[2, et5]*(lam[1, p2] - (lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                ((barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
                 (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])))^2*
             (-((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p4]) + barlam[1, p2]*(lam[2, et5]*
                      (lam[1, p2] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[
                          2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                       (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))))/((barlam[1, p4]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p4])*(lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4]))) + (barlam[1, p4]*
                 (barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4]) + barlam[2, p2]*(lam[2, et5]*(lam[1, p2] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p2] - 
                      (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))))/((barlam[1, p4]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p4])*(lam[1, p4]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p4])))^2*(-(lam[2, p4]*(lam[1, p2] - 
                 (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                         p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-((-(barlam[1, p4]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                   p4])*lam[2, p4]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                  spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*lam[1, et6]*(lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p5])/spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                        barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                    (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-(lam[2, p4]*(lam[1, p2] - 
                       (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p4]*(lam[2, p2] - 
                      (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))))/((lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4])*(-((barlam[2, p5]*spa[p5, m1]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])) + 
                    (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                      spba[p7, {m1, p5}, m1]))))) + (-(barlam[1, p4]*
                  barlam[2, p2]) + barlam[1, p2]*barlam[2, p4])*lam[1, p4]*(
                lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-(lam[2, p4]*(lam[1, p2] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p4]*(lam[2, p2] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))))/((lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*(-((barlam[2, p5]*spa[p5, m1]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))))*
             (lam[2, p3]*((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                   spba[p7, {m1, p5}, m1]) - (lam[1, et5]*
                  (-(lam[2, p4]*(lam[1, p2] - (lam[1, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))) - 
              lam[1, p3]*((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                   spba[p7, {m1, p5}, m1]) - (lam[2, et5]*
                  (-(lam[2, p4]*(lam[1, p2] - (lam[1, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                        {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, 
                        p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                    (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1])) - (lam[2, et5]*(-((barlam[2, p2]*
                       (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
                   (-(lam[2, p4]*(lam[1, p2] - (lam[1, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                    lam[1, p4]*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                        barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                      (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1]))))*
                ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]) - (lam[1, et5]*(-(lam[2, p4]*
                      (lam[1, p2] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[
                          2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p4]*(lam[2, p2] - 
                      (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                        barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                      (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1]))))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
                   (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p6])) - barlam[2, p7]*
                       (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))*(-(lam[2, p4]*(lam[1, p2] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p4]*(lam[2, p2] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))))/((lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*(-((barlam[2, p5]*spa[p5, m1]*
                      (-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])) + 
                   (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, m1]))))*(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                    {m1, p5}, m1]) - (lam[2, et5]*(-(lam[2, p4]*(lam[1, p2] - 
                      (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                         lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p4]*(lam[2, p2] - 
                     (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))))) - 
           (10*CK*(barlam[1, p4]*barlam[2, p2] - barlam[1, p2]*barlam[2, p4])*
             (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
              (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
             (lam[2, p3]*((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                   spba[p7, {m1, p5}, m1]) - (lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))))))*(-((barlam[1, p5]*
                   barlam[2, p3]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                (barlam[1, p3]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                  m1]) - lam[1, p3]*((-(barlam[1, p7]*barlam[2, p6]) + 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[2, et5]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))))))*(-((barlam[1, p5]*
                   barlam[2, p3]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                (barlam[1, p3]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                  m1]))*(lam[2, p3]*(lam[1, p2] - (lam[1, et6]*
                  (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))))))*(-((barlam[1, p5]*
                   barlam[2, p3]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                (barlam[1, p3]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                  m1]) - lam[1, p3]*(lam[2, p2] - (lam[2, et6]*
                  (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))))))*(-((barlam[1, p5]*
                   barlam[2, p3]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                (barlam[1, p3]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                  m1]))*(-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                  (barlam[1, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                          m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                    barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + 
              (barlam[1, p2]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) + (barlam[2, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                   spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                   barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
             ((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) + (barlam[1, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                   spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                   barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
              (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) + (barlam[2, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                   spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                   barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
             (-((barlam[2, p4]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p3])) + (barlam[1, p5]*spa[p5, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                    barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + 
              (barlam[1, p4]*(-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])) + (barlam[2, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                   spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                   barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
             (-(((-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1])))*
                  (-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                       lam[2, p3])) + (barlam[1, p5]*spa[p5, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                    spba[p7, {m1, p5}, m1]))/((barlam[1, p7]*barlam[2, p6] - 
                   barlam[1, p6]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + 
               ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))*(-(barlam[2, p3]*
                    (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) + 
                  (barlam[2, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                          m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))*((barlam[1, p5]*barlam[2, p3]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                    barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))^2*
             ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, {m1, p5}, 
                 m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, m1])/
                spba[p7, {m1, p5}, m1])^5)/
            ((-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                        {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, 
                        p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                    (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1])))) + lam[1, p3]*(lam[2, m1]*
                 spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (lam[2, p4]*(lam[1, p2] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1])))))) - lam[1, p4]*(
                lam[2, p2] - (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1])))))))*
             (-(((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]) - (lam[2, et5]*(-(lam[2, p3]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                          m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                    lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                        p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))))*
                (lam[1, p2] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                        {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                      barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[1, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                       lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                    lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                        p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                   (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                        barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                      (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                          m1]))))))) + ((-(barlam[1, p7]*barlam[2, p6]) + 
                  barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, et5]*
                  (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))))))*(lam[2, p2] - 
                (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1])))))))*
             (-(lam[2, p3]*((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                    barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                    spba[p7, {m1, p5}, m1]) - (lam[1, et5]*
                   (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                    lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                        p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))))*
                (-((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                    {m1, p5}, m1]) + (barlam[1, p3]*barlam[2, p5]*spa[p5, 
                    m1])/spba[p7, {m1, p5}, m1])) + lam[1, p3]*(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                    {m1, p5}, m1]) - (lam[2, et5]*(-(lam[2, p3]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                          m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))))))*(-((barlam[1, p5]*
                   barlam[2, p3]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                (barlam[1, p3]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                  m1]))*(-((barlam[2, p3]*(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3]) - (barlam[1, p5]*
                     spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                    spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + 
               (barlam[1, p3]*(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3]) - (barlam[2, p5]*spa[p5, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                    barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))^2*
             (-((barlam[2, p5]*spa[p5, m1]*(barlam[1, p3]*(lam[1, p3]*
                      lam[2, et5] - lam[1, et5]*lam[2, p3]) - (barlam[1, p5]*
                     spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                    spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])*
                  spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                 (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3]) - (barlam[2, p5]*spa[p5, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                          m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                    barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])*
                 spba[p7, {m1, p5}, m1]))^2) - 
           (10*CK*(barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
             (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
              (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
             (lam[2, p4]*((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                   spba[p7, {m1, p5}, m1]) - (lam[1, et5]*
                  (-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))))))*(-((barlam[1, p5]*
                   barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                  m1]) - lam[1, p4]*((-(barlam[1, p7]*barlam[2, p6]) + 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[2, et5]*
                  (-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))))))*(-((barlam[1, p5]*
                   barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                  m1]))*(lam[2, p4]*(lam[1, p2] - (lam[1, et6]*
                  (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))))))*(-((barlam[1, p5]*
                   barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                  m1]) - lam[1, p4]*(lam[2, p2] - (lam[2, et6]*
                  (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))))))*(-((barlam[1, p5]*
                   barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                  m1]))*(-((barlam[2, p2]*(-(barlam[1, p4]*(lam[1, p4]*
                      lam[2, et5] - lam[1, et5]*lam[2, p4])) + 
                  (barlam[1, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                          m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                    barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + 
              (barlam[1, p2]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4])) + (barlam[2, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                   spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                   barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
             ((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4])) + (barlam[1, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                   spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                   barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
              (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4])) + (barlam[2, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                   spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                   barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
             (-((barlam[2, p3]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p4])) + (barlam[1, p5]*spa[p5, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                    barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + 
              (barlam[1, p3]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4])) + (barlam[2, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                   spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                   barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
             (-(((-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                       lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1])))*
                  (-(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                       lam[2, p4])) + (barlam[1, p5]*spa[p5, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                    spba[p7, {m1, p5}, m1]))/((barlam[1, p7]*barlam[2, p6] - 
                   barlam[1, p6]*barlam[2, p7])*(lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*((barlam[1, p5]*barlam[2, p4]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + 
               ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))*(-(barlam[2, p4]*
                    (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])) + 
                  (barlam[2, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                          m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[1, p4]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p4])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))*((barlam[1, p5]*barlam[2, p4]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                    barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))^2*
             ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, 
                 m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/
                spba[p7, {m1, p5}, m1])^5)/
            ((-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                        {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, 
                        p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                    (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1])))) + lam[1, p4]*(lam[2, m1]*
                 spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (lam[2, p3]*(lam[1, p2] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1])))))) - lam[1, p3]*(
                lam[2, p2] - (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1])))))))*
             (-(((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                     p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]) - (lam[2, et5]*(-(lam[2, p4]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                          m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                    lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                        p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))))*
                (lam[1, p2] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                        {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                      barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[1, et5]*(-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + 
                       lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                    lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                        p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                   (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                        barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                        barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                      (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
                  ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                          m1]))))))) + ((-(barlam[1, p7]*barlam[2, p6]) + 
                  barlam[1, p6]*barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, et5]*
                  (-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))))))*(lam[2, p2] - 
                (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p6]*(lam[1, p6]*
                          lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                      spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                     (-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                          lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                    ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1])))))))*
             (-(lam[2, p4]*((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                    barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                    spba[p7, {m1, p5}, m1]) - (lam[1, et5]*
                   (-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                    lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                        p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                         (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                      ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                          p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                         (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                       barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                       barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                        (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                         (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))))*
                (-((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                    {m1, p5}, m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p5, 
                    m1])/spba[p7, {m1, p5}, m1])) + lam[1, p4]*(
                (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                    p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                    {m1, p5}, m1]) - (lam[2, et5]*(-(lam[2, p4]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                          m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                        lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                         (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p6])) - barlam[1, p7]*
                        (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                     ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                         p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                        (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))) + (barlam[1, p2]*(-(barlam[2, p6]*
                        (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6])) - 
                      barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                         (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                      barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                        (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]))))))*(-((barlam[1, p5]*
                   barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                  m1]))*(-((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*
                      lam[2, et5] - lam[1, et5]*lam[2, p4]) - (barlam[1, p5]*
                     spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                    spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + 
               (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) - (barlam[2, p5]*spa[p5, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                    barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))^2*
             (-((barlam[2, p5]*spa[p5, m1]*(barlam[1, p4]*(lam[1, p4]*
                      lam[2, et5] - lam[1, et5]*lam[2, p4]) - (barlam[1, p5]*
                     spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                    spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])*
                  spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                 (barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4]) - (barlam[2, p5]*spa[p5, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                          m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                    barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])*
                 spba[p7, {m1, p5}, m1]))^2) - 
           (10*CK*(barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*barlam[2, p4])*
             (-((barlam[2, p2]*(-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*
                      (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                  (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
               (barlam[1, p2]*(-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                ((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])*
                 (lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))^5*
             (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] + 
                 (lam[1, et5]*(-((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p4])*(lam[1, p4]*lam[2, p3] - lam[1, p3]*
                        lam[2, p4])) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p5]*spb[p5, p7] - ((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))*((barlam[1, p5]*barlam[2, p3]*
                        spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                        barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) - 
                    (-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                          spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                          ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                      lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                     ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                        {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, 
                         m1])/spba[p7, {m1, p5}, m1])))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                    ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, 
                        m1])/spba[p7, {m1, p5}, m1]) + (lam[1, p4]*lam[2, 
                       et5] - lam[1, et5]*lam[2, p4])*((barlam[1, p5]*
                       barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, m1] - 
                     (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1])) - ((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*lam[1, et6]*(lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p5])/spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] + 
                (lam[2, et5]*(-((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p4])*(lam[1, p4]*lam[2, p3] - lam[1, p3]*
                       lam[2, p4])) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                         p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                    ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, 
                        m1])/spba[p7, {m1, p5}, m1]) - (-(lam[2, p4]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                          m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                     lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                         p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                    ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, 
                        m1])/spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, 
                       m1])/spba[p7, {m1, p5}, m1]) + (lam[1, p4]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p4])*((barlam[1, p5]*
                      barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, m1] - 
                    (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1])) - ((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*lam[2, et6]*(lam[2, p6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] + 
                 (lam[1, et5]*(-((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                        barlam[2, p4])*(lam[1, p4]*lam[2, p3] - lam[1, p3]*
                        lam[2, p4])) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, 
                          p7] + lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          lam[1, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p3]*(lam[2, m1]*spb[m1, 
                          p7] + lam[2, p5]*spb[p5, p7] - ((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                          lam[2, et6]*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, p6]*
                          (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                          (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                          lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[
                          2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))*((barlam[1, p5]*barlam[2, p3]*
                        spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                        barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) - 
                    (-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                          spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                          ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                      lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                     ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                        {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, 
                         m1])/spba[p7, {m1, p5}, m1])))/
                  ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                    ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, 
                        m1])/spba[p7, {m1, p5}, m1]) + (lam[1, p4]*lam[2, 
                       et5] - lam[1, et5]*lam[2, p4])*((barlam[1, p5]*
                       barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, m1] - 
                     (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1])) - ((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*lam[1, et6]*(lam[2, p6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                         p5])/spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] + 
                (lam[2, et5]*(-((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p4])*(lam[1, p4]*lam[2, p3] - lam[1, p3]*
                       lam[2, p4])) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                         p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                    ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, 
                        m1])/spba[p7, {m1, p5}, m1]) - (-(lam[2, p4]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                          m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                     lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                         p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                    ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, 
                        m1])/spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, 
                       m1])/spba[p7, {m1, p5}, m1]) + (lam[1, p4]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p4])*((barlam[1, p5]*
                      barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, m1] - 
                    (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1])) - ((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*lam[2, et6]*(lam[2, p6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             ((barlam[2, p4]*(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3]) + barlam[1, p4]*(lam[1, p4]*
                    lam[2, et5] - lam[1, et5]*lam[2, p4]) - (barlam[1, p5]*
                   spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                    barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                 ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                    {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/
                   spba[p7, {m1, p5}, m1])) - (barlam[1, p4]*
                (barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                    lam[2, p3]) + barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4]) - (barlam[2, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                    barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                 ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                    {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/
                   spba[p7, {m1, p5}, m1])))*((barlam[1, p5]*barlam[2, p3]*
                 spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                 barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])^2*
             ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, 
                m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                {m1, p5}, m1])*((barlam[2, p5]*spa[p5, m1]*(barlam[1, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[1, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                    lam[2, p4]) - (barlam[1, p5]*spa[p5, m1]*(lam[2, et5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                          m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/(((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                 (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                     {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, 
                      m1])/spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, m1]) - 
              (barlam[1, p5]*spa[p5, m1]*(barlam[2, p3]*(lam[1, p3]*
                    lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[2, p4]*
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]) - 
                 (barlam[2, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                          m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/(((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                 (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                     {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, 
                      m1])/spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, m1]))*
             (-((barlam[2, p5]*spa[p5, m1]*(barlam[1, p3]*(lam[1, p3]*
                     lam[2, et5] - lam[1, et5]*lam[2, p3]) + barlam[1, p4]*
                   (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]) - 
                  (barlam[1, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                          m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/(((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, 
                       m1])/spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, 
                  m1])) + (barlam[1, p5]*spa[p5, m1]*(barlam[2, p3]*
                  (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3]) + 
                 barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                    lam[2, p4]) - (barlam[2, p5]*spa[p5, m1]*(lam[2, et5]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                          m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                       ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/(((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                 (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                     {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, 
                      m1])/spba[p7, {m1, p5}, m1]))*spba[p7, {m1, p5}, m1])))/
            ((-(lam[1, p4]*lam[2, p3]) + lam[1, p3]*lam[2, p4])*
             (lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] + 
                (lam[1, et5]*(-((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p4])*(lam[1, p4]*lam[2, p3] - lam[1, p3]*
                       lam[2, p4])) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                         p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                    ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, 
                        m1])/spba[p7, {m1, p5}, m1]) - (-(lam[2, p4]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                          m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                     lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                         p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                    ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, 
                        m1])/spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, 
                       m1])/spba[p7, {m1, p5}, m1]) + (lam[1, p4]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p4])*((barlam[1, p5]*
                      barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, m1] - 
                    (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1])) - ((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*lam[1, et6]*(lam[2, p6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] + 
                (lam[2, et5]*(-((barlam[1, p4]*barlam[2, p3] - barlam[1, p3]*
                       barlam[2, p4])*(lam[1, p4]*lam[2, p3] - lam[1, p3]*
                       lam[2, p4])) - (-(lam[2, p3]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                     lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                         p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                    ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, 
                        m1])/spba[p7, {m1, p5}, m1]) - (-(lam[2, p4]*
                       (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                        ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                          m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                     lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                         p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, 
                          p2]*barlam[2, p6])*lam[2, et6]*(lam[2, p6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                    ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, 
                        m1])/spba[p7, {m1, p5}, m1])))/
                 ((lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])*
                   ((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*spa[p5, 
                       m1])/spba[p7, {m1, p5}, m1]) + (lam[1, p4]*lam[2, 
                      et5] - lam[1, et5]*lam[2, p4])*((barlam[1, p5]*
                      barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, m1] - 
                    (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1])) - ((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*lam[2, et6]*(lam[2, p6]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1])))/((lam[2, et6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-(lam[2, p4]*(lam[1, p3]*(-((barlam[1, p5]*barlam[2, p3]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p3]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                 lam[1, p4]*(-((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + 
              lam[1, p4]*(lam[2, p3]*(-((barlam[1, p5]*barlam[2, p3]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p3]*
                    barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                lam[2, p4]*(-((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/
                    spba[p7, {m1, p5}, m1]) + (barlam[1, p4]*barlam[2, p5]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
             (-((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, 
                   p7])*(lam[2, p2] - (lam[2, et6]*(lam[2, p6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                        {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                      barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
              (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*(
                lam[1, p2] - (lam[1, et6]*(lam[2, p6]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (-((barlam[2, p2]*(-(barlam[1, p3]*(lam[1, p3]*lam[2, et5] - 
                      lam[1, et5]*lam[2, p3])) - barlam[1, p4]*(lam[1, p4]*
                      lam[2, et5] - lam[1, et5]*lam[2, p4]) + (barlam[1, p5]*
                     spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*spb[m1, p7] + 
                        lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                          (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                         ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                    spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                      barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, 
                       m1])/spba[p7, {m1, p5}, m1]))) + (barlam[1, p2]*
                 (-(barlam[2, p3]*(lam[1, p3]*lam[2, et5] - lam[1, et5]*
                      lam[2, p3])) - barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (barlam[2, p5]*spa[p5, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p3]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                 (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                     {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, 
                      m1])/spba[p7, {m1, p5}, m1])))^2*
             (((-(barlam[2, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) - barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))*(-(barlam[1, p3]*
                    (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                  barlam[1, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4]) + (barlam[1, p5]*spa[p5, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                          m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))*((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, 
                       m1])/spba[p7, {m1, p5}, m1]))) - 
               ((-(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - lam[1, et6]*
                      lam[2, p6])) - barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))*(-(barlam[2, p3]*
                    (lam[1, p3]*lam[2, et5] - lam[1, et5]*lam[2, p3])) - 
                  barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4]) + (barlam[2, p5]*spa[p5, m1]*(lam[2, et5]*
                      (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(lam[2, p6]*(lam[1, 
                          p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                          m1]) - lam[1, p6]*(lam[2, p7] + (lam[2, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1])))/((lam[2, et6]*
                          (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))/
                        ((lam[2, et6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                          spba[p7, {m1, p5}, m1]) - lam[1, et6]*(lam[2, p7] + 
                          (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))*((lam[1, p3]*lam[2, et5] - lam[1, et5]*
                     lam[2, p3])*((barlam[1, p5]*barlam[2, p3]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1] - (barlam[1, p3]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, 
                       m1])/spba[p7, {m1, p5}, m1]))))^2)))/
         (((barlam[2, p6]*(barlam[1, p6]*(lam[1, p6]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p6]) + barlam[1, p7]*(lam[2, et6]*
                  (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                     m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                    spba[p7, {m1, p5}, m1]))))/((barlam[1, p7]*barlam[2, 
                 p6] - barlam[1, p6]*barlam[2, p7])*(lam[2, et6]*
                (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                   m1]) - lam[1, et6]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                  spba[p7, {m1, p5}, m1]))) - (barlam[1, p6]*(barlam[2, p6]*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
               barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                     m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                   s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                   m1]))))^2*(-((barlam[2, p7]*(barlam[1, p6]*
                 (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
                barlam[1, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                 barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                 (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                    m1])))) + (barlam[1, p7]*(barlam[2, p6]*
                (lam[1, p6]*lam[2, et6] - lam[1, et6]*lam[2, p6]) + 
               barlam[2, p7]*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                     m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                barlam[2, p7])*(lam[2, et6]*(lam[1, p7] + (lam[1, m1]*
                   s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et6]*
                (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                   m1]))))^2*(lam[2, p6]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
              spba[p7, {m1, p5}, m1]) - lam[1, p6]*(lam[2, p7] + 
             (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) + 
        ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])^5*
          ((-10*CK*(barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                p7])*(-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
               (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))^5*
             (-((barlam[2, p6]*(-((((-(barlam[1, p3]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p3])*lam[1, p3]*lam[2, et5] - 
                      (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                  barlam[1, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4])))/((-((barlam[2, p4]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                 (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]))) + 
              (barlam[1, p6]*(-((((-(barlam[1, p3]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p3])*lam[1, p3]*lam[2, et5] - 
                     (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                 barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                    lam[2, p4])))/((-((barlam[2, p4]*(-(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                     barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])))*
             ((barlam[2, p7]*(-((((-(barlam[1, p3]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p3])*lam[1, p3]*lam[2, et5] - 
                     (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                 barlam[1, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                    lam[2, p4])))/((-((barlam[2, p4]*(-(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                     barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])) - 
              (barlam[1, p7]*(-((((-(barlam[1, p3]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p3])*lam[1, p3]*lam[2, et5] - 
                     (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                 barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                    lam[2, p4])))/((-((barlam[2, p4]*(-(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                     barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])))*
             (-((barlam[2, p7]*(-((((-(barlam[1, p3]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p3])*lam[1, p3]*lam[2, et5] - 
                      (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                  barlam[1, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4])))/((-((barlam[2, p4]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                 (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]))) + 
              (barlam[1, p7]*(-((((-(barlam[1, p3]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p3])*lam[1, p3]*lam[2, et5] - 
                     (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                 barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                    lam[2, p4])))/((-((barlam[2, p4]*(-(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                     barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])))*
             (((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*lam[2, 
                p4]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                    lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                  ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p3])*lam[1, p4]*lam[2, p3] - (-(barlam[1, p3]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
                    lam[1, p3]*lam[2, p4]))/((lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              lam[1, p4]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                    lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                  ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p3])*lam[1, p4]*lam[2, p3] - (-(barlam[1, p3]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
                    lam[1, p3]*lam[2, p4]))/((lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*lam[2, 
                p4]*(lam[1, p6] - (lam[1, et6]*(lam[1, p3]*lam[2, p2] - 
                   lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                      barlam[2, p3])*lam[1, p4]*lam[2, p3] - 
                   (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p3])*lam[1, p3]*lam[2, p4])*((barlam[2, p5]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/
                    ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3])*spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/
                    ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3])*spba[p7, {m1, p5}, m1])))/((lam[1, p4]*
                    lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              lam[1, p4]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, p2] - 
                   lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                      barlam[2, p3])*lam[1, p4]*lam[2, p3] - 
                   (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p3])*lam[1, p3]*lam[2, p4])*((barlam[2, p5]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/
                    ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3])*spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/
                    ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3])*spba[p7, {m1, p5}, m1])))/((lam[1, p4]*
                    lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                 m1]) + (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                {m1, p5}, m1])*((barlam[2, p5]*
                 (-((((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[1, p3]*lam[2, et5] - 
                      (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                  barlam[1, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4]))*spa[p5, m1])/((-((barlam[2, p4]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                  (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                   ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3])))*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                   lam[2, p4])*spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*
                 (-((((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[1, p3]*lam[2, et5] - 
                      (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                  barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4]))*spa[p5, m1])/((-((barlam[2, p4]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                  (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                   ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3])))*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                   lam[2, p4])*spba[p7, {m1, p5}, m1]))^2)/
            (((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
               lam[1, p4]*lam[2, p3] - (-(barlam[1, p3]*barlam[2, p2]) + 
                barlam[1, p2]*barlam[2, p3])*lam[1, p3]*lam[2, p4])*
             (-((barlam[2, p4]*((((-(barlam[1, p3]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p3])*lam[1, p3]*lam[2, et5] - 
                      (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                   barlam[1, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                      lam[2, p4])))/((-((barlam[2, p4]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]))) + 
               (barlam[1, p4]*((((-(barlam[1, p3]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p3])*lam[1, p3]*lam[2, et5] - 
                     (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                  barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4])))/((-((barlam[2, p4]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                 (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])))^2*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]))*((((-(barlam[1, p3]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p3])*lam[1, p3]*
                      lam[2, et5] - (-(barlam[1, p3]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                  barlam[1, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4])))/((barlam[1, p3]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3])*(-((barlam[2, p4]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                 (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])) - 
               ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]))*((((-(barlam[1, p3]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p3])*lam[1, p3]*
                      lam[2, et5] - (-(barlam[1, p3]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                  barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4])))/((barlam[1, p3]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3])*(-((barlam[2, p4]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                 (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])))^2*
             (-(((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                  ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                      p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])) - (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*lam[2, p4]*(lam[1, m1]*
                  spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                     lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[1, et5]*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                   ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p3])*lam[1, p4]*lam[2, p3] - (-(barlam[1, p3]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
                     lam[1, p3]*lam[2, p4]))/((lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4])*(-((barlam[1, p6]*barlam[2, p5]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                      barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              lam[1, p4]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                    lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                  ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p3])*lam[1, p4]*lam[2, p3] - (-(barlam[1, p3]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
                    lam[1, p3]*lam[2, p4]))/((lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                     lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[2, et5]*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                   ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p3])*lam[1, p4]*lam[2, p3] - (-(barlam[1, p3]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
                     lam[1, p3]*lam[2, p4]))/((lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4])*(-((barlam[1, p6]*barlam[2, p5]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                      barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                (lam[1, p6] - (lam[1, et6]*(lam[1, p3]*lam[2, p2] - 
                    lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[1, et5]*((-(barlam[1, p3]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p3])*lam[1, p4]*lam[2, p3] - 
                    (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p3])*lam[1, p3]*lam[2, p4])*((barlam[2, p5]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/
                     ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p3])*spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/
                     ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p3])*spba[p7, {m1, p5}, m1])))/((lam[1, p4]*
                     lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                    lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                  ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p3])*lam[1, p4]*lam[2, p3] - (-(barlam[1, p3]*
                       barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
                    lam[1, p3]*lam[2, p4]))/((lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(
                lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, p2] - 
                   lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                      barlam[2, p3])*lam[1, p4]*lam[2, p3] - 
                   (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p3])*lam[1, p3]*lam[2, p4])*((barlam[2, p5]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/
                    ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3])*spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/
                    ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3])*spba[p7, {m1, p5}, m1])))/((lam[1, p4]*
                    lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-((lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, p2] - 
                    lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*
                       spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                      barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[2, et5]*((-(barlam[1, p3]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p3])*lam[1, p4]*lam[2, p3] - 
                    (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p3])*lam[1, p3]*lam[2, p4])*((barlam[2, p5]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/
                     ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p3])*spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/
                     ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p3])*spba[p7, {m1, p5}, m1])))/((lam[1, p4]*
                     lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
              (lam[1, p6] - (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                      barlam[2, p3])*lam[1, p4]*lam[2, p3] - 
                   (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p3])*lam[1, p3]*lam[2, p4])*((barlam[2, p5]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/
                    ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3])*spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/
                    ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3])*spba[p7, {m1, p5}, m1])))/((lam[1, p4]*
                    lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                barlam[2, p6])^5*((barlam[2, p7]*(-(barlam[1, p4]*
                   (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])) - 
                 barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                       (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                         lam[2, p2] - lam[1, p2]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/(
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p6])*(lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])) - 
              (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4])) - barlam[2, p6]*(lam[2, et5]*
                    (lam[1, p6] - (lam[1, et6]*(lam[1, p3]*lam[2, p2] - 
                        lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                     (lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                         lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/(
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p6])*(lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])))*
             (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p4])) - barlam[1, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*(lam[1, p3]*lam[2, p2] - 
                         lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*(lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, 
                    p4]))) + (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*
                     lam[2, et5] - lam[1, et5]*lam[2, p4])) - barlam[2, p6]*
                  (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(lam[1, p3]*
                         lam[2, p2] - lam[1, p2]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                         lam[2, p2] - lam[1, p2]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/(
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p6])*(lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                       lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))*(-(barlam[1, p4]*(lam[1, p4]*
                       lam[2, et5] - lam[1, et5]*lam[2, p4])) - barlam[1, p6]*
                    (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]))) + 
               ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]))*(-(barlam[2, p4]*(lam[1, p4]*
                      lam[2, et5] - lam[1, et5]*lam[2, p4])) - barlam[2, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])))^2*
             ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*lam[
                2, p4]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                    lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                  (-(lam[2, p4]*(lam[1, p6] - (lam[1, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                         spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))))/((lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*((barlam[2, p5]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, 
                      {m1, p5}, m1]) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, 
                      {m1, p5}, m1])))) - (barlam[1, p6]*barlam[2, p4] - 
                barlam[1, p4]*barlam[2, p6])*lam[1, p4]*(lam[2, m1]*
                 spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                    lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                  (-(lam[2, p4]*(lam[1, p6] - (lam[1, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                         spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))))/((lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*((barlam[2, p5]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, 
                      {m1, p5}, m1]) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, 
                      {m1, p5}, m1])))))*((barlam[1, p6]*barlam[2, p4] - 
                barlam[1, p4]*barlam[2, p6])*lam[2, p4]*(
                (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p3])*lam[1, p3] - (lam[1, et5]*(-(lam[2, p4]*
                     (lam[1, p6] - (lam[1, et6]*(lam[1, p3]*lam[2, p2] - 
                         lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p4]*(lam[2, p6] - 
                     (lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                         lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                     spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                     spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))) - 
              (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*lam[
                1, p4]*((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                   barlam[2, p3])*lam[2, p3] - (lam[2, et5]*
                  (-(lam[2, p4]*(lam[1, p6] - (lam[1, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                         spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                     spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                     spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))))*
             (-((barlam[1, p7]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                 m1]) + (barlam[1, p5]*barlam[2, p7]*spa[p5, m1])/spba[p7, 
                {m1, p5}, m1])*((barlam[2, p5]*(-(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                 barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                 barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1]) - 
              (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/(
                (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                spba[p7, {m1, p5}, m1]))*((barlam[2, p5]*spa[p5, m1]*
                (-(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4])) - barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - 
                     (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                         lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                         lam[2, p2] - lam[1, p2]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/(
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p6])*(lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*spa[p5, m1]*
                (-(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4])) - barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                     (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                         lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                         lam[2, p2] - lam[1, p2]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/(
                (-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                   p6])*(lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                spba[p7, {m1, p5}, m1])))/
            ((-((barlam[2, p4]*(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p4]) + barlam[1, p6]*(lam[2, et5]*
                      (lam[1, p6] - (lam[1, et6]*(lam[1, p3]*lam[2, p2] - 
                          lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                       (lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                 ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                     p6])*(lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, 
                     p4]))) + (barlam[1, p4]*(barlam[2, p4]*(lam[1, p4]*
                     lam[2, et5] - lam[1, et5]*lam[2, p4]) + barlam[2, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*(lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])))^
              2*((barlam[2, p6]*(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + barlam[1, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*(lam[1, p3]*lam[2, p2] - 
                         lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*(lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])) - 
               (barlam[1, p6]*(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + barlam[2, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*(lam[1, p3]*lam[2, p2] - 
                         lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))))/
                ((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                    p6])*(lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])))^
              2*(-(lam[2, p4]*(lam[1, p6] - (lam[1, et6]*(lam[1, p3]*
                     lam[2, p2] - lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*
                       barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                    (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              lam[1, p4]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, p2] - 
                   lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                lam[2, p4]*((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                    barlam[2, p3])*lam[1, p3] - (lam[1, et5]*
                   (-(lam[2, p4]*(lam[1, p6] - (lam[1, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                    lam[1, p4]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
                   (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                      spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1]) - 
                    (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                      spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1]))))) + 
              (barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*lam[
                1, p4]*((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                   barlam[2, p3])*lam[2, p3] - (lam[2, et5]*
                  (-(lam[2, p4]*(lam[1, p6] - (lam[1, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                         spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                     spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                     spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))))*
             ((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                    lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                  (-(lam[2, p4]*(lam[1, p6] - (lam[1, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                         spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))))/((lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*((barlam[2, p5]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, 
                      {m1, p5}, m1]) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, 
                      {m1, p5}, m1]))))*((-(barlam[1, p3]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p3])*lam[1, p3] - 
                (lam[1, et5]*(-(lam[2, p4]*(lam[1, p6] - (lam[1, et6]*
                        (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                         spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                     spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                     spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                    lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                  (-(lam[2, p4]*(lam[1, p6] - (lam[1, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                         spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))))/((lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*((barlam[2, p5]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, 
                      {m1, p5}, m1]) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, 
                      {m1, p5}, m1]))))*((-(barlam[1, p3]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p3])*lam[2, p3] - 
                (lam[2, et5]*(-(lam[2, p4]*(lam[1, p6] - (lam[1, et6]*
                        (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                         spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                     spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                     spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                     lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[2, et5]*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                   (-(lam[2, p4]*(lam[1, p6] - (lam[1, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                    lam[1, p4]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  ((lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                   ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                      spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1]) - 
                    (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                      spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                   m1])) + (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                    lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                  (-(lam[2, p4]*(lam[1, p6] - (lam[1, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                         spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))))/((lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*((barlam[2, p5]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, 
                      {m1, p5}, m1]) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, 
                      {m1, p5}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                 spba[p7, {m1, p5}, m1]))) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                barlam[2, p6])^2*(barlam[1, p7]*barlam[2, p4] - 
              barlam[1, p4]*barlam[2, p7])*(barlam[1, p7]*barlam[2, p6] - 
              barlam[1, p6]*barlam[2, p7])*((barlam[2, p6]*(barlam[1, p4]*
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]) + 
                 barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                       (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                         lam[2, p2] - lam[1, p2]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p4]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))) - (barlam[1, p6]*(barlam[2, p4]*
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]) + 
                 barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                       (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                         lam[2, p2] - lam[1, p2]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p4]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))))*(-((barlam[2, p6]*(barlam[1, p4]*
                   (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]) + 
                  barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                        (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((-(barlam[1, p6]*barlam[2, p4]) + 
                   barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4]) + (barlam[1, p7]*barlam[2, p6] - 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))) + (barlam[1, p6]*(barlam[2, p4]*
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]) + 
                 barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                       (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                         lam[2, p2] - lam[1, p2]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p4]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))))*((barlam[2, p7]*(barlam[1, p4]*
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]) + 
                 barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                       (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                         lam[2, p2] - lam[1, p2]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p4]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))) - (barlam[1, p7]*(barlam[2, p4]*
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]) + 
                 barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                       (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                   lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                         lam[2, p2] - lam[1, p2]*lam[2, p3])*
                       (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((-(barlam[1, p6]*barlam[2, p4]) + 
                  barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p4]) + (barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))))*(-(lam[2, p4]*(lam[1, p6] + 
                 (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p4]) + 
                       barlam[1, p4]*barlam[2, p6])*(-(lam[2, p4]*
                         (lam[1, p6] - (lam[1, et6]*(lam[1, p3]*lam[2, p2] - 
                          lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p4]*(lam[2, p6] - 
                         (lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                          ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]) - lam[1, p4]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                    (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                        p7])*((lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*s[m1, 
                          p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p6] - 
                        (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                       (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                          {m1, p5}, m1]))))/((-(barlam[1, p6]*barlam[2, 
                        p4]) + barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*
                      lam[2, et5] - lam[1, et5]*lam[2, p4]) + 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
                 (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              lam[1, p4]*(lam[2, p6] + (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(-(lam[2, p4]*(lam[1, p6] - 
                         (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                          ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                      lam[1, p4]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*((lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p6] - 
                       (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))) - (lam[2, et6]*
                  (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             ((lam[2, p6] + (lam[2, et5]*(-((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(-(lam[2, p4]*
                        (lam[1, p6] - (lam[1, et6]*(lam[1, p3]*lam[2, p2] - 
                          lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p4]*(lam[2, p6] - 
                        (lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*((lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p6] - 
                       (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))) - (lam[2, et6]*
                  (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
              (lam[1, p6] + (lam[1, et5]*(-((-(barlam[1, p6]*barlam[2, p4]) + 
                      barlam[1, p4]*barlam[2, p6])*(-(lam[2, p4]*
                        (lam[1, p6] - (lam[1, et6]*(lam[1, p3]*lam[2, p2] - 
                          lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p4]*(lam[2, p6] - 
                        (lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*((lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p6] - 
                       (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))) - (lam[1, et6]*
                  (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*
                 (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]))*spa[p5, m1])/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 spba[p7, {m1, p5}, m1]))^5)/
            ((((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]))*(-(barlam[1, p4]*(lam[1, p4]*
                      lam[2, et5] - lam[1, et5]*lam[2, p4])) - barlam[1, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                   lam[2, p3])*((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))) - ((-(barlam[1, p2]*
                    (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                  barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3]))*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p4])) - barlam[2, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*(lam[1, p3]*lam[2, p2] - 
                         lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                   lam[2, p3])*((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))))^2*
             ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
               lam[2, p3]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                    lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
               lam[1, p3]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                    lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (lam[2, p4]*(lam[1, p6] + (lam[1, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(-(lam[2, p4]*(lam[1, p6] - 
                         (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                          ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                      lam[1, p4]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*((lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p6] - 
                       (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))) - (lam[1, et6]*
                  (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              lam[1, p4]*(lam[2, p6] + (lam[2, et5]*
                  (-((-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*
                       barlam[2, p6])*(-(lam[2, p4]*(lam[1, p6] - 
                         (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                          ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                      lam[1, p4]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                   (barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, 
                       p7])*((lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p6] - 
                       (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))) - (lam[2, et6]*
                  (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                   {m1, p5}, m1])) + lam[1, p4]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 lam[2, p4] + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                   spba[p7, {m1, p5}, m1]))*(lam[1, p7] + (lam[1, m1]*
                  s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
              ((barlam[1, p6]*barlam[2, p4] - barlam[1, p4]*barlam[2, p6])*
                 lam[1, p4] + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                   barlam[2, p7])*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                   spba[p7, {m1, p5}, m1]))*(lam[2, p7] + (lam[2, m1]*
                  s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             ((barlam[2, p5]*spa[p5, m1]*(-(barlam[1, p4]*(lam[1, p4]*
                      lam[2, et5] - lam[1, et5]*lam[2, p4])) - barlam[1, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/(((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))*spba[p7, {m1, p5}, m1]) - 
               (barlam[1, p5]*spa[p5, m1]*(-(barlam[2, p4]*(lam[1, p4]*
                      lam[2, et5] - lam[1, et5]*lam[2, p4])) - barlam[2, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/(((-(barlam[1, p6]*barlam[2, p4]) + 
                    barlam[1, p4]*barlam[2, p6])*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (barlam[1, p7]*barlam[2, p6] - 
                    barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1])))*spba[p7, {m1, p5}, m1]))^
              2) - (10*CK*(barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[
                2, p7])*(-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                       lam[2, et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
               (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))^2*
             (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
              (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3])))/(
                (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
             (-(lam[2, p4]*((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                    barlam[2, p3])*lam[1, p3] + (lam[1, et5]*
                   (-((-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                         ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                          barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3]))) + (barlam[1, p4]*
                         (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                        ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))*((-(barlam[1, p3]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p3])*lam[1, p4]*lam[2, p3] - 
                       (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p3])*lam[1, p3]*lam[2, p4])) - 
                    (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                        ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                     ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                      (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*
                          s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                    (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                        p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                         spba[p7, {m1, p5}, m1]) - lam[1, p4]*(lam[2, p7] + 
                        (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                  ((-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                       ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]) + 
                   (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                       ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))) + 
              lam[1, p4]*((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                   barlam[2, p3])*lam[2, p3] + (lam[2, et5]*
                  (-((-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                        ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                     ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[1, p4]*lam[2, p3] - 
                      (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[1, p3]*lam[2, p4])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                       ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p3])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p3])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                      ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])))*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (-((barlam[2, p7]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                     ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p3])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))))*((barlam[2, p7]*
                ((((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p3])*lam[1, p3]*lam[2, et5] - (-(barlam[1, p3]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
                     lam[1, et5]*lam[2, p3])*(-(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) + barlam[1, p4]*(lam[1, p4]*
                    lam[2, et5] - lam[1, et5]*lam[2, p4]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                    ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]))) + (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[1, p4]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p4]) + (-((barlam[2, p7]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                  (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                   ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))) - (barlam[1, p7]*
                ((((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p3])*lam[1, p3]*lam[2, et5] - (-(barlam[1, p3]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
                     lam[1, et5]*lam[2, p3])*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) + barlam[2, p4]*(lam[1, p4]*
                    lam[2, et5] - lam[1, et5]*lam[2, p4]) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                    ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3]))) + (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[1, p4]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p4]) + (-((barlam[2, p7]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                  (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                   ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))))*(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                ((((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p3])*lam[1, p3]*lam[2, et5] - (-(barlam[1, p3]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
                     lam[1, et5]*lam[2, p3])*(-(barlam[1, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) + barlam[1, p4]*(lam[1, p4]*
                    lam[2, et5] - lam[1, et5]*lam[2, p4]) + barlam[1, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                ((-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                     ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p3]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4]) + (-((barlam[2, p7]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                    ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1])))) - ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                ((((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p3])*lam[1, p3]*lam[2, et5] - (-(barlam[1, p3]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
                     lam[1, et5]*lam[2, p3])*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) + barlam[2, p4]*(lam[1, p4]*
                    lam[2, et5] - lam[1, et5]*lam[2, p4]) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                ((-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                     ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p3]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4]) + (-((barlam[2, p7]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                    ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1])))))*(-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, 
                       et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                 ((((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                         p3])*lam[1, p3]*lam[2, et5] - (-(barlam[1, p3]*
                         barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
                      lam[1, et5]*lam[2, p3])*(-(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) + barlam[1, p4]*(lam[1, p4]*
                     lam[2, et5] - lam[1, et5]*lam[2, p4]) + barlam[1, p7]*
                   (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 ((-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                      ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])))*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (-((barlam[2, p7]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                     ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p3])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))) + ((-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                      et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                ((((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p3])*lam[1, p3]*lam[2, et5] - (-(barlam[1, p3]*
                        barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
                     lam[1, et5]*lam[2, p3])*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])) + barlam[2, p4]*(lam[1, p4]*
                    lam[2, et5] - lam[1, et5]*lam[2, p4]) + barlam[2, p7]*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/(
                (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                ((-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                     ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p3]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4]) + (-((barlam[2, p7]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                    ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1])))))*(((-(barlam[1, p3]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p3])*lam[2, p3] + 
                (lam[2, et5]*(-((-((barlam[2, p4]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                      (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                       ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))*((-(barlam[1, p3]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p3])*lam[1, p4]*lam[2, p3] - 
                      (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[1, p3]*lam[2, p4])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                       ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p3])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p3])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                      ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])))*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (-((barlam[2, p7]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                     ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p3])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                 spba[p7, {m1, p5}, m1]) - ((-(barlam[1, p3]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p3])*lam[1, p3] + 
                (lam[1, et5]*(-((-((barlam[2, p4]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                      (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                       ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))*((-(barlam[1, p3]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p3])*lam[1, p4]*lam[2, p3] - 
                      (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[1, p3]*lam[2, p4])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                       ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p3])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p3])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                      ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])))*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (-((barlam[2, p7]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                     ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p3])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                 spba[p7, {m1, p5}, m1]))*(-((barlam[1, p6]*barlam[2, p5]*
                  spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                 barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1])^5)/
            ((lam[2, p4]*((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                   barlam[2, p3])*lam[1, p3] + (lam[1, et5]*
                  (-((-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                        ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                     ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[1, p4]*lam[2, p3] - 
                      (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[1, p3]*lam[2, p4])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                       ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p3])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p3])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                      ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])))*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (-((barlam[2, p7]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                     ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p3])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))) - lam[1, p4]*((-(barlam[1, p3]*barlam[2, 
                     p2]) + barlam[1, p2]*barlam[2, p3])*lam[2, p3] + 
                (lam[2, et5]*(-((-((barlam[2, p4]*(-(barlam[1, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                          lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                      (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                       ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))*((-(barlam[1, p3]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p3])*lam[1, p4]*lam[2, p3] - 
                      (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[1, p3]*lam[2, p4])) - 
                   (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                       ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p3])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p3])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1])) - 
                   (barlam[1, p7]*barlam[2, p4] - barlam[1, p4]*barlam[2, 
                       p7])*(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, p4]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))/
                 ((-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                      ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])))*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (-((barlam[2, p7]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                     ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p3])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))))*(-((barlam[2, p6]*
                  (-((((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p3])*lam[1, p3]*lam[2, et5] - 
                       (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                   barlam[1, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                      lam[2, p4]) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]))))/
                 ((-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                      ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])))*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (-((barlam[2, p7]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                     ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p3])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))) + (barlam[1, p6]*
                 (-((((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[1, p3]*lam[2, et5] - 
                      (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                  barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4]) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))/
                ((-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                     ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p3]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4]) + (-((barlam[2, p7]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                   (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                    ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))^2*((lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                 spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*lam[2, et6]*(lam[1, p3]*
                    lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p6] - 
                (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                    lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p6] - 
                (lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-(lam[2, p4]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                   {m1, p5}, m1])) + lam[1, p4]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             ((((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                   ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3])) - (barlam[1, p4]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*lam[2, p4] + 
                ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                   ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[2, p7] + (lam[2, m1]*
                    s[m1, p5])/spba[p7, {m1, p5}, m1]))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
              (lam[1, p4]*((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])) - (barlam[1, p4]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                   ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                       p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                       p3])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                         lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3])))*(lam[1, p7] + (lam[1, m1]*
                    s[m1, p5])/spba[p7, {m1, p5}, m1]))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (-((barlam[2, p5]*spa[p5, m1]*(-((((-(barlam[1, p3]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p3])*lam[1, p3]*
                        lam[2, et5] - (-(barlam[1, p3]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                   barlam[1, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                      lam[2, p4]) - barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + 
                       (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                     lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]))))/
                 (((-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                       ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4]) + 
                   (-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                          (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                       ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[
                          2, p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))) + (barlam[1, p7]*(-(barlam[2, p2]*
                          (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*barlam[2, 
                          p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                         lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                    (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                        spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                       (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))*
                  spba[p7, {m1, p5}, m1])) + (barlam[1, p5]*spa[p5, m1]*
                 (-((((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[1, p3]*lam[2, et5] - 
                      (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                  barlam[2, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                     lam[2, p4]) - barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))))/
                (((-((barlam[2, p4]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                         (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                      ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                          p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                          p3]))) + (barlam[1, p4]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])))*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4]) + (-((barlam[2, p7]*
                       (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                         barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
                    (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                     ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p3])))*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))*spba[p7, {m1, p5}, m1]))^2) - 
           (10*CK*(-(barlam[1, p6]*barlam[2, p4]) + barlam[1, p4]*barlam[2, 
                p6])*(-((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) + 
               (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*
                     lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))^5*
             ((barlam[2, p4]*(-((((-(barlam[1, p3]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p3])*lam[1, p3]*lam[2, et5] - 
                     (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                     barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
              (barlam[1, p4]*(-((((-(barlam[1, p3]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p3])*lam[1, p3]*lam[2, et5] - 
                     (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                     barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
             (-((barlam[2, p4]*(-((((-(barlam[1, p3]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p3])*lam[1, p3]*lam[2, et5] - 
                      (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
              (barlam[1, p4]*(-((((-(barlam[1, p3]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p3])*lam[1, p3]*lam[2, et5] - 
                     (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                     barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
             (-((barlam[2, p6]*(-((((-(barlam[1, p3]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p3])*lam[1, p3]*lam[2, et5] - 
                      (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
              (barlam[1, p6]*(-((((-(barlam[1, p3]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p3])*lam[1, p3]*lam[2, et5] - 
                     (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((-((barlam[2, p7]*(-(barlam[1, p2]*
                       (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                     barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                        lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                     barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                     lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                   (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                        lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                        et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                     barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                   (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                     {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                   (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))*
             (-(((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                  ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                      p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*(lam[2, m1]*spb[m1, p7] + 
                 lam[2, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                    barlam[1, p2]*barlam[2, p6])*lam[2, et6]*(lam[1, p3]*
                     lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[2, et5]*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                   ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p3])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - (-(barlam[1, p3]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p3])*lam[1, p3]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
              ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                    lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                  ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p3])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]) - (-(barlam[1, p3]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p3])*lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (-(((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                  ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                      p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                      p3])) - (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*
                        lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                    barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                       lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                    barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))*(lam[2, p6] - (lam[2, et6]*
                   (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[2, et5]*((-(barlam[1, p3]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p3])*lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p3])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))*((barlam[2, p5]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/
                     ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p3])*spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/
                     ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p3])*spba[p7, {m1, p5}, m1])))/((lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                 (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])) + 
              ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[1, p6] - (lam[1, et6]*(lam[1, p3]*lam[2, p2] - 
                   lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                      barlam[2, p3])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p3])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]))*((barlam[2, p5]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/
                    ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3])*spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/
                    ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3])*spba[p7, {m1, p5}, m1])))/((lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, 
                 m1]) + (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                {m1, p5}, m1])*((barlam[2, p5]*spa[p5, m1]*
                 (-((((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[1, p3]*lam[2, et5] - 
                      (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                 spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*spa[p5, m1]*
                 (-((((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[1, p3]*lam[2, et5] - 
                      (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                 spba[p7, {m1, p5}, m1]))^2)/
            ((-((barlam[2, p7]*((((-(barlam[1, p3]*barlam[2, p2]) + 
                        barlam[1, p2]*barlam[2, p3])*lam[1, p3]*lam[2, et5] - 
                      (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((-((barlam[2, p7]*(-(barlam[1, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                  (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
               (barlam[1, p7]*((((-(barlam[1, p3]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p3])*lam[1, p3]*lam[2, et5] - 
                     (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                        barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((-((barlam[2, p7]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))^2*
             (((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]))*((((-(barlam[1, p3]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p3])*lam[1, p3]*
                      lam[2, et5] - (-(barlam[1, p3]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                    (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                   lam[2, p3])*(-((barlam[2, p7]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
               ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]))*((((-(barlam[1, p3]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p3])*lam[1, p3]*
                      lam[2, et5] - (-(barlam[1, p3]*barlam[2, p2]) + 
                       barlam[1, p2]*barlam[2, p3])*lam[1, et5]*lam[2, p3])*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                   lam[2, p3])*(-((barlam[2, p7]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                    (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                         lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                         et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                      barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                    (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                 (lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                    (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))))^2*
             (lam[2, p4]*(lam[1, p6] - (lam[1, et6]*(lam[1, p3]*lam[2, p2] - 
                   lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                      barlam[2, p3])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p3])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]))*((barlam[2, p5]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/
                    ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3])*spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/
                    ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3])*spba[p7, {m1, p5}, m1])))/((lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
              lam[1, p4]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, p2] - 
                   lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                      barlam[2, p3])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p3])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]))*((barlam[2, p5]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/
                    ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3])*spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/
                    ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3])*spba[p7, {m1, p5}, m1])))/((lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (-((lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                     lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[2, et5]*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                   ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p3])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - (-(barlam[1, p3]*barlam[2, 
                         p2]) + barlam[1, p2]*barlam[2, p3])*lam[1, p3]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p6] - 
                 (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                   (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                   (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[1, et5]*((-(barlam[1, p3]*barlam[2, p2]) + 
                      barlam[1, p2]*barlam[2, p3])*lam[2, p3]*(lam[1, p7] + 
                      (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                    (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                        p3])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]))*((barlam[2, p5]*
                      (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/
                     ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p3])*spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/
                     ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                         p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                         p3])*spba[p7, {m1, p5}, m1])))/((lam[2, et5]*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                       {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                    lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                  ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p3])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]) - (-(barlam[1, p3]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p3])*lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p6] - 
                (lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                      barlam[2, p3])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p3])*lam[1, p3]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]))*((barlam[2, p5]*
                     (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/
                    ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3])*spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/
                    ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3])*spba[p7, {m1, p5}, m1])))/((lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
               lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                  {m1, p5}, m1]) - (-(barlam[1, p3]*barlam[2, p2]) + 
                barlam[1, p2]*barlam[2, p3])*lam[1, p3]*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             (((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                    lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                  ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p3])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]) - (-(barlam[1, p3]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p3])*lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
              ((barlam[2, p7]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])) - 
                (barlam[1, p7]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                 ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                  (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*(
                lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                    lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                  ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                       p3])*lam[2, p3]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                      spba[p7, {m1, p5}, m1]) - (-(barlam[1, p3]*barlam[2, 
                        p2]) + barlam[1, p2]*barlam[2, p3])*lam[1, p3]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))) - 
           (10*CK*(barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*barlam[2, p7])^
              5*((barlam[2, p4]*(-(barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                     m1]))) - (barlam[1, p4]*(-(barlam[2, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*(lam[1, p3]*lam[2, p2] - 
                         lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                     m1]))))*(-((barlam[2, p4]*(-(barlam[1, p6]*
                    (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1])))) + (barlam[1, p4]*(-(barlam[2, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                     m1]))))*(-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*
                      lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                  (-(barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                      lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                          (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((barlam[1, p3]*barlam[2, p2] - 
                   barlam[1, p2]*barlam[2, p3])*(barlam[1, p7]*barlam[2, 
                     p6] - barlam[1, p6]*barlam[2, p7])*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3])*(lam[2, et5]*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - lam[1, et5]*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1])))) + 
               ((-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]))*(-(barlam[2, p6]*(lam[2, et5]*
                      (lam[1, p6] - (lam[1, et6]*(lam[1, p3]*lam[2, p2] - 
                          lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                       (lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*
                   barlam[2, p3])*(barlam[1, p7]*barlam[2, p6] - 
                  barlam[1, p6]*barlam[2, p7])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3])*(lam[2, et5]*(lam[1, p7] + 
                    (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                  lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                      {m1, p5}, m1]))))^2*(-((-(barlam[1, p7]*barlam[2, 
                    p6]) + barlam[1, p6]*barlam[2, p7])*(lam[2, m1]*
                  spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                     lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                 (lam[2, et5]*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                      (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                        barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                      (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                   ((lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, p2] - 
                         lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p6] - 
                      (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, 
                       {m1, p5}, m1]) - (barlam[1, p5]*(-(barlam[2, p2]*
                         (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                       barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, 
                         p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                        lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, 
                       {m1, p5}, m1]))))*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                  spba[p7, {m1, p5}, m1])) + (-(barlam[1, p7]*barlam[2, 
                   p6]) + barlam[1, p6]*barlam[2, p7])*(lam[1, m1]*
                 spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                    lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                  ((lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, p2] - 
                        lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p6] - 
                     (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                         lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, 
                      {m1, p5}, m1]) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, 
                      {m1, p5}, m1]))))*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/
                 spba[p7, {m1, p5}, m1]))*(-((-(barlam[1, p7]*barlam[2, 
                    p6]) + barlam[1, p6]*barlam[2, p7])*
                ((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p3])*lam[2, p3] - (lam[2, et5]*((lam[2, p6] - 
                      (lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]) - (lam[1, p6] - (lam[1, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                  ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/
                       spba[p7, {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                      (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                   ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                      spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1]) - 
                    (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                        (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                      spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                       barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                       lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1]))))*
                (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                   m1])) + (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*
                 barlam[2, p7])*((-(barlam[1, p3]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p3])*lam[1, p3] - 
                (lam[1, et5]*((lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                         spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p6] - 
                     (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                         lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                     spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                     spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, 
                m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                {m1, p5}, m1])*((barlam[2, p5]*(-(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                 barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                 barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1]) - 
              (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*
                    lam[2, et6] - lam[1, et6]*lam[2, p3]))*spa[p5, m1])/(
                (barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                spba[p7, {m1, p5}, m1]))*((barlam[2, p5]*spa[p5, m1]*
                (-(barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - (lam[1, et6]*
                        (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                 barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                     m1]))*spba[p7, {m1, p5}, m1]) - (barlam[1, p5]*
                spa[p5, m1]*(-(barlam[2, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))))) - 
                 barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                  barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                     s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                  (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                     m1]))*spba[p7, {m1, p5}, m1])))/
            (((barlam[2, p6]*(barlam[1, p6]*(lam[2, et5]*(lam[1, p6] - 
                      (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                  barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))) - (barlam[1, p6]*(barlam[2, p6]*(lam[2, et5]*
                     (lam[1, p6] - (lam[1, et6]*(lam[1, p3]*lam[2, p2] - 
                         lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, p6] - 
                      (lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))))^2*(-((barlam[2, p7]*(barlam[1, p6]*
                    (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                         (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   barlam[1, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                         s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                      (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                         m1]))))/((barlam[1, p7]*barlam[2, p6] - 
                   barlam[1, p6]*barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + 
                     (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
                   lam[1, et5]*(lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1])))) + (barlam[1, p7]*(barlam[2, p6]*
                   (lam[2, et5]*(lam[1, p6] - (lam[1, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, p6] - (lam[2, et6]*(lam[1, p3]*
                          lam[2, p2] - lam[1, p2]*lam[2, p3])*
                        (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                  barlam[2, p7]*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                        s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                     (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                        m1]))))/((barlam[1, p7]*barlam[2, p6] - barlam[1, p6]*
                   barlam[2, p7])*(lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                      s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                   (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                      m1]))))^2*(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + 
                lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*lam[1, et6]*(lam[1, p3]*
                    lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                  ((lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, p2] - 
                        lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p6] - 
                     (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                         lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, 
                      {m1, p5}, m1]) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, 
                      {m1, p5}, m1])))) - lam[1, p4]*(lam[2, m1]*
                 spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                    lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                  ((lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, p2] - 
                        lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p6] - 
                     (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                         lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, 
                      {m1, p5}, m1]) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, 
                      {m1, p5}, m1])))))*((lam[2, m1]*spb[m1, p7] + 
                lam[2, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                   barlam[1, p2]*barlam[2, p6])*lam[2, et6]*(lam[1, p3]*
                    lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                  ((lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, p2] - 
                        lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p6] - 
                     (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                         lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, 
                      {m1, p5}, m1]) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, 
                      {m1, p5}, m1]))))*((-(barlam[1, p3]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p3])*lam[1, p3] - 
                (lam[1, et5]*((lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                         spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p6] - 
                     (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                         lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                     spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                     spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))) - 
              (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                    lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                  ((lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, p2] - 
                        lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, 
                          p2]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p6] - 
                     (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                         lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1])))/((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - lam[1, et5]*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, 
                      {m1, p5}, m1]) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, 
                      {m1, p5}, m1]))))*((-(barlam[1, p3]*barlam[2, p2]) + 
                  barlam[1, p2]*barlam[2, p3])*lam[2, p3] - 
                (lam[2, et5]*((lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                         spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[1, p7] + (lam[1, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]) - (lam[1, p6] - 
                     (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                         lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]))*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                     spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                     spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1])))))*
             ((lam[2, p6] - (lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[1, p7] + 
                (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
              (lam[1, p6] - (lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                    lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])))*(lam[2, p7] + 
                (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
             ((-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*(
                (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p3])*lam[2, p3] - (lam[2, et5]*((lam[2, p6] - 
                     (lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                         lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, p6] - (lam[1, et6]*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                         spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                     spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                     spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1]))))*(
                lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]) - 
              (-(barlam[1, p7]*barlam[2, p6]) + barlam[1, p6]*barlam[2, p7])*(
                (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p3])*lam[1, p3] - (lam[1, et5]*((lam[2, p6] - 
                     (lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                         lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                          barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                      ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                       (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
                    (lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                       m1]) - (lam[1, p6] - (lam[1, et6]*(lam[1, p3]*lam[2, 
                          p2] - lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*
                          barlam[2, p2]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1]) + (barlam[1, p2]*barlam[2, p5]*spa[p5, m1])/
                         spba[p7, {m1, p5}, m1]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))*(lam[2, p7] + (lam[2, m1]*
                       s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[2, et5]*(lam[1, p7] + (lam[1, m1]*s[m1, p5])/spba[p7, 
                       {m1, p5}, m1]) - lam[1, et5]*(lam[2, p7] + 
                     (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, m1]))*
                  ((barlam[2, p5]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                     spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1]) - 
                   (barlam[1, p5]*(-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[2, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3]))*
                     spa[p5, m1])/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])*spba[p7, {m1, p5}, m1]))))*(
                lam[2, p7] + (lam[2, m1]*s[m1, p5])/spba[p7, {m1, p5}, 
                  m1]))) - (10*CK*((barlam[2, p6]*(-(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                 barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                 barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                 barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3])))*(-((barlam[2, p7]*
                 (-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[1, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                  barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                  lam[1, et6]*lam[2, p3]))) + (barlam[1, p7]*
                (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                     lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                   lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                 barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3])))*(lam[2, p4]*(
                (-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                    p3])*lam[1, p3] - (lam[1, et5]*(-(lam[2, p4]*
                     (lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(lam[1, p3]*lam[2, p2] - 
                         lam[1, p2]*lam[2, p3]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                         (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1])))) + lam[1, p4]*(lam[2, m1]*
                      spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                     ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(lam[1, p3]*lam[2, p2] - 
                        lam[1, p2]*lam[2, p3]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 (((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                    ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])))*(-((barlam[1, p5]*barlam[2, p4]*
                   spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p4]*
                  barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) - 
              lam[1, p4]*((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*
                   barlam[2, p3])*lam[2, p3] - (lam[2, et5]*
                  (-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(lam[1, p3]*lam[2, p2] - 
                        lam[1, p2]*lam[2, p3]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))*(-((barlam[1, p6]*barlam[2, p5]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                     barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 (((barlam[2, p6]*(-(barlam[1, p2]*(lam[1, p2]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p2])) - barlam[1, p3]*
                       (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))/
                    ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, 
                        p3])*(lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, 
                        p3])) - (barlam[1, p6]*(-(barlam[2, p2]*(lam[1, p2]*
                          lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])))*(lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])))*(-((barlam[1, p5]*barlam[2, p4]*
                   spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p4]*
                  barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))*
             (lam[2, p4]*(lam[1, p6] - (lam[1, et6]*(lam[1, p3]*lam[2, p2] - 
                   lam[1, p2]*lam[2, p3])*(-((barlam[1, p5]*barlam[2, p2]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p2]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[1, et5]*(-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(lam[1, p3]*lam[2, p2] - 
                        lam[1, p2]*lam[2, p3]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))*((barlam[2, p5]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, 
                      {m1, p5}, m1]) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, 
                      {m1, p5}, m1])))/(((barlam[2, p6]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])))*(
                -((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                   {m1, p5}, m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/
                 spba[p7, {m1, p5}, m1]) - lam[1, p4]*(lam[2, p6] - 
                (lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3])*
                  (-((barlam[1, p5]*barlam[2, p2]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p2]*barlam[2, p5]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))/
                 ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                  (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                      {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
                (lam[2, et5]*(-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + 
                      lam[1, p5]*spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, 
                          p2]) + barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
                   lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, 
                       p7] - ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                         barlam[2, p6])*lam[2, et6]*(lam[1, p3]*lam[2, p2] - 
                        lam[1, p2]*lam[2, p3]))/((lam[1, p3]*lam[2, et6] - 
                        lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                        (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))))*((barlam[2, p5]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, 
                      {m1, p5}, m1]) - (barlam[1, p5]*(-(barlam[2, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[2, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3]))*spa[p5, m1])/((barlam[1, p3]*barlam[2, 
                        p2] - barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*
                       lam[2, et6] - lam[1, et6]*lam[2, p3])*spba[p7, 
                      {m1, p5}, m1])))/(((barlam[2, p6]*(-(barlam[1, p2]*
                        (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                      barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                         lam[2, p3])))/((barlam[1, p3]*barlam[2, p2] - 
                      barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                      lam[1, et6]*lam[2, p3])) - (barlam[1, p6]*
                     (-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                          lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, 
                          et6] - lam[1, et6]*lam[2, p3])))/((barlam[1, p3]*
                       barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                     (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])))*
                  (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])))*(
                -((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                   {m1, p5}, m1]) + (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/
                 spba[p7, {m1, p5}, m1]))*(-((barlam[2, p6]*
                  (-(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - lam[1, et5]*
                       lam[2, p4])) + (barlam[1, p5]*spa[p5, m1]*
                     (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                      lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                         spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                          (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                         ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                          (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                    spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                   lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                     barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + 
               (barlam[1, p6]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p4])) + (barlam[2, p5]*spa[p5, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                    barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))^2*
             ((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4])) + (barlam[1, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                   spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                   barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])) - 
              (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4])) + (barlam[2, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                   spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                   barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
             (-((barlam[2, p7]*(-(barlam[1, p4]*(lam[1, p4]*lam[2, et5] - 
                     lam[1, et5]*lam[2, p4])) + (barlam[1, p5]*spa[p5, m1]*
                    (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                         (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                     lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                        spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                          barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                         (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                        ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                         (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                          spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, 
                          p6]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                   spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                  lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                    spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                    barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]))) + 
              (barlam[1, p7]*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4])) + (barlam[2, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((lam[1, p4]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                   spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                   barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
             (-(((-(barlam[2, p2]*(lam[1, p2]*lam[2, et6] - lam[1, et6]*
                      lam[2, p2])) - barlam[2, p3]*(lam[1, p3]*lam[2, et6] - 
                    lam[1, et6]*lam[2, p3]))*(-(barlam[1, p4]*(lam[1, p4]*
                      lam[2, et5] - lam[1, et5]*lam[2, p4])) + 
                  (barlam[1, p5]*spa[p5, m1]*(lam[2, et5]*(lam[1, m1]*
                        spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                       ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(lam[1, p3]*lam[2, p2] - 
                          lam[1, p2]*lam[2, p3]))/((lam[1, p3]*lam[2, et6] - 
                          lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]*barlam[2, 
                          p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1]) + 
                          (barlam[1, p5]*barlam[2, p6]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]))) - lam[1, et5]*(lam[2, m1]*spb[m1, 
                         p7] + lam[2, p5]*spb[p5, p7] - ((-(barlam[1, p6]*
                          barlam[2, p2]) + barlam[1, p2]*barlam[2, p6])*
                         lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                          lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                          lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, 
                          m1])/spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*
                          barlam[2, p6]*spa[p5, m1])/spba[p7, {m1, p5}, 
                          m1])))))/spba[p7, {m1, p5}, m1]))/
                ((barlam[1, p3]*barlam[2, p2] - barlam[1, p2]*barlam[2, p3])*
                 (lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                 (lam[1, p4]*lam[2, et5] - lam[1, et5]*lam[2, p4])*
                 ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, 
                    {m1, p5}, m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/
                   spba[p7, {m1, p5}, m1]))) + ((-(barlam[1, p2]*
                   (lam[1, p2]*lam[2, et6] - lam[1, et6]*lam[2, p2])) - 
                 barlam[1, p3]*(lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3]))*(-(barlam[2, p4]*(lam[1, p4]*lam[2, et5] - 
                    lam[1, et5]*lam[2, p4])) + (barlam[2, p5]*spa[p5, m1]*
                   (lam[2, et5]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[1, et6]*
                        (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1]))) - 
                    lam[1, et5]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*
                       spb[p5, p7] - ((-(barlam[1, p6]*barlam[2, p2]) + 
                         barlam[1, p2]*barlam[2, p6])*lam[2, et6]*
                        (lam[1, p3]*lam[2, p2] - lam[1, p2]*lam[2, p3]))/
                       ((lam[1, p3]*lam[2, et6] - lam[1, et6]*lam[2, p3])*
                        (-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/spba[p7, 
                          {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                          spa[p5, m1])/spba[p7, {m1, p5}, m1])))))/
                  spba[p7, {m1, p5}, m1]))/((barlam[1, p3]*barlam[2, p2] - 
                 barlam[1, p2]*barlam[2, p3])*(lam[1, p3]*lam[2, et6] - 
                 lam[1, et6]*lam[2, p3])*(lam[1, p4]*lam[2, et5] - 
                 lam[1, et5]*lam[2, p4])*((barlam[1, p5]*barlam[2, p4]*
                   spa[p5, m1])/spba[p7, {m1, p5}, m1] - (barlam[1, p4]*
                   barlam[2, p5]*spa[p5, m1])/spba[p7, {m1, p5}, m1])))*
             ((barlam[1, p5]*barlam[2, p4]*spa[p5, m1])/spba[p7, {m1, p5}, 
                 m1] - (barlam[1, p4]*barlam[2, p5]*spa[p5, m1])/
                spba[p7, {m1, p5}, m1])^5)/
            ((-(lam[2, p4]*(lam[1, m1]*spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                 ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                      p6])*lam[1, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                     lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                     lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                      spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                      spa[p5, m1])/spba[p7, {m1, p5}, m1])))) + 
              lam[1, p4]*(lam[2, m1]*spb[m1, p7] + lam[2, p5]*spb[p5, p7] - 
                ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*barlam[2, 
                     p6])*lam[2, et6]*(lam[1, p3]*lam[2, p2] - lam[1, p2]*
                    lam[2, p3]))/((lam[1, p3]*lam[2, et6] - lam[1, et6]*
                    lam[2, p3])*(-((barlam[1, p6]*barlam[2, p5]*spa[p5, m1])/
                     spba[p7, {m1, p5}, m1]) + (barlam[1, p5]*barlam[2, p6]*
                     spa[p5, m1])/spba[p7, {m1, p5}, m1]))))*
             (((-(barlam[1, p3]*barlam[2, p2]) + barlam[1, p2]*barlam[2, p3])*
                 lam[2, p3] - (lam[2, et5]*(-(lam[2, p4]*(lam[1, m1]*
                       spb[m1, p7] + lam[1, p5]*spb[p5, p7] - 
                      ((-(barlam[1, p6]*barlam[2, p2]) + barlam[1, p2]*
                          barlam[2, p6])*lam[1, et6]*(lam[1, p3]*lam[2, p2] - 
                         lam[1, p2]*lam[2, p3]))/((lam[1, p3]*lam[2, et6] - 
                         lam[1, et6]*lam[2, p3])*(-((barlam[1, p6]